perl NeoBoard Advertiser

Initially parses every topic on the first page of each board - then quickly cycles through them all posting the inputted message. 800+ boards posted on in a few seconds.

print "\n\n\nMessage to Advertise: "; $II1III111I1I1I11 = <STDIN>; 
chop $II1III111I1I1I11; $II11I1II111IIII1 = 500 - length($II1III111I1I1I11); 
print "\n\nParsing Active Topics...\n"; $I1II1II1IIIIII1I = Request("GET", "$I1IIII11I1I1I111/index.phtml", "", "$III1II1III1III1I.phtml"); 
while ($I1II1II1IIIIII1I =~ m/boardlist.phtml\?board=(.+?)"><strong>/g) { 
  push(@I1111II11II11II1, $1); $I1I1I11I1I1II111 = Request("GET", "$I1IIII11I1I1I111/boardlist.phtml?board=$1", "", "$I1IIII11I1I1I111/index.phtml"); 
  while ($I1I1I11I1I1II111 =~ m/topic.phtml\?topic=(.+?)"/g) { 
    push(@I1111II11II11II1, $1); } } 
foreach (@I1111II11II11II1) { if (length($_) > 3) { print "\nPosting Message on Board #".$_; 
    Request("POST", "$I1IIII11I1I1I111/process_topic.phtml", "boardType=reply&topic_id=$_&board_id=$III11I111IIII1I1&next=1&message=$II1III111I1I1I11&remLen=$II11I1II111IIII1", "$I1IIII11I1I1I111/topic.phtml?topic=$_"); } 
  else { $III11I111IIII1I1 = $_; } } print "\n\nMessage Advertising Complete"; exit;

[Ryan]

Thats hott o______o

[Zack]

2 posts and programming leader?

[Ryan]

Yep.

[~Sasuke~]

Sure sticky hasen't been using that ryan?

[Tr3v0r]

rofl. I remember this code xD He wouldnt compile it for me ;-;