das skript
hab gelogen, ist doch nicht von mir programmiert...
soll ichs trotzdem reinstellen?
Ja...
OK...
#!/usr/local/bin/perl
#Make sure the above line is the path
#to perl on your server.
#################################################################
# Send2Friend v1.0 Created 09/15/99 #
# #
# By Zachary Jorgensen
http://zachsarchive.cjb.net #
# I don't like all this legal mess but I have to do it. #
# Feel free to mess around with this script. #
# Just remember to hold this author harmless in the event of #
# any real or imaginary disasters arising from the use of #
# this script. This script is distributed as freeware #
# on an As-is basis. You may not sell or make money off #
# of this script with out proper written consent from me. #
# You are using the freeware version of Send2Friend, this #
# script may be distributed providing that it is in the same #
# EXACT physical state it was in when you downloaded it. #
# You may under no circumstances remove any links or copyright#
# notices from this script or its companion files. #
# #
# #
# _____ _ _ ____ _ _ #
# |__ /__ _ ___| |__ ( )___ / ___| ___ _ __(_)_ __ | |_ ___ #
# / // _` |/ __| '_ \|// __| \___ \ / __| '__| | '_ \| __/ __|#
# / /| (_| | (__| | | | \__ \ ___) | (__| | | | |_) | |_\__ \#
# /____\__,_|\___|_| |_| |___/ |____/ \___|_| |_| .__/ \__|___/#
# |_| #
#################################################################
#Minimal configuration
#The path to the mail program on your system
$mailprog = "/var/qmail/bin/qmail-inject";
#Where you want the person to go after the recomend your site (thank you page)
$redirect = "http://www.stefand.de/radioaktiv/liebe/start.htm";
#The url of the site that is being recomended
$URL = "http://www.liebeserklaerung.de";
#Upload this file and chmod it 755
#############################################
#Start! Don't mess with anything past here##
#############################################
#Read the form
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
# split the input
@pairs = split(/&/, $input);
# split the name/value pairs
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}
#some stuff
$end = "no";
$friend = $FORM{'friend'};
$friendmail = $FORM{'friendmail'};
$you = $FORM{'you'};
$youmail = $FORM{'youmail'};
$message = $FORM{'message'};
$subject = $FORM{'subject'};
$friend2 = $FORM{'friend2'};
$friend2mail = $FORM{'friend2mail'};
#############
#Do the work#
#############
open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
print MAIL "From: $youmail\n";
print MAIL "To: $friendmail\n";
if ($subject eq ""){
print MAIL "Subject: $you sendet dir einen Seitentip.\n\n";
}
else
{
print MAIL "Subject: $subject\n\n";
}
if ($message eq ""){
print MAIL "$friend,\n";
print MAIL "Schönen guten Tag,\nunser Liebesportal $URL wurde am heutigen Tage an Sie weiterempfohlen.\n\nHier finden Sie alles rund um die Liebe. Auf Ihrer Suche helfen Ihnen Liebeserklärungen, Flirt-Chat, Single-Börse, Forum, kostenlose SMS-Grüsse, ICQ-Grüsse, Liebesgedichte, Liebesbriefe, Geschenkideen, Love-Storys und vieles mehr ...\n\nUnd das Beste, unser Service absolut umsonst!\n\nSchauen Sie doch einfach mal auf unseren Seiten vorbei,\nwir freuen uns auf Ihren Besuch!\n\n\n\n\n\nIhr Liebeserklaerung.de Team\!\n";
print MAIL "$URL\n";
print MAIL "\n-- $you\n";
}
else
{
print MAIL "$message\n";
}
print MAIL "\n\n\nSend2Friend By
http://www.zachsarchive.cjb.net\n";
close (MAIL);
if ($friend2mail eq ""){
$end = "yes";
}
#Second friend
if ($friend2mail ne ""){
open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
print MAIL "From: $youmail\n";
print MAIL "To: $friend2mail\n";
if ($subject eq ""){
print MAIL "Subject: $you sendet dir einen Seitentip.\n\n";
}
else
{
print MAIL "Subject: $subject\n\n";
}
if ($message eq ""){
print MAIL "$friend2,\n";
print MAIL "Schönen guten Tag,\nunser Liebesportal $URL wurde am heutigen Tage an Sie weiterempfohlen.\n\nHier finden Sie alles rund um die Liebe. Auf Ihrer Suche helfen Ihnen Liebeserklärungen, Flirt-Chat, Single-Börse, Forum, kostenlose SMS-Grüsse, ICQ-Grüsse, Liebesgedichte, Liebesbriefe, Geschenkideen, Love-Storys und vieles mehr ...\n\nUnd das Beste, unser Service absolut umsonst!\n\nSchauen Sie doch einfach mal auf unseren Seiten vorbei,\nwir freuen uns auf Ihren Besuch!\n\n\n\n\n\nIhr Liebeserklaerung.de Team\!\n";
print MAIL "$URL\n";
print MAIL "\n-- $you\n";
}
else
{
print MAIL "$message\n";
}
print MAIL "\n\n\nSend2Friend By
http://www.zachsarchive.cjb.net\n";
close (MAIL);
}
$end = "yes";
if ($end eq "yes"){
print "Location: $redirect\n\n";
exit;
}
===============
die dazu gehörende HTML-Datei
===============
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=iso-8859-1">
<META NAME="GENERATOR" Content="Visual Page 1.1a for Windows">
<TITLE>www.Liebeserklaerung.de / Seite weiterempfehlen</TITLE>
<link rel="stylesheet" href="home.css">
</HEAD>
<BODY bgcolor="#000000" text="#FFFFFF">
<FORM ACTION="send2friend.cgi" METHOD="POST" ENCTYPE="application/x-www-form-urlencoded">
<CENTER>
<P>
<TABLE BORDER="0" WIDTH="53%">
<TR>
<TD WIDTH="100%" VALIGN="TOP">
<h1 ALIGN="CENTER"><B>Diese Seite weiterempfehlen</B></h1>
<h2>Empfehlen sie unsere Seite weiter indem sie das Formular vollständig ausfüllen.<br><br>Vielen Dank!</h2>
<br><br> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%"><p align="right"><font size="1" color="#FFFFFF">dein Name:</font></p></td>
<td width="15%">
<input type="TEXT" name="you" size="20">
</td>
<td width="5%"> </td>
<td width="30%"><p align="right"><font size="1" color="#FFFFFF">Name des Freundes:</font></p></td>
<td width="15%">
<input type="TEXT" name="friend" size="20">
</td>
</tr>
<tr>
<td width="20%"><p align="right"><font size="1" color="#FFFFFF">deine E-Mail:</font></p></td>
<td width="15%">
<input type="TEXT" name="youmail" size="20">
</td>
<td width="5%"> </td>
<td width="30%"><p align="right"><font size="1" color="#FFFFFF">E-Mail des Freundes:</font></p></td>
<td width="15%">
<input type="TEXT" name="friendmail" size="20">
</td>
</tr>
<tr>
<td width="23%"> </td>
<td width="17%"> </td>
<td width="9%"> </td>
<td width="28%"> </td>
<td width="23%"> </td>
</tr>
<tr>
<td width="23%" height="40"> </td>
<td width="15%" height="40">
<input type="SUBMIT" name="Submit" value="Weiterempfehlen" CLASS="button">
</td>
<td width="5%" height="40"> </td>
<td width="25%" height="40">
<input type="RESET" name="Reset" value="Reset" CLASS="button">
</td>
<td width="20%" height="40"> </td>
</tr>
</table>
<P><FONT SIZE="1" COLOR="#FFFFFF"> </FONT> <FONT SIZE="1" COLOR="#FFFFFF">
</FONT> <FONT SIZE="1"></FONT></P>
<P> <FONT SIZE="1" COLOR="#FFFFFF"> </FONT> <FONT SIZE="1"><BR>
</FONT></P>
<CENTER>
<P>
</CENTER>
</TD>
</TR>
</TABLE>
<p></P>
<P><INPUT TYPE="HIDDEN" NAME="subject" SIZE="-1" VALUE="change this to a subject"></P>
<P><INPUT TYPE="HIDDEN" NAME="message" SIZE="-1" VALUE="change this to a message">
</CENTER>
</FORM>
</BODY>
</HTML>
============
Viel Spass...
