% if ( $ARGS{a} eq "Send" ) { <% $thanksmessage %>
% } else {


PLEASE TO PUT YOUR JOHN HANCOCK BELOW...

Name
Address
City/State/ Zip Code
Country
(if other than USA)
E-mail

Please post any extraneous comments, questions, recipes, or stock trading tips below. Thx.

 

Thanks for filling out the form. I'll be glad to keep you up to date
on what's happening with my music.

Alex Sniderman


% } <%perl> my $dashlen = length ($header) + length ($host) + 1; my $dashes = "-" x $dashlen; my $otherargs; my @keys = sort (keys %ARGS); foreach my $key (@keys) { my $value = $ARGS{$key}; if ($key ne "a" && $key ne "body") { my $sub = substr ($key, 1, length($key)); $otherargs = $otherargs . $sub . ": " . $value . "\r\n"; } } $otherargs = $otherargs . "\r\n"; $body = "$dashes\r\n$header $host\r\n$dashes\r\n\r\n" . $otherargs . "\r\n\r\nMessage body: \r\n" . $body; my %mail = ( To => $to, From => 'www-data@clueinc.net', Subject => $subject, Message => $body, 'X-Mailer' => 'Cluemail 0.0.1', Date => Mail::Sendmail::time_to_date( time() ) ); if ( $ARGS{a} eq "Send" ) { Mail::Sendmail::sendmail(%mail) or die "Choked sending mail: $! : $Mail::Sendmail::error"; } <%args> #Who gets the message? $to => "alex\@clueinc.net" # Customizable strings for identifying the source of a message $host => "www.alexsniderman.com" $header => "Message from Web->Mail gateway at " # Change the thanks message users get after sending. $thanksmessage => "Thanks for sending the band a message." # Leave these alone $a => 'compose' $from => "" $subject => "Message from the Web Form at $host" $body => "" <%init> use Mail::Sendmail;