#!/usr/bin/perl ########################## ####### # ####### MAGIC POSTER # ####### CREATED BY # ####### the_actor-guy # ####### # ####### # ####### You may do # ####### whatever you # ####### want with this # ####### script as long # ####### as you leave # ####### this harmless # ####### little credit # ####### to me alone # ####### # ########################## ### FEATURES: ### This script creates Magic alt.discuss newsgroup ### postings which change messages with every time ### the post is opened or reloaded. In addition it will ### also send you an E-mail whenever a Magic Post is created ### using this script. Also every time a Magic Post created ### with this script is opened, it will send you an E-mail ### telling you what alt.discuss group the opened Magic ### Post is in, r save that same info to a text log file. ### Password protected. ### NOTE: If you put this on a server that has banner ### ads at the top of the page, they will show up in the ### Magic Posts this script creates. If your server has ### banner ads at the bottom of every page that is okay, ### they should not show up in the posts. ############# EDIT THESE VARIABLES ######################### ### Choose a valid username and password $uname = "username"; $pword = "password"; ### Location of the mail program on your server: $mailprog = "/var/qmail/bin/qmail-inject"; ### The full url of this script: ### NOTE: You should put this script in a directory all ### by itself because it creates lots of text files ### which hold the messages, and you don't want all ### these text files cluttering directories that have ### your other files in it. $fullurl = "http://qqqqqq.vr9.com/Post/Magic-Poster.cgi"; ### Every time this Magic Poster is used it sends a heads up ### E-mail to let the owner of the script know it was used. ### Enter the E-mail address to send that heads up to below ### and you must put a \ in front of the @ as shown: $owneremail = "the_actor-guy\@webtv.net"; ### Set this variable to mail or log (no caps). mail will ### send the $owneremail an E-mail every time a magic ### post created by this script is opened in a newsgroup, ### and also let you know the name of the newsgroup it is in. ### log will instead save all the same info into a text file ### to prevent your mailbox from being flooded. $mailorlog = "log"; ###################### ####### # ####### DO NOT EDIT # ####### BELOW # ####### THIS LINE # ####### # ###################### ###################### <~~~~ I MEAN THIS LINE ###################### <~~~~ JUST KIDDIN IT'S THIS LINE print "Content-type: text/html\n\n"; ############## VALID FORM INPUTS ########################### use CGI qw(param); $m1 = param(m1); $m2 = param(m2); $m3 = param(m3); $m4 = param(m4); $m5 = param(m5); $m6 = param(m6); $m7 = param(m7); $m8 = param(m8); $m9 = param(m9); $m10 = param(m10); $m11 = param(m11); $m12 = param(m12); $m13 = param(m13); $m14 = param(m14); $m15 = param(m15); $action = param(action); $postnumber = param(postnumber); $username = param(username); $password = param(password); ############### MISCELLANEOUS VARS ######################### $header1 = "Magician's Poster

Magician's Poster

by the_actor-guy

"; $footer = "

"; $body = "<body bgcolor=#16181E text=#7DB392 link=#BDA73A vlink=#408058>"; ########## CHECK FOR VALID USERNAME AND PASSWORD ########### if ($action ne "postopened") { if ($username ne "$uname") { $action = "passprompt"; } if ($password ne "$pword") { $action = "passprompt"; } } ########## PROMPT USER FOR VALID PASSWORD ################## if ($action eq "passprompt") { print "$header1"; print "Enter a valid username and password. You may choose to guess at them, but I bet you won't be able to.<form name=magic method=post>Username: <input type=text name=username>Password: <input type=text name=password><input type=hidden name=action value=promptmail><input type=submit value=SUBMIT>"; } ############# ENTER THE MAGIC POSTING INFO ################## if ($action eq "promptmail") { print "$header1"; print "<table width=80%><tr align=center><td><center>The Magician's Poster is a sneaky son of a bitch that you embed in your WebTV or MsnTV sig box. The magical part kicks in when you post to a WebTV or MsnTV alt.discuss newsgroup. Every time the post is opened the message will be different! Yes, you can confuse the hell out of people by starting threads in which no reply will seem to have anything to do with the other replies or your original post. Your Magic Post will consist of 15 different messagess that cycle through from 1 through 15 over and over again with every time the post is opened. <hr> <form method=post name=magic> Below, enter 15 different messages to be shown in your posting. (You may use html in these messages, but do not use an <<>html<>> or a <<>body<>> tag, they are automatically included.) Message 1: <input type=text name=m1> Message 2: <input type=text name=m2> Message 3: <input type=text name=m3> Message 4: <input type=text name=m4> Message 5: <input type=text name=m5> Message 6: <input type=text name=m6> Message 7: <input type=text name=m7> Message 8: <input type=text name=m8> Message 9: <input type=text name=m9> Message 10: <input type=text name=m10> Message 11: <input type=text name=m11> Message 12: <input type=text name=m12> Message 13: <input type=text name=m13> Message 14: <input type=text name=m14> Message 15: <input type=text name=m15> <input type=hidden name=username value=$username><input type=hidden name=password value=$password><input type=hidden name=action value=saveposts><input type=submit value=AbraFreakingCadabra></td></tr></table>"; } ############# SAVE THE MAGIC MESSAGES ###################### if ($action eq "saveposts") { open (CHECK,"Magic-Poster.txt"); $file = <CHECK>; close (CHECK); ++$file; open (CHECK2,">Magic-Poster.txt"); print CHECK2 "$file"; close (CHECK2); print "$header1 <h1>Magic Posts Saved!</h1> Read the <a href=#instructions>Instructions</a> below on how to add the magic messages to your newsgroup posting. Message 1: $m1 Message 2: $m2 Message 3: $m3 Message 4: $m4 Message 5: $m5 Message 6: $m6 Message 7: $m7 Message 8: $m8 Message 9: $m9 Message 10: $m10 Message 11: $m11 Message 12: $m12 Message 13: $m13 Message 14: $m14 Message 15: $m15 <a name=instructions> Instructions Part 1: Place the following code in your sig box, and nothing else. Any other html in your sig box may screw up the script that changes the messages in your email.<form><textarea rows=3 cols=100><html><body><embed src=$fullurl?action=postopened&postnumber=$file width=100%></body></html></text"; print "area> Instructions Part 2: Go to the alt.discuss newsgroup of your choice and click 'Post' from the left sidebar. Choose a subject for your posting. Do not type anything in the post itself, you should see a message in your E-mail already telling you your magic post is activated. After you post to the group, go back to your sig box and remove the magic code. Thats it! If you would like you may first E-mail yourself before posting to an alt.discuss newsgroup to see how this looks. Also note you should only post this in alt.discuss groups because it only works for WebTV users, PC users can't see embeds the way WebTV users can."; open (MAILPIPE,"|$mailprog"); print MAILPIPE "From: $owneremail (Magician)\n"; print MAILPIPE "To: $owneremail (Owner)\n"; print MAILPIPE "Subject: Post Guardian\n\n"; print MAILPIPE "<html> $body Post Guardian in the House Message 1: $m1 Message 2: $m2 Message 3: $m3 Message 4: $m4 Message 5: $m5 Message 6: $m6 Message 7: $m7 Message 8: $m8 Message 9: $m9 Message 10: $m10 Message 11: $m11 Message 12: $m12 Message 13: $m13 Message 14: $m14 Message 15: $m15 ENV Var Dump:"; foreach $ev (keys %ENV) { print MAILPIPE " $ev is $ENV{$ev}"; } print MAILPIPE "</body></html>\n\n"; close (MAILPIPE); $g = "%%%%"; $firsthalf = "$m1$g$m2$g$m3$g$m4$g$m5$g$m6$g$m7$g$m8$g"; $secondhalf = "$m9$g$m10$g$m11$g$m12$g$m13$g$m14$g$m15"; $firsthalf =~ s/ /_/g; $secondhalf =~ s/ /_/g; open (INFO,">$file.1"); print INFO "$firsthalf"; print INFO "$secondhalf"; close (INFO); open (MESS,">$file.2"); print MESS "not yet posted"; close (MESS); } ################## EMBEDDED POST PAGE ###################### if ($action eq "postopened") { open (INFO,"$postnumber.1"); $info = <INFO>; close (INFO); $info =~ s/_/ /g; @info = split(/\%\%\%\%/,$info); open (CHECK,"$postnumber.2"); $check = <CHECK>; close (CHECK); if ($check eq "not yet posted") { $show = "Magic Poster Activated! Type a subject for your post and nothing else then post it.Next time this particular E-mail with the magic code in the sig box is viewed (This should be when the first person open your post) it will begin cycling through the 15 messages you have chosen, and the dark green background color you see here will blend into the E-mail's background color providing a flawless looking post."; $check = "0"; } else { $show = "$info[$check]"; ++$check; } if ($check eq "15") { $check = "0"; } open (CHECK,">$postnumber.2"); print CHECK "$check"; close (CHECK); print "<html><head><meta http-equiv=expires content=0></head> $body $show $footer</body></html>"; $showg = "$ENV{'HTTP_REFERER'}"; if ($showg =~ /mail/) { $showg = "$ENV{'HTTP_REFERER'}"; } elsif ($showg =~ /alt./) { @showg1 = split(/=/,$showg); @showg2 = split(/&/,$showg1[1]); $showg = "<a href=news:$showg2[0]>$showg2[0]</a>"; } else { $showg = "<a href=$showg>$showg</a>"; } if ($mailorlog eq "mail") { open (MAILPIPE,"|$mailprog"); print MAILPIPE "From: $owneremail (Magician)\n"; print MAILPIPE "To: $owneremail (Owner)\n"; print MAILPIPE "Subject: Post $postnumber Viewed\n\n"; print MAILPIPE "<html> $body Post $postnumber just viewed in $showg ENV Var Dump:"; foreach $ev (keys %ENV) { print MAILPIPE " $ev is $ENV{$ev}"; } print MAILPIPE "</body></html>\n\n"; close (MAILPIPE); } if ($mailorlog eq "log") { open (LOG,">>Magic-Poster.html"); print LOG "Post $postnumber
"; print LOG "$showg\n"; close (LOG); } } ########## KILL BOTTOM PAGE BANNERS ######################## print "$footer";