By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
432,306 Members | 1,657 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 432,306 IT Pros & Developers. It's quick & easy.

if condition error

P: n/a
Hi,

I'm using this perl script to get the information from a form and send
it through email. The problem is when I do an email address validation.
it seems it does not want to match it. For example, i give the real
ab*@abc.com for mail_from it works. But if I give 123, the web page
turns error 500 internal error. Please advice.

#!/usr/bin/perl
use strict;
use warnings;

use CGI;
use CGI::Pretty qw(:all);

my $cgi = new CGI;

my $rcpt_to = "abc\@abc\.com";
my $mail_from = $cgi -> param('email');
my $subject = $cgi -> param('milis');
my $data = $cgi -> param('keterangan');
my $request_method = $ENV{'REQUEST_METHOD'};
my $remote_address = $ENV{'REMOTE_ADDR'};
my $mail = "/usr/bin/mail -s $subject $rcpt_to";

if (
# $mail_from =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||
# $mail_from !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z0-9]+)(\]?)$/)
$mail_from == '123'
) {
print "Email Error";
}
else {
print $cgi -> header();
print $cgi -> start_html("Title HERE!");
print $cgi -> param('email'), "<br/>";
print $cgi -> param('milis'), "<br/>";
print $cgi -> param('keterangan'), "<br/>";
print $cgi -> end_html();

open (MAIL, "| $mail");
print MAIL "$remote_address \n $data\n\n";
close (MAIL);
}
Mar 17 '06 #1
Share this Question
Share on Google+
2 Replies


P: n/a
David Sudjiman wrote:
[...]
validation. it seems it does not want to match it. For example, i
give the real ab*@abc.com for mail_from it works. But if I give 123,
the web page turns error 500 internal error. Please advice.


Did you check "perldoc -q 500"?

jue
Mar 17 '06 #2

P: n/a
Jürgen Exner wrote:
Did you check "perldoc -q 500"?


Just another cliche mistake. i need a bit a time of sleep. Check the
error.log and found out that i forgot to put the header if the condition
is true.

"Did you decide to go see a movie?"

thx
..dave

http://www.davidsudjiman.info
Mar 18 '06 #3

This discussion thread is closed

Replies have been disabled for this discussion.