SHARE
TWEET

Untitled

a guest Jun 25th, 2019 61 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. <body>
  2.    <form action="form.cgi" method="get">
  3. </form>
  4.  
  5. <h1>Feedback Form</h1>
  6. <p>Please fill out the entire feedback form.</p>
  7. <table>
  8. <tr>
  9. <td><b>To (recipient's e-mail address):</b></td>
  10. </tr>
  11. <tr>
  12. <td><input type = "text" name = "mailTo" size = "40"  /></td>
  13. </tr>
  14. <tr>
  15. <td><b>From (your e-mail address):</b></td>
  16. </tr>
  17. <tr>
  18. <td><input type = "text" name = "mailFrom" size = "40" /></td>
  19. </tr>
  20. <tr>
  21. <td><b>Enter a subject:</b></td>
  22. </tr>
  23. <tr>
  24. <td><input type = "text" name = "subjectLine" size = "40" /></td>
  25. </tr>
  26. <tr>
  27. <td><b>Enter your message:</b></td>
  28. </tr>
  29. <tr>
  30. <td><textarea name = "message" rows = "10" cols = "50"></textarea></td>
  31. </tr>
  32. <tr>
  33. <td></td>
  34. </tr>
  35. <tr>
  36. <td><input type = "submit" name = "sbutton" value = "Submit" />
  37. <input type = "reset" value = "Reset" /></td>
  38. </tr>
  39. </table>
  40.  
  41. <br><br><br><br><br>
  42.  
  43.  
  44.  
  45.  </div>
  46.  </body></html>
  47.  
  48.  
  49.  PERL/CGI form CODE      
  50.  
  51.   #!/usr/bin/perl
  52.   use Modern:: Perl;
  53.   use Mail::Sendmail;
  54.  
  55.   my $mailFrom = email@email';
  56.  
  57.   my $subjectLine = "Sample Subject:l
  58.   my $message = "Sample Message!";
  59.   my %mail = ( To      => $mailTo,
  60.          From    => $mailFrom,
  61.      Subject => $subjectLine,
  62.      Message => $message,
  63.           'Content-Type' => 'text/plain'
  64.          );
  65.  
  66.    if ( sendmail %mail )
  67.       {
  68.    print "Sucessfully sent mail to $mailTo. Check you box! n";
  69.       }
  70.      else
  71.       {
  72.     print "Error sending mail: $Mail::Sendmail::error n";
  73.       }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top