Re: Mail List integration

[Gunnar Hjalmarsson <mailbox@gunnar.cc>]

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;
}