#!/usr/bin/perl

# a simple example of interfacing to the PhysStat module. also rather
# useful for controlling PhysStat
#
# Steve Pomeroy <steve@staticfree.info>

use PhysStat;
use Getopt::Std;

# set this if you want logs to be anywhere but your homedir
my $logbase; # = "~/.logs";

getopts("M:masHhku:");

usage() if $opt_h;
 
my $newstat = join(" ",@ARGV);

my $user = "steve";
my $user = $ENV{'USER'};
$user    = $opt_u if defined $opt_u;
set_user( $user ) if $user ne "";

set_logfile( "$logbase/$user.physlog" ) if $logbase ne "";

# we're setting something
if( $opt_s || $opt_H || $opt_a || $opt_M || $opt_k || $newstat ne "" ){   

  $newstat = get_message() if $newstat eq "";

  my $new_mode = get_mode;
  $new_mode = "s" if $opt_s;
  $new_mode = "h" if $opt_H;
  $new_mode = "a" if $opt_a;
  $new_mode = "afk" if $opt_k;
  $new_mode = $opt_M if $opt_M;

  set_status( $new_mode, $newstat );

}elsif($opt_m){

  print get_mode."\n";

}else{

  print scalar get_status;

}

sub usage{

    die<<USAGE;
usage: $0 {[query_option] | [status_flag] status message}

status_flag:
    -H       here
    -s       aSleep
    -a       away
    -k       away from keyboard (afk)
    -M MODE  sets the mode to be MODE. You should primarily use the 
             above flags

querty_option:
    -m       show the current status flag (mode)
    -u USER  specify the user to get info about

This will use the physical status module to get information about a given
user\'s status information. The default user is the user specified by the 
environment variable USER.

Called with no options, it will show the current status text.

(C) 2002 Steve Pomeroy <steve\@staticfree.info> 
USAGE
}