OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Ralf S. Engelschall
Root: /v/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-web Date: 14-Feb-2005 12:04:10
Branch: HEAD Handle: 2005021411041000
Modified files:
openpkg-web petidomo.cgi
Log:
fix paths for new world order
Summary:
Revision Changes Path
1.5 +12 -2 openpkg-web/petidomo.cgi
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-web/petidomo.cgi
============================================================================
$ cvs diff -u -r1.4 -r1.5 petidomo.cgi
--- openpkg-web/petidomo.cgi 13 Oct 2004 06:58:31 -0000 1.4
+++ openpkg-web/petidomo.cgi 14 Feb 2005 11:04:10 -0000 1.5
@@ -1,4 +1,4 @@
-#!/e/openpkg/sw/bin/perl
+#!/v/openpkg/sw/bin/perl
##
## petidomo.cgi -- Send a mail to Petidomo
## Copyright (c) 1999-2001 Ralf S. Engelschall, All Rights Reserved.
@@ -62,6 +62,16 @@
if ($qs{email} eq '');
die "Hmmm... <tt>[EMAIL PROTECTED]</tt> is certainly not correct, Dude."
if ($qs{email} eq '[EMAIL PROTECTED]');
+die "Hmmm... more than a single \@ in <tt>$qs{email}</tt> is confusing me,
Dude."
+ if ($qs{email} =~ m|@.*@|);
+die "Hmmm... no \@ in <tt>$qs{email}</tt> looks incomplete, Dude."
+ if ($qs{email} =~ m|^(.*)@(.*)$|);
+($user, $domain) = ($1, $2);
+die "Hmmm... user part in <tt>$qs{email}</tt> is empty, Dude."
+ if($user eq '');
+die "Hmmm... domain part in <tt>$qs{email}</tt> is empty, Dude."
+ if($domain eq '');
+
die "Hmmm... <tt>$qs{email}</tt> doesn't look like a valid RFC822 mail
address."
if ($qs{email} !~
m|^[a-zA-Z0-9_=%,.~+-]+@([a-zA-Z0-9]+)(\.[a-zA-Z0-9]+)*$|);
die "At least one list has to be selected."
@@ -88,7 +98,7 @@
}
# send out mail
-open(MAIL, "|/e/openpkg/sw/sbin/sendmail -oi -oee [EMAIL PROTECTED]") || die;
+open(MAIL, "|/v/openpkg/sw/sbin/sendmail -oi -oee [EMAIL PROTECTED]") || die;
print MAIL $mail;
close(MAIL);
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List openpkg-cvs@openpkg.org
