View the DQSD CVS repository here:
http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/dqsd/
Update of /cvsroot/dqsd/dqsdweb
In directory usw-pr-cvs1:/tmp/cvs-serv15240
Added Files:
searchtoc.pl
Log Message:
script to generate an html summary page from the directory of searches.. This script
prints the output to stdout, therefore it must be redirected to a file.
--- NEW FILE: searchtoc.pl ---
#!/usr/bin/perl
############################################################################
#
# Generate the html table file from the *.xml files in the searches subdirectory
#
# Monty Scroggins
#
############################################################################
## +++++++++++++++++++++++++++ Maintenance Log +++++++++++++++++++++++++++++
# Monty Scroggins Thu Sep 19 19:25:06 GMT 2002 Script created.
$|=1; # set output buffering to off
$[=0; # set array base to 0
$,=" "; # set output field separator
$\="\n"; # set output record separator
#path to the searches directory
my $searchdir="searches";
#instead of printing out the stylesheet data, we could link to a standalone stylesheet.
#<link rel="stylesheet" type="text/css" href="dqsd.css">
#begin html
print q{
<html>
<head>
<title>DQSD Searches</title>
<style>
body,tr,td
{
font-family: Verdana;
font-size: x-small;
padding-left:4px;
}
table
{
vertical-align: top;
border: 1px inset;
border-collapse:collapse;
border-spacing:0;
}
th
{
background: #fcfcfc;
color: #000050;
text-align: left;
font-weight: bold;
border: 1px outset;
padding-left:4px;
}
tr
{
background: #fcfcfc;
color: #206090;
vertical-align:top;
border: 0px;
}
a {
text-decoration: none;
padding-right: 4px;
}
a:hover {
text-decoration: underline;
padding-right: 4px;
}
table.helpboxDescTable,tr
{
border-width:0px;
border-collapse:collapse;
border-spacing:0;
color:#206090;
vertical-align:top;
padding: 0px;
}
.helpboxDescLabels
{
color:#206090;
}
.funcName
{
color: #600000;
padding-right: 4px;
}
.description
{
color: #606040;
padding-left: 4px;
padding-right: 4px;
}
.category
{
color: #a07040;
padding-right: 4px;
}
.categorylink
{
font-size: x-small;
text-decoration: none;
}
.lineNumbers
{
background: #fcfcfc;
color: #000000;
padding-left: 4px;
padding-right: 4px;
}
</style>
</head>
<body>
};
#get the list of xml files
opendir(searchdir, "$searchdir") or die "searchdir not found: $!";
@datafiles = grep /\.xml$/,readdir searchdir;
closedir searchdir;
#start the table
my (@html,@categories);
#generate a record for each xml file
foreach $datafile (@datafiles) {
my ($name,$desctext,$category)=();
my $filedata=read_file("$searchdir/$datafile");
for ($t=0; $t<scalar(@$filedata); $t++) {
#----------------------------------------------
#trigger if the line contains the name tags
if (@$filedata[$t]=~/<name.+\<\/name/i) {
$name=(split(/<*\/*name>*/i,"@$filedata[$t]"))[1];
}#if
#----------------------------------------------
#trigger if the line contains the <description tag
if (@$filedata[$t]=~/\<description/i) {
if (@$filedata[$t]=~/\/description *>/i) {
$desctext=(split(/<*\/*description>*/i,"@$filedata[$t]"))[1];
}else{
@$filedata[$t]=~s/\< *description *\>//i;
$advance=0;
until (@$filedata[$t+$advance]=~/\/description *>/i) {
$desctext.="@$filedata[$t+$advance]";
$advance++;
}#until
}#else
}#if
#----------------------------------------------
#trigger if the line contains the category tags
if (@$filedata[$t]=~/<category.+\<\/category/i) {
$category=(split(/<*\/*category>*/i,"@$filedata[$t]"))[1];
push(@categories,"$category");
}#if
}#for
push(@html,"<td class=\"category\"><a name=\"$category\">$category</a></td>\n<td><a
href=\"http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/*checkout*/dqsd/dqsd/searches/$datafile?rev=HEAD&content-type=text/xml\";>$datafile</a></td>\n<td
class=\"funcName\">$name</td>\n<td
class=description>$desctext<br><br>\n</td>\n</tr>");
}#foreach
#sort by the categories
@html=sort(@html);
#remove any duplicates from the categories list
@categories=grep(($Last eq $_ ? 0 : ($Last = $_, 1)),sort @categories);
#build the category link string to go above and below the table
$categorylink="";
for ($t=0; $t<=scalar(@categories); $t++) {
next if ($categories[$t]=~/^ *$/);
$categorylink .="\n<a class=\"categorylink\"
href=\"\#$categories[$t]\">$categories[$t]</a>";
}
print "<center><h3>DQSD Searches</h3>$categorylink";
print
"<table>\n<th></th><th>Category</th><th>File</th><th>Name</th><th>Description</th>";
for ($t=1; $t<=scalar(@html); $t++) {
print "\n<tr>\n<td class=\"lineNumbers\">$t</td>$html[$t-1]";
}
#end html
print qq{
</table>
$categorylink
</center>
</body>
</html>
};
#slurp in a file and return the data array
sub read_file {
my($file) = @_;
open(INF, "<$file") or return();
my(@data) = <INF>;
close(INF);
chomp @data;
return(\@data);
}#sub
-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf
_______________________________________________
DQSD-CVS mailing list
https://lists.sourceforge.net/lists/listinfo/dqsd-cvs
DQSD CVS repository:
http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/dqsd/
