#!/usr/bin/perl

my $PATH = '/data/WWW/data/virtual/weedscience/swss/Program/2002/abstracts';
my $PASSWD = '/data/WWW/data/virtual/weedscience/cgi_conf/abstract.passwd';
open (PASSWD, $PASSWD) or die "couldn't open $PASSWD: $!\n";

while (<>) {

    chomp;
    /^(\d+),(\w+),/;
    my $num = $1;
    my $passwd = $2;
    my $file = "$PATH/paper_$num.html";
    open(FILE, $file) or die "couldn't open $file: $!\n";
    /\"(.+?)\"/;
    my $title = $1;
    print PASSWD "$num:$passwd\n";
    print FILE "$title\n\n<center>ABSTRACT</center>\n\n";
    close FILE or die "couldn't close $file: $!\n";
}
close PASSWD or die "couldn't close $PASSWD: $!\n";