Edward,
I don't see any problems staring at me, operating system is constant across
the old and new servers?
James M. Gilbert
Systems Librarian
Whitehall Township Public Library
3700 Mechanicsville Road
Whitehall, PA 18052
610-432-4339
-----Original Message-----
From: Code for Libraries [mailto:[log in to unmask]] On Behalf Of
Iglesias, Edward G. (Library)
Sent: Tuesday, January 22, 2008 2:54 PM
To: [log in to unmask]
Subject: [CODE4LIB] perl question
Okay, I should be able to solve this on my own but I can't. I've had to
move to a new web server and can't get an old script to work. All it does
is convert a fund activity report to a web page. It worked fine on the old
server. I updated the directory paths and checked permissions.
All are fine. What's more I don't get an error. It just works and returns
nothing. Any help would be appreciated.
EI
#!/usr/bin/perl
###### usage: cat inputfile | abiglobal.pl
$i=0;
while ($_ = <STDIN>) {
if(/(FUND ACTIVITY REPORT)/ ) {
$input=$_;
chop($input);
$fundcode=substr($input,0,5);
$fundcode=~ s/ //g;
$input=~ tr/\"//;
$input=~ tr/\'//;
# $input=~ tr/,/\t/;
$input=~s/REPORT,/REPORT /g;
$input=~s/ / /g;
@in=split(/ /,$input);
# @fund=$in[0];
if($i=="0"){
$final=$in[3].".html";
open (OUT,">>body.txt") || die "I am not able to write to file";
open (HEAD,">>head.txt") || die "not able to open temp header";
print HEAD "<HTML><HEAD><TITLE>Fund Activity
Report</TITLE></HEAD><BODY><TABLE border=1><tr><td><strong>Fund Activity
Reports: $in[3]</strong></td></tr><TR><td valign='top'><a
href='#$fundcode'>$fundcode</a> \n";
$i=99;
}
print HEAD "<a href='#$fundcode'>$fundcode</a> \n";
print OUT "<strong><a name='$fundcode'>Fund: <u>$in[0]</u>
</a>FundInfo: <u>$in[1] $in[2]</u></strong><br>\n";
}
else {
print OUT "<pre>$_</pre>\n";
}
} #### end while stdin
print HEAD "</td></tr></table><br><br>\n"; print OUT "</body></html>\n";
close OUT; close HEAD;
#$outfile=~tr/ /_/;
#$outfile=~tr/,/_/;
print "$outfile\n";
system "cat head.txt body.txt > /data/www/htdocs/fundlist/$final";
system "rm head.txt";
system "rm body.txt";
opendir(DIR, "/public_html");
open (OUT,"> /data/www/htdocs/fundlist/index.html") || die "I am not
able to write to file"; print OUT ("<HTML><HEAD><TITLE>Fund List
Directory</TITLE></HEAD><BODY>\n");
print OUT ("<h4>Directory Listing</h4>\n");
while($file = readdir(DIR) ) {
print OUT ("<A HREF=\"$file\">$file<br>\n");
}
print OUT ("</body></html>\n");
closedir(DIR);
close (OUT);
Edward Iglesias
Systems Librarian
Central Connecticut State University
860.832.2082
|
