I have a database of people and e-mail address collected into a simple text file in the form: $name~|~$email~|~ simply put. in order for someone to be e-mailed the password for a specific section of the site, they type their e-mail into a form and it searches through the text file through each e-mail and if it finds that e-mail, it sends the e-mail the password. The only problem i am having is Capitalization is preventing this from working. how do i filter the e-mails in the text file so that they are all lowercase, and also filter the field that the user types their e-mail in to recieve the password? sorry for my confusing explanation, but can anyone help? thanks, Nic
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
filtering information 2
- Thread starter Moooink
- Start date
-
2
- #2
You can make the form data lowercase:
$form_email = (lc(param('email')));
There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Company
not done yet) 
Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
$form_email = (lc(param('email')));
There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Company
not done yet) Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
- Thread starter
- #3
It's not a subroutine. You said you need to get the info from a form. I used CGI.pm to get the data from the HTML form like this:
#!/usr/bin/perl -w
use CGI;
use CGI qwall);
print header;
$form_email = (lc(param('email')));
print "Checking for email: $form_email<br>";
The lc function will lowercase them all. You can also try the following:
$db = "db.txt";
open(FILE, "$db"
;
@data = <FILE>;
close(FILE);
foreach (@data)
{
chomp($_);
($name,$email)=split(/\~/,$_);
if ($form_email =~/$email/i) {
print "$email<br>";
}else{
print "Invalid Email";
}
}
The i function will ignore case. I haven't tested the code listed above, but it should work. There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Companynot done yet)
Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
#!/usr/bin/perl -w
use CGI;
use CGI qw
all);print header;
$form_email = (lc(param('email')));
print "Checking for email: $form_email<br>";
The lc function will lowercase them all. You can also try the following:
$db = "db.txt";
open(FILE, "$db"
;@data = <FILE>;
close(FILE);
foreach (@data)
{
chomp($_);
($name,$email)=split(/\~/,$_);
if ($form_email =~/$email/i) {
print "$email<br>";
}else{
print "Invalid Email";
}
}
The i function will ignore case. I haven't tested the code listed above, but it should work. There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Company
not done yet) Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
- Thread starter
- #5
i can't figure out how to implement these into my script...here are example from each submit sub: this is to submit each name\e-mail to the database, there is another script that checks the valid e-mail from the database and sends if it is found in the db
# sub - submit
sub submit {
### staff
if ($FORM{'form'} eq "staff" {
# validate
if ($FORM{'position'} eq "" {&error("Postion field was left blank. Please hit back and complete the form."}
if ($FORM{'name'} eq "" {&error("Name field was left blank. Please hit back and complete the form."}
# open staff.txt for editing
open (STAFF,">>$filedir/staff.txt" || &error("Can't Open staff.txt $!\n"
# staff printing
print STAFF "$FORM{'name'}~|~$FORM{'position'}~|~$FORM{'mail'}~|~\n";
close(STAFF);
}
# editsubmit sub
sub editsubmit {
if ($FORM{'form'} eq "staff" {
@varkeys = keys (%FORM);
foreach $line(@varkeys) {
unless ($line eq "action" || $line eq "form" || $line eq "$tempnum|del" {
($tempnum, $varname) = split(/\|/, $line);
if ($varname eq "name" {
$del = "$tempnum"."|"."del";
$name = "$tempnum"."|"."name";
$position = "$tempnum"."|"."position";
$mail = "$tempnum"."|"."mail";
unless ($FORM{"$del"} eq "yes" {
$list[$tempnum] = "$FORM{$name}~|~$FORM{$position}~|~$FORM{$mail}~|~\n";
}
}
}
}
open (STAFF,">$filedir/staff.txt" || &error("Can't Open staff.txt $!\n"
print STAFF "@list";
close(STAFF);
}
# sub - submit
sub submit {
### staff
if ($FORM{'form'} eq "staff"
{# validate
if ($FORM{'position'} eq ""
{&error("Postion field was left blank. Please hit back and complete the form."}if ($FORM{'name'} eq ""
{&error("Name field was left blank. Please hit back and complete the form."}# open staff.txt for editing
open (STAFF,">>$filedir/staff.txt"
|| &error("Can't Open staff.txt $!\n"# staff printing
print STAFF "$FORM{'name'}~|~$FORM{'position'}~|~$FORM{'mail'}~|~\n";
close(STAFF);
}
# editsubmit sub
sub editsubmit {
if ($FORM{'form'} eq "staff"
{@varkeys = keys (%FORM);
foreach $line(@varkeys) {
unless ($line eq "action" || $line eq "form" || $line eq "$tempnum|del"
{($tempnum, $varname) = split(/\|/, $line);
if ($varname eq "name"
{$del = "$tempnum"."|"."del";
$name = "$tempnum"."|"."name";
$position = "$tempnum"."|"."position";
$mail = "$tempnum"."|"."mail";
unless ($FORM{"$del"} eq "yes"
{$list[$tempnum] = "$FORM{$name}~|~$FORM{$position}~|~$FORM{$mail}~|~\n";
}
}
}
}
open (STAFF,">$filedir/staff.txt"
|| &error("Can't Open staff.txt $!\n"print STAFF "@list";
close(STAFF);
}
You said "in order for someone to be e-mailed the password for a specific section of the site, they type their e-mail into a form and it searches through the text file through each e-mail and if it finds that e-mail, it sends the e-mail the password."
Where's the section that will send the password to the email they provide on the form? Should be something like this:
foreach (@data)
{
chomp($_);
($name,$email)=split(/\~/,$_);
if ($form_email =~/$email/i) {
&send_mail;
}else{
print "Invalid Email";
}
} There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Companynot done yet)
Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
Where's the section that will send the password to the email they provide on the form? Should be something like this:
foreach (@data)
{
chomp($_);
($name,$email)=split(/\~/,$_);
if ($form_email =~/$email/i) {
&send_mail;
}else{
print "Invalid Email";
}
} There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Company
not done yet) Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
- Thread starter
- #7
this is the other script which takes the e-mail from html form and puts it into $toemail...then searches through multiple databases to find the email...if it finds it, it sets $mailfound to 1...then it prints if mailfound=1
$toemail = $FORM{'TOEMAIL'};
$mailfound = 0;
##########################################
<---------------begin 1 db
open (STUDENTS,"$filedir/students.txt" || &error("Can't Open students.txt $!\n"
@students = <STUDENTS>;
close(STUDENTS);
foreach $line(@students) {
($lname, $fname, $grade, $instrument, $mail, $blank) = split(/\~\|~/, $line);
if ($mail eq $toemail) {
$mailfound = 1;
}
}
<-----------------------end 1 db
if ($mailfound eq "1" {
&mail ("$toemail", "$fromemail", "$subject"
else {
print fail..etc..
}
$toemail = $FORM{'TOEMAIL'};
$mailfound = 0;
##########################################
<---------------begin 1 db
open (STUDENTS,"$filedir/students.txt"
|| &error("Can't Open students.txt $!\n"@students = <STUDENTS>;
close(STUDENTS);
foreach $line(@students) {
($lname, $fname, $grade, $instrument, $mail, $blank) = split(/\~\|~/, $line);
if ($mail eq $toemail) {
$mailfound = 1;
}
}
<-----------------------end 1 db
if ($mailfound eq "1"
{&mail ("$toemail", "$fromemail", "$subject"
;else {
print fail..etc..
}
- Thread starter
- #8
Try this:
open (STUDENTS,"$filedir/students.txt" || &error("Can't Open students.txt $!\n"
@students = <STUDENTS>;
close(STUDENTS);
foreach $line(@students) {
($lname, $fname, $grade, $instrument, $mail, $blank) = split(/\~\|~/, $line);
if ($toemail=~/$mail/i) {
$mailfound = 1;
}
}
Now it will ignore if it's capitalized and send the mail. So, me@host.com and ME@HOST.COM is same. This is what you wanted, right? There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Companynot done yet)
Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
open (STUDENTS,"$filedir/students.txt"
|| &error("Can't Open students.txt $!\n"@students = <STUDENTS>;
close(STUDENTS);
foreach $line(@students) {
($lname, $fname, $grade, $instrument, $mail, $blank) = split(/\~\|~/, $line);
if ($toemail=~/$mail/i) {
$mailfound = 1;
}
}
Now it will ignore if it's capitalized and send the mail. So, me@host.com and ME@HOST.COM is same. This is what you wanted, right? There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Company
not done yet) Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
- Thread starter
- #10
- Thread starter
- #11
Yep, that is correct. You can also lowercase the $toemail variable like this:
$toemail = lc($FORM{'TOEMAIL'});
So, if somebody entered "ME@HOST.COM", it will check to see if "me@host.com" exist.
There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Companynot done yet)
Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
$toemail = lc($FORM{'TOEMAIL'});
So, if somebody entered "ME@HOST.COM", it will check to see if "me@host.com" exist.
There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Company
not done yet) Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
- Thread starter
- #13
Try this:
open (STUDENTS,"$filedir/students.txt" || &error("Can't Open students.txt $!\n"
@students = <STUDENTS>;
close(STUDENTS);
foreach $line(@students) {
($lname, $fname, $grade, $instrument, $mail, $blank) = split(/\~\|~/, $line);
if ($toemail=~/$mail/i) {
&mail ("$toemail", "$fromemail", "$subject"
}else{
print "Invalid User";
}
}
It should work. There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Companynot done yet)
Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
open (STUDENTS,"$filedir/students.txt"
|| &error("Can't Open students.txt $!\n"@students = <STUDENTS>;
close(STUDENTS);
foreach $line(@students) {
($lname, $fname, $grade, $instrument, $mail, $blank) = split(/\~\|~/, $line);
if ($toemail=~/$mail/i) {
&mail ("$toemail", "$fromemail", "$subject"
;}else{
print "Invalid User";
}
}
It should work. There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Company
not done yet) Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
- Thread starter
- #15
Hmm... here's my last try:
open (STUDENTS,"$filedir/students.txt" || &error("Can't Open students.txt $!\n"
@students = <STUDENTS>;
close(STUDENTS);
foreach $line(@students) {
($lname, $fname, $grade, $instrument, $mail, $blank) = split(/\~\|~/, $line);
if ($toemail =~/$mail/i) {
$mailfound = 1;
}else{
print "Invalid User";
}
}
Take Out the $toemail = lc($FORM{'TOEMAIL'}); if you have that. Just put that like: $toemail = $FORM{'TOEMAIL'}; There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Companynot done yet)
Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
open (STUDENTS,"$filedir/students.txt"
|| &error("Can't Open students.txt $!\n"@students = <STUDENTS>;
close(STUDENTS);
foreach $line(@students) {
($lname, $fname, $grade, $instrument, $mail, $blank) = split(/\~\|~/, $line);
if ($toemail =~/$mail/i) {
$mailfound = 1;
}else{
print "Invalid User";
}
}
Take Out the $toemail = lc($FORM{'TOEMAIL'}); if you have that. Just put that like: $toemail = $FORM{'TOEMAIL'}; There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Company
not done yet) Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
- Thread starter
- #17
Any luck? Hopes someone else could help us out with this. There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Companynot done yet)
Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Company
not done yet) Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
Sorry Moooink, but i'm stuck There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Companynot done yet)
Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
There is no Knowledge that is not power.Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Company
not done yet) Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
Even though I do have a tip. Why don't you try and stick to your orginal code and change and replace only the $toemail variable:
$toemail = lc($FORM{'TOEMAIL'};
$mailfound = 0;
##########################################
<---------------begin 1 db
open (STUDENTS,"$filedir/students.txt" || &error("Can't Open students.txt $!\n"
@students = <STUDENTS>;
close(STUDENTS);
foreach $line(@students) {
($lname, $fname, $grade, $instrument, $mail, $blank) = split(/\~\|~/, $line);
if ($mail eq $toemail) {
$mailfound = 1;
}
}
There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Companynot done yet)
Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
$toemail = lc($FORM{'TOEMAIL'};
$mailfound = 0;
##########################################
<---------------begin 1 db
open (STUDENTS,"$filedir/students.txt"
|| &error("Can't Open students.txt $!\n"@students = <STUDENTS>;
close(STUDENTS);
foreach $line(@students) {
($lname, $fname, $grade, $instrument, $mail, $blank) = split(/\~\|~/, $line);
if ($mail eq $toemail) {
$mailfound = 1;
}
}
There is no Knowledge that is not power.
Age: 16
E-mail: projectnet01@yahoo.com
School: Coral Springs High (Company
not done yet) Status: Currently working with C++ for game developing. And making a musical band.
-Aaron
- Status
Similar threads
- Locked
- Question