Bommels05/Mozilla
Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

perl script to test viewer

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@21677 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
sar%netscape.com 1999-02-24 02:16:40 +00:00
parent e38d03b5a7
commit 8ba45f340c
1 changed files with 192 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

192
mozilla/tools/tests/LoadUrl.pl Normal file
View File

@ -0,0 +1,192 @@
#!/perl/bin/perl
open (ANALYSIS_FILE, '>analysis.html');
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)=localtime(time);
%weekday= (
"1", "$day",
'2', 'Tuesday',
'3', 'Wednesday',
'4', 'Thursday',
'5', 'Friday',
'6', 'Saturday',
'7', 'Sunday',
);
if ($hour > 12)
{
$hour = $hour - 12;
}
$mon += 1;
print "Content-type:text/html\n\n";
print (ANALYSIS_FILE "<HTML><HEAD><TITLE> Load URl's Analysis File </TITLE></HEAD>\n");
print (ANALYSIS_FILE "<BODY>\n");
print (ANALYSIS_FILE "<H2><CENTER> Load URL's Analysis File </CENTER></H2>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<HR>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<B><CENTER>\n");
print (ANALYSIS_FILE "Day Date Year and Time when Program started: ");
print (ANALYSIS_FILE "</B></CENTER>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<B><CENTER>\n");
print (ANALYSIS_FILE "$weekday{$wday} $mon/$mday/19$year $hour:$min:$sec");
print (ANALYSIS_FILE "</B></CENTER>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<HR>\n");
#FOR WINDOWS 32 PLEASE UNCOMMENT TILL ===
system ('c:\x86rel\viewer.exe -v -d 15 -f Url.txt > result.txt');
#=================================================================
#FOR LINUX PLEASE UNCOMMENT TILL ===
#$ENV{'MOZILLA_HOME'}='/u/phillip/seamonkey/linux/package';
#$ENV{'LD_LIBRARY_PATH'}='/u/phillip/seamonkey/linux/package';
#system ('/u/phillip/seamonkey/linux/package/viewer -v -d 9 -f /tmp/bindu/Url.txt > result.txt');
#=================================================================
open (IN_FILE, '<result.txt');
open (OUT_FILE, '>loaded.txt');
open (URL_FILE, '<Url.txt');
open (NOMATCH_FILE, '>notloaded.txt');
$ThisLine;
@Url_List = (0..24,0..1);
$count=0;
while (<URL_FILE>)
{
$ThisLine = $_;
chomp ($ThisLine);
#push (@Url_List, "$ThisLine 0");
@Url_List[$count]->[0] = $ThisLine;
@Url_List[$count]->[1] = 0;
#print "@Url_List[$count]->[0] ";
#print "@Url_List[$count]->[1] \n";
$count++;
}
while (<IN_FILE>)
{
$ThisLine = $_;
if (/done loading/)
{
print (OUT_FILE "$ThisLine");
}
}
close (OUT_FILE);
open (OUT_FILE, '<loaded.txt');
$ThisLine = "";
$NumItems = @Url_List;
$ThisItem;
$InList;
while (<OUT_FILE>)
{
$ThisLine = $_;
for ($i = 0; $i < $NumItems-1; $i += 1)
{
$InList = @Url_List[$i]->[0];
if ($ThisLine =~ /$InList/)
{
#print @Url_List[$i]->[0];
#print "\n";
@Url_List[$i]->[1] = 1;
}
}
}
for ($i = 0; $i < $NumItems-1; $i += 1)
{
if (@Url_List[$i]->[1] == 0)
{
print (NOMATCH_FILE "@Url_List[$i]->[0]\n");
}
}
close (OUT_FILE);
close (NOMATCH_FILE);
open (OUT_FILE, '<loaded.txt');
open (NOMATCH_FILE, '<notloaded.txt');
$LoadItems;
$NotLoadItems;
while (<OUT_FILE>)
{
$LoadItems += 1;
}
while (<NOMATCH_FILE>)
{
$NotLoadItems += 1;
}
close (OUT_FILE);
close (NOMATCH_FILE);
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)=localtime(time);
%weekday= (
"1", "$day",
'2', 'Tuesday',
'3', 'Wednesday',
'4', 'Thursday',
'5', 'Friday',
'6', 'Saturday',
'7', 'Sunday',
);
if ($hour > 12)
{
$hour = $hour - 12;
}
$mon += 1;
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<B><CENTER>\n");
print (ANALYSIS_FILE "Day Date Year and Time when Program stopped: ");
print (ANALYSIS_FILE "</B></CENTER>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<B><CENTER>\n");
print (ANALYSIS_FILE "$weekday{$wday} $mon/$mday/19$year $hour:$min:$sec");
print (ANALYSIS_FILE "</B></CENTER>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<HR>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<B>\n");
print (ANALYSIS_FILE "Number of URL's NOT loaded = ");
print (ANALYSIS_FILE "$NotLoadItems\n");
print (ANALYSIS_FILE "</B>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<BR>\n");
open (OUT_FILE, '<loaded.txt');
open (NOMATCH_FILE, '<notloaded.txt');
while (<NOMATCH_FILE>)
{
$ThisLine = $_;
print (ANALYSIS_FILE "<A HREF='$ThisLine'>$ThisLine</A>\n");
print (ANALYSIS_FILE "<BR>\n");
}
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<B>\n");
print (ANALYSIS_FILE "Number of URL's loaded = ");
print (ANALYSIS_FILE "$LoadItems\n");
print (ANALYSIS_FILE "</B>\n");
print (ANALYSIS_FILE "<BR>\n");
print (ANALYSIS_FILE "<BR>\n");
while (<OUT_FILE>)
{
$ThisLine = $_;
print (ANALYSIS_FILE "$ThisLine\n");
print (ANALYSIS_FILE "<BR>\n");
}
print (ANALYSIS_FILE "</BODY>\n");
print (ANALYSIS_FILE "</HTML>\n");
close (URL_FILE);
close (IN_FILE);
close (OUT_FILE);
close (NOMATCH_FILE);
close (ANALYSIS_FILE);