Thread: maintaining the same email address in a form
View Single Post
  #2 (permalink)  
Old 11-27-07, 12:22 AM
curbview.com's Avatar
curbview.com curbview.com is offline
Junior Code Guru
  
Join Date: May 2006
Posts: 555
Thanks: 0
Thanked 0 Times in 0 Posts
Here you go!

perl Code:
  1. #!/usr/bin/perl
  2.  
  3. $scriptname = "MailPage";
  4. $version = "2.0";
  5.  
  6. use LWP::UserAgent;
  7. $ua = new LWP::UserAgent;
  8. $ua->agent("$ENV{'HTTP_USER_AGENT'}");
  9. use CGI::Carp qw(fatalsToBrowser); # Provides you with fatal error message if they occur.
  10. use CGI qw/:standard/;
  11.  
  12. my $email = 'info@your_site.com'; #THIS WILL BE THE SENDER'S ADDRESS
  13.  
  14. require 'mailpage.conf';
  15. require $mtvwebdesignlib;
  16.  
  17. main: {
  18. &getinput;
  19. &GetCookies;
  20.  
  21. if (lc $FORM{'action'} eq "send") { &getbase($FORM{'url'}); &send; }
  22. elsif (lc $FORM{'action'} eq "privacy") {&privacy;}
  23. else { &moreinfo }
  24.  
  26. }
  27.  
  28.  
  29. sub moreinfo {
  30. $FORM{'url'} = $ENV{'HTTP_REFERER'} unless $FORM{'url'};
  31. if ($FORM{'url'} !~ m/^http/ ) { $FORM{'url'} = $ENV{'HTTP_REFERER'}; }
  32.  
  33. print "Content-type: text/html\n\n";
  34. &pageheader("Email Hits");
  35. foreach $line (@temptoken) {
  36.     if ($line =~ m/$token/i) {
  38. <form action="$ENV{'SCRIPT_NAME'}" method="post">
  39. <input type="hidden" name="action" value="send">
  40. <input type="hidden" name="url" value="$FORM{'url'}">
  41. <TABLE BORDER=0 CELLPADDING=1 CELLSPACING=0 >
  42.     <TR>
  43.     <TD>Recipient's Email address<input type="text" name="recipientemail"></TD>
  44.     <td><INPUT TYPE="submit" VALUE="SEND"></td>
  45.     </TR>
  46.   </TABLE>
  47.   </BLOCKQUOTE>
  48. </form>
  49. ~;
  50.     }
  51. print "$line";
  52. }
  53. &powered_by("nologout");
  54. exit;
  55. }
  57. sub send {
  59. &check_email($FORM{'senderemail'});
  60. &send_body;
  63. print "Content-type: text/html\n\n";
  64. &pageheader("Send!");
  65. foreach $line (@temptoken) {
  66.     if ($line =~ m/$token/i) {
  67. print qq~
  68. <h2>Sent!</h2>
  69. The email has been sent to $FORM{'recipient'}. Please click the back button below to return to the page you were before.<p>
  70. <center><FORM><INPUT type="button" value="Back" onClick="history.go(-2)"></FORM></center>
  71. ~;
  72.     }
  73. print "$line";
  74. }
  75. &powered_by("nologout");
  76. $JUMP_TO = $ENV{'HTTP_REFERER'};
  77. exit;
  78. }
  81. sub send_body {
  82. $req = new HTTP::Request 'GET' => $FORM{'url'};
  83. $res = $ua->request($req);
  85. if ($res->is_success) {
  86. #print "Content-type: image/gif\n\n";
  87. #print $res->content;
  90. open MAIL, "$mailprog" || die "Cannot open $mailprog so I cannot send email";
  91. print MAIL "To: $FORM{'recipientemail'}\n";
  92. print MAIL "From: $email\n";
  93. print MAIL "Subject: Info Centres Advertisement Stats\n";
  94. print MAIL "Content-type: text/html\n\n";
  96. foreach $line ($res->content) {
  97. if ($line =~ /\<body/ig) { $line =~ s/<body(.*?)\>/\<body $1\>$header/ig;}
  98. if ($line =~ /\<head/ig) { $line =~ s/<head>/<head><base href=\"$base\">/ig;}
  99. print MAIL $line; 
  100. }
  102. close MAIL;
  104. }
  105. else {
  106. &send_plain;
  107. }
  108. }
  110. sub privacy {
  111. print "Content-type: text/html\n\n";
  112. &pageheader("Privacy Policy");
  113. foreach $line (@temptoken) {
  114.     if ($line =~ m/$token/i) {
  115. print qq~
  116. <h2>Privacy Policy</h2>
  117. ~;
  119. open FILE, $privacy_file || die "Cannot open $privacy_file";
  120. flock(FILE, 2) if $use_flock;
  121. @lines = <FILE>;
  122. flock(FILE, 8) if $use_flock;
  123. close FILE;
  125. print @lines;
  127.     }
  128. print "$line";
  129. }
  130. &powered_by("nologout");
  131. }
  133. sub getbase {
  134. local($baseurl) = @_;
  136. if ($baseurl =~ /\.html?$/i) {
  137. @items = split(/\//,$baseurl);
  139. $n = scalar @items;
  140. $n--;
  142. for($i=0;$i<$n;$i++) {
  143. $base .= @items[$i] . "/";
  144. }
  147. }
  148. else { $base = $baseurl; }
  149. }
  151. sub errors {
  152. local($errors) = @_;
  154. &expires_header("now");
  155. print "Content-type: text/html\n\n";
  156. &pageheader('An error occured');
  157. foreach $line (@temptoken) {
  158.     if ($line =~ m/$token/i) {
  159.         if ($errors eq 'with the email address you gave') {
  160.             print qq~
  161.             <h2>Invalid email address</h2>
  162.             The following email address is invalid: $invalidmail<br>
  163.             Please press the back button and try again.
  164.             ~;
  165.         }
  168. # If the error type was not found:
  169.         else {
  170.         print qq~
  171.         Error Undefined! Please contact <a href="mailto:$email?subject=Error_Undefined">$webmasteremail</a> and be detailed in what you did what caused the error.
  172.         ~;
  173.         }
  175. # Back button:
  176. print qq~
  177. <center><FORM><INPUT type="button" value="Back" onClick="history.go(-1)"></FORM></center>
  178. ~;
  179.     }
  180.     print "$line";
  181. }
  182. &powered_by("nologout");
  183. $JUMP_TO = $ENV{'HTTP_REFERER'};
  184. exit; # Exit the script when an error occured.
  185. }
Reply With Quote