?? feedback_sendmail.cgi
字號:
#!/usr/bin/perl -wTuse strict;use CGI;# Clean up environment for taint mode before calling sendmailBEGIN { $ENV{PATH} = "/bin:/usr/bin"; delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };}my $q = new CGI;my $email = validate_email_address( $q->param( "email" ) );my $message = $q->param( "message" );unless ( $email ) { print $q->header( "text/html" ), $q->start_html( "Invalid Email Address" ), $q->h1( "Invalid Email Address" ), $q->p( "The email address you entered is invalid. " . "Please use your browser誷 Back button to " . "return to the form and try again." ); $q->end_html; exit;}send_feedback( $email, $message );send_receipt( $email );print $q->redirect( "/feedback/thanks.html" );sub send_feedback { my( $email, $message ) = @_; open MAIL, "| /usr/lib/sendmail -t -i" or die "Could not open sendmail: $!"; print MAIL <<END_OF_MESSAGE;To: webmaster\@scripted.comReply-To: $emailSubject: Web Site FeedbackFeedback from a user:$messageEND_OF_MESSAGE close MAIL or die "Error closing sendmail: $!";}sub send_receipt { my $email = shift; my $from_email = shift || $ENV{SERVER_ADMIN}; my $from_name = shift || "The Webmaster"; open MAIL, "| /usr/lib/sendmail -t -F'$from_name' -f'$from_email'" or die "Could not open sendmail: $!"; print MAIL <<END_OF_MESSAGE;To: $emailSubject: Your feedbackYour message has been sent and someone should be responding to you shortly. Thanks for taking the time to provide us with your feedback!END_OF_MESSAGE close MAIL or die "Error closing sendmail: $!";}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -