Rp

1. !/usr/bin/perl

$wiki = "http://www.organicdesign.co.nz/wiki/index.php";

1. kill currently running instances of peerd

print "Killing currently running peerd instances\n" for ( split /\n/, qx( ps x|egrep \"husk[.]bin$\" ) ) { # damn " never work :-(

       qx( kill $1 ) if /^\s*([0-9]+).+?\d+:\d\d\s*(.+)/;
       }

print "Parsing fileSync list\n"; $fileSync = qx(curl -s "$wiki?title=Bender/fileSync&xpath:view:"); $fileSync =~ s/<\/ul>.+$//ms;

%articles = $fileSync =~ /

.+?title="(.+?)">(.+?)<\/a>/g; for my $article (keys %articles) { print "Retrieving $article\n"; if ( open FH, '>', $articles{$article} ) { binmode FH; print FH qx(curl -s "$wiki?title=$article&action=raw"); close FH; } }

1. compile husk logging output

print "Compiling husk...\n"; qx( date >> /home/peerd/peerd.log ); qx( gcc -o /home/peerd/husk.bin /home/peerd/husk.c 2>> /home/peerd/peerd.log ); print "Passing execution over now."; exec '/home/peerd/husk.bin >> /home/peerd/peerd.log 2>&1 &';