Thread: maintaining the same email address in a form
View Single Post
  #1 (permalink)  
Old 11-26-07, 07:01 PM
cedric813 cedric813 is offline
Newbie Coder
  
Join Date: Jun 2007
Posts: 38
Thanks: 0
Thanked 0 Times in 0 Posts
maintaining the same email address in a form
Hi everyone,

I have this code below that will email the contents of a web page in HTML to a person of my choosing. Right now there are 2 fields to fill in: recipient's email address and sender's email address. Since the sender's email address (my email address) will always be the same, I would like to remove this field from the form and add something to the code so that it will automatically use my email address as the sender's email address when sending the email. The only field that I would like visable is the recipient's email address field. Can anyone help me please?

Thanks,
Cedric


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. require 'mailpage.conf';
  12. require $mtvwebdesignlib;
  13.  
  14. main: {
  15. &getinput;
  16. &GetCookies;
  17.  
  18. if (lc $FORM{'action'} eq "send") { &getbase($FORM{'url'}); &send; }
  19. elsif (lc $FORM{'action'} eq "privacy") {&privacy;}
  20. else { &moreinfo }
  21.  
  23. }
  24.  
  25.  
  26. sub moreinfo {
  27. $FORM{'url'} = $ENV{'HTTP_REFERER'} unless $FORM{'url'};
  28. if ($FORM{'url'} !~ m/^http/ ) { $FORM{'url'} = $ENV{'HTTP_REFERER'}; }
  29.  
  30. print "Content-type: text/html\n\n";
  31. &pageheader("Email Hits");
  32. foreach $line (@temptoken) {
  33.     if ($line =~ m/$token/i) {
  35. <form action="$ENV{'SCRIPT_NAME'}" method="post">
  36. <input type="hidden" name="action" value="send">
  37. <input type="hidden" name="url" value="$FORM{'url'}">
  38. <TABLE BORDER=0 CELLPADDING=1 CELLSPACING=0 >
  39.     <TR>
  40.     <TD>Sender's Email address<input name="senderemail" value="$Cookies{'email'}"></TD>
  41.     </TR>
  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");
  55. }
  56.  
  57. sub send {
  58.  
  59. &check_email($FORM{'senderemail'});
  60. &check_email($FORM{'recipientemail'});
  61.  
  62. &send_body;
  63.  
  64. &SetCookies("email",$FORM{'senderemail'});
  65. print "Content-type: text/html\n\n";
  66. &pageheader("Send!");
  67. foreach $line (@temptoken) {
  68.     if ($line =~ m/$token/i) {
  70. <h2>Sent!</h2>
  71. The email has been sent to $FORM{'recipient'}. Please click the back button below to return to the page you were before.<p>
  72. <center><FORM><INPUT type="button" value="Back" onClick="history.go(-2)"></FORM></center>
  73. ~;
  74.     }
  75. print "$line";
  76. }
  77. &powered_by("nologout");
  78. $JUMP_TO = $ENV{'HTTP_REFERER'};
  80. }
  81.  
  82.  
  83. sub send_body {
  84. $req = new HTTP::Request 'GET' => $FORM{'url'};
  85. $res = $ua->request($req);
  86.  
  87. if ($res->is_success) {
  88. #print "Content-type: image/gif\n\n";
  89. #print $res->content;
  90.  
  91.  
  92. open MAIL, "$mailprog" || die "Cannot open $mailprog so I cannot send email";
  93. print MAIL "To: $FORM{'recipientemail'}\n";
  94. print MAIL "From: $FORM{'senderemail'}\n";
  95. print MAIL "Subject: Info Centres Advertisement Stats\n";
  96. print MAIL "Content-type: text/html\n\n";
  97.  
  98. foreach $line ($res->content) {
  99. if ($line =~ /\<body/ig) { $line =~ s/<body(.*?)\>/\<body $1\>$header/ig;}
  100. if ($line =~ /\<head/ig) { $line =~ s/<head>/<head><base href=\"$base\">/ig;}
  101. print MAIL $line; 
  102. }
  104. close MAIL;
  106. }
  107. else {
  108. &send_plain;
  109. }
  110. }
  112. sub privacy {
  113. print "Content-type: text/html\n\n";
  114. &pageheader("Privacy Policy");
  115. foreach $line (@temptoken) {
  116.     if ($line =~ m/$token/i) {
  117. print qq~
  118. <h2>Privacy Policy</h2>
  119. ~;
  121. open FILE, $privacy_file || die "Cannot open $privacy_file";
  122. flock(FILE, 2) if $use_flock;
  123. @lines = <FILE>;
  124. flock(FILE, 8) if $use_flock;
  125. close FILE;
  127. print @lines;
  129.     }
  130. print "$line";
  131. }
  132. &powered_by("nologout");
  133. }
  135. sub getbase {
  136. local($baseurl) = @_;
  138. if ($baseurl =~ /\.html?$/i) {
  139. @items = split(/\//,$baseurl);
  141. $n = scalar @items;
  142. $n--;
  144. for($i=0;$i<$n;$i++) {
  145. $base .= @items[$i] . "/";
  146. }
  149. }
  150. else { $base = $baseurl; }
  151. }
  153. sub errors {
  154. local($errors) = @_;
  156. &expires_header("now");
  157. print "Content-type: text/html\n\n";
  158. &pageheader('An error occured');
  159. foreach $line (@temptoken) {
  160.     if ($line =~ m/$token/i) {
  161.         if ($errors eq 'with the email address you gave') {
  162.             print qq~
  163.             <h2>Invalid email address</h2>
  164.             The following email address is invalid: $invalidmail<br>
  165.             Please press the back button and try again.
  166.             ~;
  167.         }
  170. # If the error type was not found:
  171.         else {
  172.         print qq~
  173.         Error Undefined! Please contact <a href="mailto:$webmasteremail?subject=Error_Undefined">$webmasteremail</a> and be detailed in what you did what caused the error.
  174.         ~;
  175.         }
  177. # Back button:
  178. print qq~
  179. <center><FORM><INPUT type="button" value="Back" onClick="history.go(-1)"></FORM></center>
  180. ~;
  181.     }
  182.     print "$line";
  183. }
  184. &powered_by("nologout");
  185. $JUMP_TO = $ENV{'HTTP_REFERER'};
  186. exit; # Exit the script when an error occured.
  187. }
Last edited by Nico; 11-27-07 at 10:49 AM.
Reply With Quote