THANK YOU!
Please note that there is no
password protection or anything like that, so you should remove it
immediately after use.
And another thank you, I may not have thought about that and it is a very
good point. I can upload the script when I need it and delete when I am
done. :)
Again, many thanks to you!
Fawnna
-----Original Message-----
From: owner-ringlinklist@xxxxxxxxxx [mailto:owner-ringlinklist@xxxxxxxxxx]On
Behalf Of Gunnar Hjalmarsson
Sent: Tuesday, September 12, 2000 3:03 PM
To: ringlinklist@xxxxxxxxx
Subject: Re: [ringlinklist] Mail List integration
Fawnna,
* The email addresses are stored in sites.db.
So in the meantime, I could pull a mailing list from this file
correct? From a separate CGI script?
Yes. Below please find a simple script that prints a list of the email
addresses in sites.db. The script is intended to be saved in the same
directory as the other *.pl or *.cgi files. Please note that there is no
password protection or anything like that, so you should remove it
immediately after use.
Will the new tools be easily added to a current running Ringlink?
Yes!
I plan to host several rings in the near future, hoping to provide
some webmasters without access to CGI an out from Yahoo. Should I
wait until the new features are implemented?
If the tools already implemented are enough to meet their short-term
needs, I can't see any reason to wait.
/ Gunnar
Here is the script:
#!/usr/local/bin/perl
use lib 'lib';
##########################################
$ringid = 'demo';
$separator = ', ';
$status = 'active';
##########################################
use rlconfig;
print "Content-type: text/html\n\n";
open (SITES, "$datapath/$ringid/sites.db")
|| exit print "Can't open $datapath/$ringid/sites.db<br>\n$!";
@sites = <SITES>;
close (SITES);
for (@sites) {
@sitevalues = split (/\t/, $_);
print $sitevalues[9] . $separator if $sitevalues[1] eq $status;
}