ssh="ssh -a -x -oBatchmode=yes -oSetupTimeOut=20"
ulimit -S -u 96
-br=lucille
+br="tpope br"
if [ -f /tmp/away-actions.pid ]; then
oldpid="`cat /tmp/away-actions.pid`"
newpid="`cat /tmp/away-actions.pid`"
[ "$newpid" = "$oldpid" ] && kill "$newpid"
sleep 1
- if [ -f /tmp/away-actions.pid && "`cat /tmp/away-actions.pid`" = "$oldpid" ]; then
+ if [ -f /tmp/away-actions.pid && "x`cat /tmp/away-actions.pid`" = "x$oldpid" ]; then
kill -9 "$oldpid"
rm /tmp/away-actions.pid
elif [ -f /tmp/away-actions.pid ]; then
find /tmp -name .tpope_lights -maxdepth 1 -mmin 60 -exec rm {} \;
if [ "$is_away" = 1 -a ! -f /tmp/.tpope_lights ]; then
touch /tmp/.tpope_lights
- $ssh $br br -F -F
+ $br -F -F
ulimit -S -u 92
for host in buster; do
ping -c 1 $host >/dev/null && $ssh $host tpope xssc -lock 2>/dev/null &
done
elif [ "$is_away" = 0 -a -f /tmp/.tpope_lights ]; then
- $ssh $br br -n 4
+ $br -n 4
rm -f /tmp/.tpope_lights
- $ssh $br br -n 4
+ $br -n 4
ulimit -S -u 92
# for host in lucille; do
# ping -c 1 $host >/dev/null && $ssh $host tpope unlock
echo "$information" > "$HOME/.plan"
fi
-for host in gob barry lucille buster oscar; do
+for host in michael lucille buster oscar; do
ping -c 1 $host >/dev/null && scp -q "$HOME/.status" $host: 2>/dev/null
done
sync-tpope -g -a /tmp/.critical-$LOGNAME-$$/tpope.tar
cd /tmp/.critical-$LOGNAME-$$
ln -s "$HOME/.cvs" cvs
+ln -s /var/lib/svn svn
mysqldump --all-databases > mysqldump.sql
-tar chf - tpope.tar cvs mysqldump.sql |\
+tar chf - tpope.tar cvs svn mysqldump.sql |\
gpg -qez 9 -r "$GPGID" --batch --no-tty > $ARCHIVE
[ -d "$HOME/backup-`date +%Y`" ] || mkdir "$HOME/backup-`date +%Y`"
cp $ARCHIVE "$HOME/backup-`date +%Y`/"
-scp -Bq -oSetupTimeout=30 $ARCHIVE patman:backup/ 2>/dev/null || \
-scp -Bq -oSetupTimeout=30 $ARCHIVE chief:backup/ 2>/dev/null
-scp -Bq -oSetupTimeout=30 $ARCHIVE right:backup/ 2>/dev/null
-scp -Bq $ARCHIVE snowball:tpope.tar.gpg 2>/dev/null
+scp -Bq -oSetupTimeout=30 $ARCHIVE tpope-486.jmwaller.com:backup/ 2>/dev/null
+scp -Bq $ARCHIVE steve:tpope.tar.gpg 2>/dev/null
d="`date +%d`"
if [ "$d" = 01 -o "$d" = 08 -o "$d" = 16 -o "$d" = 23 -o "$1" = "-m" ]; then
-a "From: $FROM"
fi
-if [ "`date +%m%d`" = "0101" -o "$1" = "-c" ]; then
+if true; then
+ :
+elif [ "`date +%m%d`" = "0101" -o "$1" = "-c" ]; then
mkisofs -r -J -o back.iso "$HOME/backup-`date +%Y`" 2>/dev/null
if ! sudo cdrecord -tao -data -multi speed=4 back.iso 2>/dev/null; then
echo "Error: blank CD not found. Please call `basename $0` manually" >&2
echo "Yearly backup finished. Please put a blank CD in the drive." >&2
elif [ "$d" = 01 -o "$d" = 08 -o "$d" = 16 -o "$d" = 23 ]; then
s="`sudo cdrecord -msinfo 2>/dev/null`"
+ echo "s=$s"
if [ "$s" ]; then
- mkisofs -r -J -o back.iso -M /dev/cdr -C "$s" "$HOME/backup-`date +%Y`" 2>/dev/null
- sudo cdrecord -tao -data -multi speed=4 back.iso >/dev/null 2>&1 || \
+ mkisofs -r -J -o back.iso -M /dev/cdr -C "$s" "$HOME/backup-`date +%Y`"
+ sudo cdrecord -tao -data -multi speed=4 back.iso || \
echo "CD burning failed." >&2
else
echo "Error. Is the CD in the drive?" >&2
}
sub eval_chat {
- if(($state{'chat'}||'') eq "jmwaller" || ($state{'chat'}||'') eq "arwen") {
- internal_out("Work",3*60*60);
- } elsif(($state{'chat'}||'') =~ /^tpope-\d+$/) {
+ if(($state{'chat'}||'') =~ /^(tpope-\d+|jmwaller|arwen|george)$/) {
internal_out("Work",3*60*60);
} elsif(($state{'chat'}||'') eq "accd") {
#internal_out("School",30*60);
eval {
local $SIG{ALRM} = sub { die "alarm\n" };
alarm(30);
- $ret=!(system(@ssh,shift, 'if pidof xscreensaver >/dev/null && DISPLAY=:0.0 xscreensaver-command -version >/dev/null 2>&1; then if DISPLAY=:0.0 xscreensaver-command -time 2>&1 |egrep "non-blanked|no saver status" >/dev/null; then true; else pid=`ps ax|egrep "[0-9]:[0-9][0-9] ssh michael .*(screen.*RR irc|Chat)"|sed -e "s/^ *//"|cut -d" " -f 1`; [ -f "$HOME/.irc.lock" -o -z "$pid" ] || kill $pid; false; fi; else false; fi') >> 8);
+ $ret=!(system(@ssh,shift, 'if pidof xscreensaver >/dev/null && DISPLAY=:0.0 xscreensaver-command -version >/dev/null 2>&1; then if DISPLAY=:0.0 xscreensaver-command -time 2>&1 |egrep "non-blanked|no saver status" >/dev/null; then true; else pid=`ps ax|egrep "[0-9]:[0-9][0-9] ssh gob .*(screen.*RR irc|Chat)"|sed -e "s/^ *//"|cut -d" " -f 1`; [ -f "$HOME/.irc.lock" -o -z "$pid" ] || kill $pid; false; fi; else false; fi') >> 8);
alarm(0);
};
if($@) {
$ua->timeout(10);
$ua->env_proxy;
$ua->cookie_jar( {} );
-$ua->get("${url}twbkwbis.P_WWWLogin") or die "$!";
+$response = $ua->get("${url}twbkwbis.P_WWWLogin") or die "$!";
$response = $ua->post("${url}twbkwbis.P_ValLogin", { sid => $opts{SID}, PIN => $opts{PIN} }) or die "$!";
+my %hiddenjunk;
+{
+ my $content = $response->content;
+ while($content =~ /<input type="hidden" name="(.*?)" value="(.*?)">/gi) {
+ $hiddenjunk{$1} = $2;
+ }
+}
+$hiddenjunk{usage_btn} = "Continue";
+$response = $ua->post("${url}twbkwbis.P_FirstMenu", \%hiddenjunk);
+die $response->status_line unless $response->is_success;
+
$response = $ua->get("${url}bwskflib.P_SelDefTerm"); # Valid terms
die $response->status_line unless $response->is_success;
my @terms = grep {s/^<option value="([^"]*)">.*/$1/i} (split( /\r?\n/, $response->content)); # "
};
}
}
- $lastrow->[0] =~ s/Cumulative:? *through *//i;
+ $lastrow->[0] =~ s/Cumulative:? *through *//i if($lastrow->[0]);
my $cumulative = { term => capitalize($lastrow->[0]),
gpa => $lastrow->[6],
earned => $lastrow->[3],