FSFE/fsfe-website
25
31
Fork 91
Code Issues 66 Pull Requests 4 Wiki Activity

Debugging.

Browse Source 
svn path=/trunk/; revision=14720
This commit is contained in:
ato 2010-01-31 23:46:07 +00:00
parent e0f9267b01
commit 76a6a5a7a3
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
cgi-bin/contact.pl
View File

@ -16,8 +16,8 @@ use WebBuild::DynamicContent;
my $content = WebBuild::DynamicContent->new;
my $query = new CGI;
my %errors;
#my $query = new CGI;
#my %errors;
#$query->param("name") = "Fjase Mann";
#$query->param("email") = "asd\@asd.no";
@ -42,27 +42,27 @@ my %errors;
my $date = strftime "%Y-%m-%d", localtime;
my $time = strftime "%s", localtime;
open(MAIL, "|/usr/lib/sendmail -t -f ato\@fsfe.org");
print MAIL "From: web\@fsfeurope.org\n";
print MAIL "To: ato\@fsfe.org\n";
#open(MAIL, "|/usr/lib/sendmail -t -f ato\@fsfe.org");
#print MAIL "From: web\@fsfeurope.org\n";
#print MAIL "To: ato\@fsfe.org\n";
#print MAIL "Cc: mueller\@fsfeurope.org\n";
#print MAIL "Subject: New message from website from " . $query->param("name") . "\n\n";
print MAIL "We have received a new message from our website contact form.\n\n";
#print MAIL "We have received a new message from our website contact form.\n\n";
#print MAIL "Name: " . $query->param("name") . "\n";
#print MAIL "E-mail: " . $query->param("email") . "\n\n";
print MAIL "---\n";
#print MAIL "---\n";
#print MAIL $query->param("message") . "\n";
#print MAIL "---\n$\n\n";
my $output = <<ENDHTML;
<h1>Test</h1>
<p>foobar.</p>
ENDHTML
#my $output = <<ENDHTML;
#
#<h1>Test</h1>
#
#<p>foobar.</p>
#
#ENDHTML
my $output = "<p>Test.</p>";
$content->content($output);
$content->render;