Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

EvanK's scratchpad

by EvanK (Chaplain)
on Jan 26, 2006 at 17:18 UTC ( #525780=scratchpad: print w/replies, xml ) Need Help??

#!/usr/bin/perl -T use strict; use CGI; my $cgi = new CGI; if($cgi->param('update')) { # update the project working copy my $output = `svn up /home/ekaufman/svn/proj1 2>&1`; # output the update page print <<"HTMLCODE"; Content-Type: text/html; charset=utf-8 <html> <body> <form method="get" target="_self"> <input type="hidden" name="update" value="1" /> <input type="submit" value="Update" onclick="this.disabled = true; + this.value = 'Updating...'" > </form> </body> </html> HTMLCODE # if anything other than the current revision (ie: an update or an e +rror), mail me the output if($output !~ m/\A(?:\n*)At revision \d+.(?:\n*)\z/msx) { open(MAIL, "|/usr/lib/sendmail -t") or die('Couldnt send mail'); print MAIL <<"MAILCONTENT"; To: ekaufman\ Subject: Project updated... Output from svn up: -- output -- . MAILCONTENT close(MAIL); } } # otherwise, print a blank page print "Content-Type: text/html; charset=utf-8\n\n";
Log In?

What's my password?
Create A New User
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2017-12-17 05:18 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (462 votes). Check out past polls.