Hello woody2010 and welcome to the monastery.

A quick sanity check on a ten year old script is your best starting point, you will have a better understanding of perl now, and will more easily be able to spot errors preventing successful transmission.

$mo = "$mo <option value=\"$name_email{$key}\"> $key <
+/option> \n";
# my $mo ?

[download]

Will have flagged straight away with the use warnings & use strict pragmas.

open(MAIL, "|usr/bin/sendmail") ||&staus('update status message');

Does not exit gracefully on failure. What the code appears to do is update the status message to 'could not send' and then continue to attempt to send the message, returning a succesfully sent headed page to the user with a message declaring the message 'could not send'.

A further and probably the most important sanity check would be to run the script in Taint mode.

#!usr/bin/perl -T

The pipe open on 'user submitted'(?) email addresses, re where does $mo originate from? Is a priority concern.

Taint mode will hold the fort for you, while you convert this into a fork(exec sendmail) routine.

Form action should generally be post rather than get, $mo again.

It would not be inconceivable that a savvy hacker could supply their own list for $cgi->param('t'), resulting in spam reports on emails from your domain, leading to your domain being blocked.

So a number of things to look at really, try those. When the script is operating properly, you may better be able to identify the cause of the problem.

In reply to Re: perl script update by Don Coyote
in thread perl script update by woody2010

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.