#!/usr/bin/perl
#Sending A Mail To Single Person


use strict;
use Mail::Sendmail;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

    my $ob = CGI->new;
    print $ob->header,

          $ob->start_html( -title =>" Send An E-mail" ),
          $ob->h2($ob->i("<u>Sending Mail </u>")),
          $ob->hr({-color=>"black"});

    if ( $ob->param('Submit') )                ## If u Press submit Button the Get form values & Send Mail
        {
          my $ur_name = $ob->param('sender');
          my $ur_eid  = $ob->param('ur_email');
          my $rp_name = $ob->param('recipient');
          my $rp_eid  = $ob->param('res_email');
          my $subjt = $ob->param('subj');
          my $mssg = $ob->param('msg');

          print $ob->b("Ur : $ur_eid  Rps: $rp_eid  Subject: $subjt Message: $mssg <br> ");

         my  %mail = ( To      => "$rp_eid" ,
                       From    => "$ur_eid" ,
                       Subject => "$subjt" ,
                       Message =>  " $mssg " );

         sendmail(%mail) or die $Mail::Sendmail::error;
     print "OK. Log says:\n", $Mail::Sendmail::log;

#          &sendmail( $ob, $ur_eid, $rp_eid, $subjt, $mssg);   ### Sending The Mail
#
#          sub sendmail
#           {
#           my ($ob, $from, $to, $subject, $message) = @_;
#            $ENV{PATH} = "/usr/sbin";
#            open (MAIL, "|/usr/sbin/sendmail -oi -t") or
#               &dienice("Can't fork for sendmail: $!\n");
#            print MAIL "To: $to\n";
#            print MAIL "From: $from\n";
#            print MAIL "Subject: $subject\n\n";
#            print MAIL "$message\n";
#            close(MAIL);
#          }

print <<EndHTML;
<h2>Thank You</h2>
<p>Thank you for writing!</p>
<p>Return to our <a href="">home page</a>.</p>
EndHTML

       }

    else
       {

        print $ob->start_form( -name =>'email' , -method => "POST" ,
                           -action =>"http://localhost/cgi-bin/cgiprog/send_email.cgi");
   #     printf $ob->b( "user/group:%s/%s</br>\n",scalar getpwuid( $< ), scalar getgrgid( $( ) );

    print "<table>";
 print "<tr><td>";
    print $ob->b($ob->i("Sendername"));
    print " &nbsp &nbsp ";

    print $ob->textfield(-name =>'sender',-size=>'25');
    print "</td><td>";
    print " &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp ";
    print $ob->b($ob->i("Ur Email Id"));
    print " &nbsp &nbsp ";
    print $ob->textfield(-name =>'ur_email',-size=>'25'),
          $ob->br;
    print "</td></tr></table>";


    print $ob->br($ob->br);
    print "<table>";
    print "<tr><td>";
    print $ob->b($ob->i("RecipientName"));

    print " &nbsp ";
    print $ob->textfield(-name =>'recipient' , -size => '25');
    print "</td> <td>";
    print "&nbsp &nbsp &nbsp &nbsp &nbsp &nbsp
           &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp ";

    print $ob->b($ob->i("  Email To"));
    print " &nbsp ";
    print $ob->textfield(-name =>'res_email', -size=>'25');


    print "</td></tr>";
    print "</table>";

    print $ob->br($ob->br),
 $ob->b($ob->i("Subject")),
          $ob->textfield(-name =>'subj', -size => '74'),
          $ob->br($ob->br),
          $ob->b($ob->i("Message")),
          $ob->br,
          $ob->textarea(-name =>'msg', -rows =>'15' , -cols => '80'),
          $ob->br($ob->br);

    print "<Center>";
    print $ob->submit(-name => "Submit" , -value =>"Send Mail");
    print "&nbsp &nbsp &nbsp";
    print $ob->reset;

    print $ob->end_form;
      }
    print $ob->end_html;