Mailing Wonders?? Need Help

[Sabherwal, Balvinder \(MBS\)]

Guru's

I have a script sending the mail from am ASCII text file. I have attached
the ASCII text file and the mail sent by the program as well. I am unable to
find why the script is not sending me the complete ASCII file contents in
the mail. Can anyone help me resolve the mystery?? The script is always
missing the last few lines from the ASCII file.

Thanks
Bal


    open (ERR,"< $logfile");
    while (<ERR>)    {
        chomp;
        foreach my $e (@errlst) {
                $errcnt++ if ( $_ =~ /\s+$e/) ;
        }
        $mtxt .= $_ if ($_ =~ /\w+/);
    }
    if ($errcnt == 0)   {
       open MAIL, "|/usr/bin/mailx -s \"DBCC $DBCCType results for $db
databaseon $opt_S Server \" $opt_M";
    }
    else {
       open MAIL, "|/usr/bin/mailx -s \"DBCC $DBCCType Errors for $db
database on $opt_S Server \" $opt_M";
    }
    print "$mtxt\n";
    close ERR;
    close MAIL;  

_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs