Saturday, November 29, 2008

Old school

Over ten years ago I wrote what was probably the world's first online ballot stuffing program to get Buzz elected as the "best mascot". Kids these days are putting that kind of technology to better use.
--
#!/usr/local/bin/perl
$str = "1=8&submit=Cast%20Vote&id=180"; while(1) { if($pid = fork) { $SIG{ALRM}
= sub{ kill 9, $pid; }; alarm 5; wait; alarm 0; } else { exec 'lynx', '-dump',
"http://www.accessatlanta.com/cgi-bin/poll/poll.cgi?$str"; exit; } } #go buzz!

No comments: