#!/usr/bin/perl

my $FILE = '/data/WWW/data/virtual/weedscience/swss/Submissions_All/Title/Titles/Submissions.csv';
my $PATH = "/data/WWW/data/virtual/weedscience/cgi_conf/titles";
my $PASSWD = '/data/WWW/data/virtual/weedscience/cgi_conf/abstract.passwd';
open (FILE, "$FILE") or die "Couldn't open $FILE: $!\n";
open (PASSWD, ">$PASSWD") or die "couldn't open $PASSWD: $!\n";

while (<FILE>) {

    chomp;
    #/^([^,]+),([^,]*),.*/;
    my @stuff = split(',',$_);
    my ($passwd,$rem,$num,$section) = @stuff[0,1,5,6];
    #my $rem = $2;
    my $num = sprintf("%0.3d",$num);
    my $section = sprintf("%0.2d",$section);
    #my $section = $stuff[6];
    /.*,(.*)$/;
    my $email = $1;
    print PASSWD "$num,$section,$passwd,$rem,$email\n"; 
    my $file = "$PATH/paper_$num.html";
    open(TITLE, ">$file") or die "couldn't open $file: $!\n";
    /\"(.+?)\"/;
    my $title = $1;
    print TITLE "$title";
    close TITLE or die "couldn't close $file: $!\n";

}
close FILE;
close PASSWD or die "couldn't close $PASSWD: $!\n";