Was hört ihr so, wenn die Temperaturen wieder steigen? Will meine (inzwischen öde ausgeleierte) Playlist ein bisserl erweitern - außer Lounge Jazz ist auch so ziemlich alles erwünscht.
usw...
Bin gespannt!
Männlich
10. Mai 2012 - 07:50
09. Mai 2012 - 14:54
30. April 2012 - 11:15
01. April 2012 - 13:30
26. März 2012 - 19:17
#!/usr/bin/perl --
use encoding utf8;
$| = 1;
use CGI qw(:param -utf8);
my $script_url = $ENV{'SCRIPT_NAME'};
my $refer = $ENV{'HTTP_REFERER'};
#*# ---------- Begin Configurations ---------- #*#
my $admin_address = 'myAddy';
my $bounce_url = "myUrl/";
my @okay_domains = qw(myUrl .co.at);
my $location_of_sendmail = '/usr/sbin/sendmail';
my $at_symbol_replacement = '~';
my $require_image_code = '0';
my %text = ('GRt5B' => '1',
'MRP3T' => '1',
'YYP4B2' => '1',
'7YUQ44' => '1',
'HHTIV5D' => '1',
);
my $version = '1.23';
unless (param()) {
print "Location: $bounce_url\n\n";
exit;
}
else {
my $test_text = param("code");
chomp $test_text;
unless ((exists $text{"$test_text"}) || ($require_image_code == '0')) {
&error('no_key');
}
if (defined $refer)
{
my $ok = check($refer);
unless ($ok == 1)
{
print "Location: $bounce_url\n\n";
exit;
}
}
my $message = "";
my $goto = param("followup");
my $to = param("AnyMailAddress");
chomp $to;
my $replace = '@';
$to =~ s/$at_symbol_replacement/$replace/;
my ($subject_key, $subject_line, $mailngfrom);
if (defined param("POSTDATA")) {
print "Location: $bounce_url\n\n";
exit;
}
if (defined param("subject_line"))
{
$subject_key = param("subject_line");
$subject_line = param("$subject_key");
}
else { $subject_line = "AnyMail Form Results from: $refer"; }
if (defined param("FromEmail"))
{
$mailingfrom = param("FromEmail");
}
else { $mailingfrom = "myUrl .co.at<$admin_address>"; }
foreach my $name( param() ) {
unless (($name eq "followup") or ($name eq "AnyMailAddress") or ($name eq "subject_line"))
{
my $value = param($name);
if ((defined $value) && ($value !~ /^\s*$/))
{
$message .= "-------- $name --------\n$value\n\n";
}
}
}
unless (defined $to) { $to = $admin_address; }
send_mail($mailingfrom, $to, $subject_line, $message);
print "Content-Type: text/html\r\n\r\n";
print qq~
exit;
}
sub send_mail {
my ($from, $to, $subject, $messagebody) = @_;
my $flags = "-t";
$mail_program = $location_of_sendmail;
$mail_program .= " $flags";
open (MAIL, "|$mail_program") || die "Could Not Open Mail Program: $!";
print MAIL <<__END_OF_MAIL__;
To: $to
From: $from
Reply-to: $from
Subject: Homepage-Anfrage [myUrl .co.at]
X-Mailer: AnyMail $version
Content-type: text/plain
$messagebody
__END_OF_MAIL__
close (MAIL);
} # End of send_mail
sub check {
my $r = $_[0];
my $ok = 0;
foreach $domain(@okay_domains)
{
if ($r =~ /.+$domain.*/)
{
$ok++;
last;
}
else{ next; }
}
return $ok;
}
sub error {
my $type = shift;
print "Content-Type: text/html\r\n\r\n";
print qq~ <html><head><br><br>
<font face="verdana,arial" size="2">
<font color="red"> Error!!!<br></font>
Your request could not be sent. You did not enter all of the required<br>
Fields: $type <br><br>
Please go back and try again.
<br></font></body></html> ~;
exit;
}

Meine Inhalte anzeigen