minton — Thu, 17 Aug 2000 10:43:38 +0000

I am looking at how to get rid of duplications but I will have to play around wityh it all when I get a chance and find out the best way of doing things.

Thanks

[edit] Just tried the script and after some tiny tweaking it works fine Wahay:D
thanks[/edit]

[Edited by minton on 08-17-2000 at 09:26 AM]

Mark Hensler — Thu, 17 Aug 2000 05:53:51 +0000

Do you want to append the file each time? If you do that you could get duplicates. If you append to the file each time, you should make a routine that eliminates duplicates.

I would just re-write the file each time.
open (LIST, ">/WebSites/hosted/dotcomper.co.uk/cgi-bin/testscan/mememails.txt") || die "Can't open handle LIST: $!\n";
Just one > in the open()

richjb — Thu, 17 Aug 2000 00:34:55 +0000

Glad to be of help.

Richard
richjb::406

minton — Wed, 16 Aug 2000 23:12:25 +0000

OK, I will use your version,

Thanks alot

richjb — Wed, 16 Aug 2000 23:02:38 +0000

Who programmed that? I see two errors in it...

Also, remember that *nix is case sensitive, so check the file names.

I see the error, when printing to the "file," you have not specified a handle...so it would be printing out to the screen. You need to use print LIST "";

Here's the file with any problems I see fixed:

#!/usr/bin/perl
############################################
# Scan contents of Account Manager Lite 
# members detals file and put in a seperate
# file named "mememails.txt"
############################################
print "Content-type: text/html\n\n";
print "Completed\n"; # <strong>This should be at the end of the program, sometimes Perl won't do something right and will stop, but you really don't know when your "confirmation" print is at the beginning.</strong>

open(FILE, "</WebSites/hosted/dotcomper.co.uk/cgi-bin/testscan/amdata.db") || die "Can't open $file: $!\n"; # <strong>Check this for case sensitivity.</strong>
@array = <FILE>; # I'm now assigning the data of the file to an array so we can loop through it.
close(FILE);

foreach $lines (@array) {
 chomp($lines); #this will removed the \n at the end of the lines
 @info = split(/:/, $lines); #this now splits the line up by :
&add;
}
#############################################

sub add {
open (LIST, ">>/WebSites/hosted/dotcomper.co.uk/cgi-bin/testscan/mememails.txt") || die "Can't open"; # <strong>Check for case sensitivity</strong>
{ # <strong>Ommit this</strong>
print "\n$info[2]\n"; # <strong>The first \n will cause this to print every other line, also, you need to print to LIST</strong>
close (LIST) # <strong>Where's the ; ?</strong>
} # <strong>Ommit this</strong>
}

Another thing is that the above code opens and closes the file being written to for evey line in the old file...so say you have 400 lines, then that program will open and closee the new file 400 times.

Suggested code:

#!/usr/bin/perl

print "Content-type: text/html\n\n";

open(FILE, "</WebSites/hosted/dotcomper.co.uk/cgi-bin/testscan/amdata.db") || die "Can't open handle FILE: $!\n";
@array = <FILE>;
close(FILE);

open (LIST, ">>/WebSites/hosted/dotcomper.co.uk/cgi-bin/testscan/mememails.txt") || die "Can't open handle LIST: $!\n";

foreach $lines (@array) {
 chomp($lines);
 @info = split(/:/, $lines);
 print LIST "$info[2]\n";
}

close (LIST);

print "done";

Hope that helped.

Richard
richjb::401

minton — Wed, 16 Aug 2000 22:15:51 +0000

hi again,

I have just got around to trying it all out and have come to this hitch.

it seems to work but when i look at the mememails.txt file it is empty.

the code

#!/usr/bin/perl
############################################
# Scan contents of Account Manager Lite 
# members detals file and put in a seperate
# file named "mememails.txt"
############################################
print "Content-type: text/html\n\n";
print "Completed\n";

open(FILE, "</WebSites/hosted/dotcomper.co.uk/cgi-bin/testscan/amdata.db") || die "Can't open $file: $!\n";
@array = <FILE>; # I'm now assigning the data of the file to an array so we can loop through it.
close(FILE);

foreach $lines (@array) {
 chomp($lines); #this will removed the \n at the end of the lines
 @info = split(/:/, $lines); #this now splits the line up by :
&add;
}
#############################################

sub add {
open (LIST, ">>/WebSites/hosted/dotcomper.co.uk/cgi-bin/testscan/mememails.txt") || die "Can't open"; {
print "\n$info[2]\n";
close (LIST)
}
}

Any help would be great.

richjb — Sun, 13 Aug 2000 20:59:55 +0000

Ok.

BTW, I have had experience with account manager lite in the past.

I hope it all works out for you.

Richard

minton — Sun, 13 Aug 2000 20:33:54 +0000

no, I want to email all of our customers. we are using account manager lite. I dont know if you are familiar with it but it is a great script. it is though, unfortunately, expensive to buy the full version and so some of the features in the lite version have gone, namely the email customers feature.

So unless I want to individually email all the users, i need a way to email all the people at once. and here enters

*drum role*

my script

All the customer is stored in one file with each customers info being stored in the format i showed earlier. I will use your scanner (albeit a supped up version) and scan the customer file for all the emails. I will then write them to a email file so in the end i will have a file seperate from the customer file with all their email's.

i can then use this file in conjunction with my not yet existing mail script...

simple

richjb — Sun, 13 Aug 2000 19:57:10 +0000

Just curious...but why are you "exporting" the emails? Do you have another program like Pegasus to send out the mail?

Just a tip: make the script send out the email for you.

Richard

minton — Sun, 13 Aug 2000 19:21:06 +0000

hey Richard,

I will try your code and report back,

what I will do will be to take the email addresses and create a new file and put all of them in, I shuld be able to do that without too many problems though

Thanks alot for your help