Perl Guru Forums: Need a Custom or Prewritten Perl Program?: I Need a Programmer for Freelance Work: Reply to post

CGI/Perl Guide | Learning Center | Forums | Advertise | Login

Site Search: in


	MAIN INDEX	SEARCH POSTS	WHO'S ONLINE	LOG IN

Home: Need a Custom or Prewritten Perl Program?: I Need a Programmer for Freelance Work:
Reply to: Re: nt 200 server help

Subject:

Guest Username:

E-mail address:

Post Style:

Get Markup Help

Icon:

none

Post:

[reply]Thanks Marcus.

Here is the code. Near the beginning of the code, they define:

$SMTPMailServer = 'wwwsvr.theirdomain.org';

When I try this same code on our unix mail server, it runs perfectly. So I must be missing something exclusive to NT.

One more note:  My client just installed Perl for this script, so it could be their installation or it could be my code. Unfortunately, I don't have access to their server.

Thanks again.

David

#!/usr/local/bin/perl
# Point the previous line to the location of Perl on your server
# On NT the first line would be something like #!e:\Perl\bin\Perl.exe

# There are two ways to set the email method

# Method 1 - Use with Unix servers and some NT servers
# Set the $mailprog variable to point to the mail system on your server.
# If you are on a unix server, it is probably correct.
# Sendmail, mail, and qmail are the most common. Your ISP should 
# be able # to give you the path and name of your server mailing program.
# You only need to set the next line if you use Method 1.

$mailprog = '/usr/sbin/sendmail';

# Method 2 - Use this on NT servers that do not have a sendmail program.
# You must have the perl module Net::SMTP installed on your server.
# Set the part between the single quotes to the SMTP mail host name.
# An example would be: $SMTPMailServer = 'mailhost.server.com';
# If you are using Method 1, there should be nothing between the quotes.

$SMTPMailServer = '';

# If Blat is used then set the path to Blat.exe & specify a temporary 
# file name. If Blat is not being used, leave both variables blank.
# Example:  $blatpathname = "e:\blat\blat.exe";
# Example:  $tempfilename = "e:\inetpub\vs20\cgi-bin\blat\mailtemp$$";
$blatpathname = '';
$tempfilename = '';

# After uploading this file to your server you MUST set the permissions.
# Set the permissions for User to Read, Write and Execute (numeric code 700).

#---------------------------------------------
# ------- End of User Setup Variables --------
#---------------------------------------------

# Read the data from the form
read(STDIN, $frmdat, $ENV{'CONTENT_LENGTH'});

# Split the data into its parts.
@namval = sort(split(/&/,$frmdat));
foreach (@namval) {
  tr/+/ /;
  s/=/ = /;
  s/%(..)/pack("C",hex($1))/ge;
  ($nam, $val) = split(/ = /,$_,2);
  $dat{$nam} = $val;
}

# --------- Read the variables passed from the form ---------

# Get the email address where the data from the form should be sent
$email = $dat{'recipient'};

# Get the subject line for the emails (same as codebook name)
$studyname = $dat{'studyname'};

# URL of the next page
# if url = the word "default" then then next page is an automatic thankyoupage
$nextpage = $dat{'nextpage'};

# Form processing method: email or file
$method = $dat{'method'};

# Location of directory when responses are saved to a file
$storagepath = $dat{'directory'};

# If the url has a ?xxxxx then the respondent ID already exists
# Otherwise, create a new respondent ID
$Fullurl = "$ENV{'HTTP_REFERER'}";
$Position = index($Fullurl,"?");
if ($Position > 0) {
    $respondentID = substr($Fullurl,$Position+1);
    # also remove bookmark if necessary
    $Position = index($respondentID,"#");
    if ($Position > 0) {
       $respondentID = substr($respondentID,0,$Position);
    }
} else {         
    $respondentID = int(100 + rand 99999899);
}

# --------- Use Mail Program to Send Mail Now ----------

if ($method eq 'email') {

&process_form;

if ($SMTPMailServer eq '') {

open(MAILOUT, "| $mailprog $email") ||
        &showerror("Cannot start mail program:","$storagepath $email");
        print MAILOUT "Subject: $studyname\n\n";
        # For each form field, print the form field and value.
        foreach $field (@Field_Order) {
           print MAILOUT "$field: $Form{$field}\n";
        }
        # Print blank line after each form
        print MAILOUT "\n"; 
        close(MAILOUT);

} else {

if ($blatpathname eq '') {

use Net::SMTP;
            $smtp = Net::SMTP->new($SMTPMailServer); 
            $from = $email;
            # You can change the From email address to anything here (leave the \ before the @)
            # $from = "surveys\@yourdomain.com";
            $subject = $studyname;
            # You can change the subject line to anything you want here 
            # $subject = "Type any subject line here";
            $smtp->mail($from); 
            $smtp->to($email); 
            $smtp->data(); 
            $smtp->datasend("To: ", $email, "\n"); 
            $smtp->datasend("Subject: ", $subject, "\n"); 
            $smtp->datasend("\n"); 
            foreach $field (@Field_Order) {
               $smtp->datasend("$field: $Form{$field}\n");
            }
            $smtp->dataend(); 
            $smtp->quit;

} else {

# Blat is being used
            open(outfile,">$tempfilename");
            foreach $field (@Field_Order) {
                print outfile "$field: $Form{$field}\n";
            }
            print outfile "\n"; 
            close(outfile); 
            system("$blatpathname $tempfilename -s $subject -t $email -server $SMTPMailServer -f $email");
        }

}

# --------- Save Response to a File on the Server -----------

} elsif ($method eq 'file') {

# Name the output file the same as the codebook.asc
  srand;
  $storagefilename = $studyname;
  $storagefilename =~ s/\W/_/g;
  $outputfile = "$storagepath"."$storagefilename".".asc";

#   open(MAILOUT,">>$outputfile");
#   flock MAILOUT,2;
#   if (-e $storagepath) {

while ((!open(MAILOUT,">>$outputfile")) && ($counter < 100))
  {
    $counter = $counter + 1;
  }

if (not(-e $storagepath)) {
    &showerror("Incorrect path:","$storagepath");
  } elsif ($counter < 100) {

# Begin header with the user's IP address
    $responseID = "$ENV{'REMOTE_ADDR'}";

# End header with date
    @days   = ('Sunday','Monday','Tuesday','Wednesday',
               'Thursday','Friday','Saturday');
    @months = ('January','February','March','April','May','June','July',
	         'August','September','October','November','December');
    ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
    $time = sprintf("d:d:d",$hour,$min,$sec);
    $year += 1900;
    $date = "$days[$wday], $months[$mon] $mday, $year at $time";

&process_form;

# Begin header with the user's IP address
    # First line of the email header follows
    print MAILOUT "StatPac_ID: "."$responseID\n";

# Second line of the email header follows
    print MAILOUT "Respondent_ID: "."$respondentID\n";

# Last line of the email header follows
    print MAILOUT "Date_Time: "."$date\n";

# For each form field, print the form field and value.
    foreach $field (@Field_Order) {
           print MAILOUT "$field: $Form{$field}\n";
    }
    # Print blank line after each form
    print MAILOUT "\n";

close(MAILOUT);

} else {
    print "Content-type: text/html\n\n";
    print "<HTML>";
    print "<HEAD>";
    print "<TITLE> $studyname </TITLE>";
    print "</HEAD>";
    print "<BODY BGCOLOR=\"#FFFFFF\">";
    print "<FONT SIZE=\"5\" COLOR=\"#000000\" FACE=\"Arial\">";
    print "<FORM>";
    print "<CENTER>";
    print "<B>The server is busy.</B><BR>";
    print "Please press the Back button on your browser and try again.";
    print "</CENTER>";
    print "</FORM>";
    print "</FONT>";
    print "</BODY>";
    print "</HTML>";
    close(STDOUT);
    exit 0;
 }

# -------------------- Goofy Method Specified -------------------
} else {

&showerror("Not a valid method:","$method");

}

# -------------------- Create Default Thank You File -------------------

if ($nextpage eq "default") {
  print "Content-type: text/html\n\n";
  print "<HTML>";
  print "<HEAD>";
  print "<TITLE> $studyname </TITLE>";
  print "</HEAD>";
  print "<BODY BGCOLOR=\"#FFFFFF\">";
  print "<FONT SIZE=\"5\" COLOR=\"#000000\" FACE=\"Arial\">";
  print "<FORM>";
  print "<CENTER>";
  print "<B>Thank you for completing this survey.</B><BR><BR>";
  print "Your response has been received.";
  print "</CENTER>";
  print "</FORM>";
  print "</FONT>";
  print "</BODY>";
  print "</HTML>";

# -------------------- Show The Next Page -------------------

} else {

#  if nextpage has a bookmark, put the bookmark on the end of the page link

$bookmark='';
   $Position = index($nextpage,"#");
   if ($Position > 0) {
       $bookmark = substr($nextpage,$Position+1);
       $nextpage = substr($nextpage,0,$Position);
   }
   $finalurl = $nextpage."?".$respondentID; 
   if ($bookmark ne '') {
      $finalurl = $finalurl."#".$bookmark;
   }
   print "Location: $finalurl\n\n";
}
close(STDOUT);

# -------------------- Show A Perl Script Error -------------------

sub showerror {
  print "Content-type: text/html\n\n";
  print "<HTML>";
  print "<HEAD>";
  print "<TITLE> $studyname </TITLE>";
  print "</HEAD>";
  print "<BODY BGCOLOR=\"#FFFFFF\">";
  print "<FONT SIZE=\"6\" COLOR=\"#000000\" FACE=\"Arial\">";
  print "<FORM>";
  print "<CENTER>";
  print "<B>Error in the perl script:</B><BR>";
  print "</FONT>";
  print "<FONT SIZE=\"5\" COLOR=\"#000000\" FACE=\"Arial\">";
  print "<B><I>$ENV{'SCRIPT_FILENAME'}</B></I><BR><BR>";
  print "</FONT>";
  print "<FONT SIZE=\"4\" COLOR=\"#000000\" FACE=\"Arial\">";
  foreach (@_) {
    print "$_<BR>";
  }
  print "</CENTER>";
  print "</FORM>";
  print "</FONT>";
  print "</BODY>";
  print "</HTML>";
  close(STDOUT);
  exit 0;
}

sub process_form {

# Define the configuration array for special fields
    %Config = ('recipient','',    'method','',
               'directory','',    'studyname','',
               'nextpage','');

# What is the form's REQUEST_METHOD (GET or POST)
    if ($ENV{'REQUEST_METHOD'} eq 'GET') {
        # Split the name-value pairs
        @pairs = split(/&/, $ENV{'QUERY_STRING'});
    }
    elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
        $buffer = $frmdat;
        # Split the name-value pairs
        @pairs = split(/&/, $buffer);
    }
    else {
        &error('request_method');
    }

# Do for each name-value pair
    foreach $pair (@pairs) {

# Split up the pair
        local($name, $value) = split(/=/, $pair);
 
        # Decode the form encoding
        $name =~ tr/+/ /;
        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

# Erase any server side includes
        $value =~ s///g;

# Erase any embedded carriage returns, tabs, line feed, & form feed characters
        $value =~ s/[\r\t\n\f]/ /g;

# Put special field names in the %Config array & others in the %Form array
        # Save the order of the form fields in the @Field_Order array       
        if (defined($Config{$name})) {
            $Config{$name} = $value;
        }
        else {
            if ($Form{$name} && $value) {
                $Form{$name} = "$Form{$name}, $value";
            }
            elsif ($value) {
                push(@Field_Order,$name);
                $Form{$name} = $value;
            }
        }
    }
}

[/reply]

Replying to:

Re: nt 200 server help by statpac

Post:

Thanks Marcus.

Here is the code. Near the beginning of the code, they define:

$SMTPMailServer = 'wwwsvr.theirdomain.org';

When I try this same code on our unix mail server, it runs perfectly. So I must be missing something exclusive to NT.

One more note: My client just installed Perl for this script, so it could be their installation or it could be my code. Unfortunately, I don't have access to their server.

Thanks again.

David

#!/usr/local/bin/perl
# Point the previous line to the location of Perl on your server
# On NT the first line would be something like #!e:\Perl\bin\Perl.exe

# There are two ways to set the email method

# Method 1 - Use with Unix servers and some NT servers
# Set the $mailprog variable to point to the mail system on your server.
# If you are on a unix server, it is probably correct.
# Sendmail, mail, and qmail are the most common. Your ISP should
# be able # to give you the path and name of your server mailing program.
# You only need to set the next line if you use Method 1.

$mailprog = '/usr/sbin/sendmail';

# Method 2 - Use this on NT servers that do not have a sendmail program.
# You must have the perl module Net::SMTP installed on your server.
# Set the part between the single quotes to the SMTP mail host name.
# An example would be: $SMTPMailServer = 'mailhost.server.com';
# If you are using Method 1, there should be nothing between the quotes.

$SMTPMailServer = '';

# If Blat is used then set the path to Blat.exe & specify a temporary
# file name. If Blat is not being used, leave both variables blank.
# Example: $blatpathname = "e:\blat\blat.exe";
# Example: $tempfilename = "e:\inetpub\vs20\cgi-bin\blat\mailtemp$$";
$blatpathname = '';
$tempfilename = '';

# After uploading this file to your server you MUST set the permissions.
# Set the permissions for User to Read, Write and Execute (numeric code 700).

#---------------------------------------------
# ------- End of User Setup Variables --------
#---------------------------------------------

# Read the data from the form
read(STDIN, $frmdat, $ENV{'CONTENT_LENGTH'});

# Split the data into its parts.
@namval = sort(split(/&/,$frmdat));
foreach (@namval) {
tr/+/ /;
s/=/ = /;
s/%(..)/pack("C",hex($1))/ge;
($nam, $val) = split(/ = /,$_,2);
$dat{$nam} = $val;
}

# --------- Read the variables passed from the form ---------

# Get the email address where the data from the form should be sent
$email = $dat{'recipient'};

# Get the subject line for the emails (same as codebook name)
$studyname = $dat{'studyname'};

# URL of the next page
# if url = the word "default" then then next page is an automatic thankyoupage
$nextpage = $dat{'nextpage'};

# Form processing method: email or file
$method = $dat{'method'};

# Location of directory when responses are saved to a file
$storagepath = $dat{'directory'};

# If the url has a ?xxxxx then the respondent ID already exists
# Otherwise, create a new respondent ID
$Fullurl = "$ENV{'HTTP_REFERER'}";
$Position = index($Fullurl,"?");
if ($Position > 0) {
$respondentID = substr($Fullurl,$Position+1);
# also remove bookmark if necessary
$Position = index($respondentID,"#");
if ($Position > 0) {
$respondentID = substr($respondentID,0,$Position);
}
} else {
$respondentID = int(100 + rand 99999899);
}

# --------- Use Mail Program to Send Mail Now ----------

if ($method eq 'email') {

&process_form;

if ($SMTPMailServer eq '') {

open(MAILOUT, "| $mailprog $email") ||
&showerror("Cannot start mail program:","$storagepath $email");
print MAILOUT "Subject: $studyname\n\n";
# For each form field, print the form field and value.
foreach $field (@Field_Order) {
print MAILOUT "$field: $Form{$field}\n";
}
# Print blank line after each form
print MAILOUT "\n";
close(MAILOUT);

} else {

if ($blatpathname eq '') {

use Net::SMTP;
$smtp = Net::SMTP->new($SMTPMailServer);
$from = $email;
# You can change the From email address to anything here (leave the \ before the @)
# $from = "surveys\@yourdomain.com";
$subject = $studyname;
# You can change the subject line to anything you want here
# $subject = "Type any subject line here";
$smtp->mail($from);
$smtp->to($email);
$smtp->data();
$smtp->datasend("To: ", $email, "\n");
$smtp->datasend("Subject: ", $subject, "\n");
$smtp->datasend("\n");
foreach $field (@Field_Order) {
$smtp->datasend("$field: $Form{$field}\n");
}
$smtp->dataend();
$smtp->quit;

} else {

# Blat is being used
open(outfile,">$tempfilename");
foreach $field (@Field_Order) {
print outfile "$field: $Form{$field}\n";
}
print outfile "\n";
close(outfile);
system("$blatpathname $tempfilename -s $subject -t $email -server $SMTPMailServer -f $email");
}

}

# --------- Save Response to a File on the Server -----------

} elsif ($method eq 'file') {

# Name the output file the same as the codebook.asc
srand;
$storagefilename = $studyname;
$storagefilename =~ s/\W/_/g;
$outputfile = "$storagepath"."$storagefilename".".asc";

# open(MAILOUT,">>$outputfile");
# flock MAILOUT,2;
# if (-e $storagepath) {

while ((!open(MAILOUT,">>$outputfile")) && ($counter < 100))
{
$counter = $counter + 1;
}

if (not(-e $storagepath)) {
&showerror("Incorrect path:","$storagepath");
} elsif ($counter < 100) {

# Begin header with the user's IP address
$responseID = "$ENV{'REMOTE_ADDR'}";

# End header with date
@days = ('Sunday','Monday','Tuesday','Wednesday',
'Thursday','Friday','Saturday');
@months = ('January','February','March','April','May','June','July',
'August','September','October','November','December');
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$time = sprintf("d:d:d",$hour,$min,$sec);
$year += 1900;
$date = "$days[$wday], $months[$mon] $mday, $year at $time";

&process_form;

# Begin header with the user's IP address
# First line of the email header follows
print MAILOUT "StatPac_ID: "."$responseID\n";

# Second line of the email header follows
print MAILOUT "Respondent_ID: "."$respondentID\n";

# Last line of the email header follows
print MAILOUT "Date_Time: "."$date\n";

# For each form field, print the form field and value.
foreach $field (@Field_Order) {
print MAILOUT "$field: $Form{$field}\n";
}
# Print blank line after each form
print MAILOUT "\n";

close(MAILOUT);

} else {
print "Content-type: text/html\n\n";
print "<HTML>";
print "<HEAD>";
print "<TITLE> $studyname </TITLE>";
print "</HEAD>";
print "<BODY BGCOLOR=\"#FFFFFF\">";
print "<FONT SIZE=\"5\" COLOR=\"#000000\" FACE=\"Arial\">";
print "<FORM>";
print "<CENTER>";
print "<B>The server is busy.</B><BR>";
print "Please press the Back button on your browser and try again.";
print "</CENTER>";
print "</FORM>";
print "</FONT>";
print "</BODY>";
print "</HTML>";
close(STDOUT);
exit 0;
}

# -------------------- Goofy Method Specified -------------------
} else {

&showerror("Not a valid method:","$method");

}

# -------------------- Create Default Thank You File -------------------

if ($nextpage eq "default") {
print "Content-type: text/html\n\n";
print "<HTML>";
print "<HEAD>";
print "<TITLE> $studyname </TITLE>";
print "</HEAD>";
print "<BODY BGCOLOR=\"#FFFFFF\">";
print "<FONT SIZE=\"5\" COLOR=\"#000000\" FACE=\"Arial\">";
print "<FORM>";
print "<CENTER>";
print "<B>Thank you for completing this survey.</B><BR><BR>";
print "Your response has been received.";
print "</CENTER>";
print "</FORM>";
print "</FONT>";
print "</BODY>";
print "</HTML>";

# -------------------- Show The Next Page -------------------

} else {

# if nextpage has a bookmark, put the bookmark on the end of the page link

$bookmark='';
$Position = index($nextpage,"#");
if ($Position > 0) {
$bookmark = substr($nextpage,$Position+1);
$nextpage = substr($nextpage,0,$Position);
}
$finalurl = $nextpage."?".$respondentID;
if ($bookmark ne '') {
$finalurl = $finalurl."#".$bookmark;
}
print "Location: $finalurl\n\n";
}
close(STDOUT);

# -------------------- Show A Perl Script Error -------------------

sub showerror {
print "Content-type: text/html\n\n";
print "<HTML>";
print "<HEAD>";
print "<TITLE> $studyname </TITLE>";
print "</HEAD>";
print "<BODY BGCOLOR=\"#FFFFFF\">";
print "<FONT SIZE=\"6\" COLOR=\"#000000\" FACE=\"Arial\">";
print "<FORM>";
print "<CENTER>";
print "<B>Error in the perl script:</B><BR>";
print "</FONT>";
print "<FONT SIZE=\"5\" COLOR=\"#000000\" FACE=\"Arial\">";
print "<B><I>$ENV{'SCRIPT_FILENAME'}</B></I><BR><BR>";
print "</FONT>";
print "<FONT SIZE=\"4\" COLOR=\"#000000\" FACE=\"Arial\">";
foreach (@_) {
print "$_<BR>";
}
print "</CENTER>";
print "</FORM>";
print "</FONT>";
print "</BODY>";
print "</HTML>";
close(STDOUT);
exit 0;
}

sub process_form {

# Define the configuration array for special fields
%Config = ('recipient','', 'method','',
'directory','', 'studyname','',
'nextpage','');

# What is the form's REQUEST_METHOD (GET or POST)
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
# Split the name-value pairs
@pairs = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
$buffer = $frmdat;
# Split the name-value pairs
@pairs = split(/&/, $buffer);
}
else {
&error('request_method');
}

# Do for each name-value pair
foreach $pair (@pairs) {

# Split up the pair
local($name, $value) = split(/=/, $pair);

# Decode the form encoding
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

# Erase any server side includes
$value =~ s///g;

# Erase any embedded carriage returns, tabs, line feed, & form feed characters
$value =~ s/[\r\t\n\f]/ /g;

# Put special field names in the %Config array & others in the %Form array
# Save the order of the form fields in the @Field_Order array
if (defined($Config{$name})) {
$Config{$name} = $value;
}
else {
if ($Form{$name} && $value) {
$Form{$name} = "$Form{$name}, $value";
}
elsif ($value) {
push(@Field_Order,$name);
$Form{$name} = $value;
}
}
}
}

Search for (options)

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives