#!/usr/bin/perl -s
$mailprog = '/usr/sbin/sendmail -t ';
$MyEmail = 'tseng@lins.fju.edu.tw';
$CollectionURL = 'http://blue.lins.fju.edu.tw/~tseng/Collections/Col_data/';
use CGI qw(:standard);
print header;
print start_html('DownLoad FJU Collections');
if (param('CR')) {
$Collection = param('Collection');
&ShowForm();
} else {
$FirstName = param('FirstName');
$LastName = param('LastName');
$Title = param('Title');
$Affiliation = param('Affiliation');
$Email = param('Email');
$HomePage = param('HomePage');
$RequestList = param('RequestList');
$Comments = param('Comments');
$Collection = param('Collection');
foreach $n ($FirstName, $LastName, $Title, $Affiliation, $Collection,
$Email, $HomePage, $RequestList, $Comments) {
$n =~ s/^\s+|\s+$//g;
}
&MissField('first name') if ($FirstName eq '');
&MissField('last name') if ($LastName eq '');
&MissField('email') if ($Email eq '');
&MissField('affiliation') if ($Affiliation eq '');
$CollectionURL .= $Collection;
&ShowCollectionURL();
}
print end_html;
exit;
sub ShowForm {
print "
", table(Tr(td(
h2('Copyright Notice'),
table({-border=>5}, Tr(td(
"
To use this test collection, you agree to keep this collection from being
unfair use (for example, profitable use or distribution of this collection).
"))),p, h2('Your Information'),
start_form,
table(Tr(
[ td(["First Name: ",textfield('FirstName', '', 50, 50),br,]),
td(["Last Name: ",textfield('LastName', '', 50, 50),br,]),
td("Title: ") .
td(radio_group(-name=>'Title',
-values=>['Mr.','Mrs.','Dr.','Prof.'],
-defaults=>['Dr.']),br,),
td(["Affiliation: ", textfield('Affiliation', '', 80, 80),br,]),
td(["Email: ", textfield('Email', '', 80, 80),br,]),
td(["Home Page: ", textfield('HomePage', '', 80, 80),br,]),
td("To be listed in the Request List: ") .
td(radio_group(-name=>'RequestList',
-values=>['Yes','No'],
-defaults=>['Yes']),br,),
td(["Other comments: ",
textarea(-name=>'Comments',-rows=>10,columns=>60,-default=>""),p,])
])),
hidden('Collection'),
submit,
end_form, ""
)));
}
sub MissField {
my($str) = @_;
print h3("Please fill in your $str"), p, "\n";
&ShowForm();
print end_html();
exit;
}
sub ShowConfirmation {
}
sub ShowCollectionURL {
&MailOut();
&InsertRequestList() if $RequestList eq 'Yes';
print h3(
"An email has been sent to '$Email' to show you how to download the collection.");
}
sub MailOut {
$RequestInformation = <
Organization: Fu Jen Catholic University
To: $Email
Cc: $MyEmail
Subject: Download FJU collections from $FirstName $LastName
Dear $Title $FirstName $LastName,
The collection you requested can be downloaded at
$CollectionURL
with
username: user
password: user
Your informatoin (for you to verify):
$RequestInformation
Kind regards,
Yuen-Hsien Tseng
Professor
Dept. of Library & Information Science
Fu Jen Catholic University
510, Chung Cheng Road, HsinChuang,
Taipei, Taiwan, R.O.C. 242
Home page: http://www.lins.fju.edu.tw/~tseng/
MailHead
close(M);
}
sub InsertRequestList {
my($Date, $file, $text, $str);
my($sec, $min, $hour, $day, $mon, $year) = localtime(time);
$mon += 1; $year += 1900;
$Date = "$year/$mon/$day";
# $file = $Collection =~ /TC/?'Chinese_TC.html' : 'Chinese_OCR_IR.html';
$file = 'RequestList.html';
$str =<$Title $FirstName $LastName, from $Affiliation, at $Email, on $Date
END
open F, $file or die "Cannot read file:'$file'";
local $/; undef $/; $text = ; # read all the content into $text
close(F);
# $text =~ s##$str#;
$text =~ s#(\s\s)#$1$Date
\n$RequestInformation
\n\n#;
open F, ">$file" or die "Cannot write to file:'$file'";
print F $text;
close(F);
}