$service - Success

#!/usr/local/bin/perl ######################################### ## Creator: krakle ## ## Contact: krakle@webtv.net ## ######################################### ######################################### ## Warning! Please do not abuse this ## ## program! Spam/abuse is not ## ## tolerated and nor will I be held ## ## responsible for your actions! ## ## Warning! ## ######################################### # Gets Module use CGI qw(param); ######################################### ## € Configuration: ## ## Define variables: ## ## 1.) Change the path to the perl ## ## interrupter ## ## 2.) Define the path to the mail ## ## prog ## ## 3.) Define the service name ## ## 4.) Define the URL to the service ## ## 5.) Upload in ASCII mode ## ## 6.) CHMOD at 755 ## ######################################### ######## Start Configuration # Path to mail prog $prog = "/var/qmail/bin/qmail-inject"; # Service name $service = "AnonMail"; # URL to service $url = "http://cookiemonster.hypermart.net/anon.pl"; ####### End Configuration ######################################### ## Congradulations configuration is ## ## completed! ## ## Do not edit below this line or else ## ## you know what are doing! ## ######################################### ######## $divider = "_"x 75 .""; $to = param("to"); $from = param("from"); $subject = param("subject"); $message = param("message"); { open(MAIL,"|$prog"); print MAIL "To: $to\n"; print MAIL "From: $from\n"; print MAIL "Subject: $subject\n\n"; print MAIL "$message\n\n$divider\n$service - $url\n"; close(MAIL); } ######## # Defines print command as text/html print "Content-type: text/html\n\n"; ######## # Directs user to success print < $service - Success Success

Your form has been successfully processed. Press back on your browser now. Thank you for using $service!

To: $to
From: $from
Subject: $subject

Message:
$message

$service ANON # ^^ Ends Success Segment ######## # Directs user to forms print < $service $service

ANON # ^^ Ends Form Segment ######## # Exits perl exit;