#!/usr/bin/perl
use CGI qw(:standard);
use Pg;
use Date::Calc qw(:all);
$baseurl = "http://www.linuxdoc.org";
$basesql = "SELECT doc_id, title, class, ref_url, version, format FROM document ";
$dbmain='ldp';
$conn=Pg::connectdb("dbname=$dbmain");
print header;
print "LDP Statistics Statistics \n\n";
print "Index ";
print "Documents ";
print "Topics ";
print "Maintainers ";
print "Editors ";
print "Statistics ";
print "Help ";
$sql = "select count(*) from document";
$result=$conn->exec($sql);
die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;
@row = $result->fetchrow;
$document_total = $row[0];
$sql = "select count(*) from document where pub_status = 'N'";
$result=$conn->exec($sql);
die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;
@row = $result->fetchrow;
$document_count = $row[0];
print "
Status";
print "\n\n";
$sql = "select pub_status_name, count(*) from pub_status, document where pub_status.pub_status = document.pub_status group by pub_status_name";
$result=$conn->exec($sql);
die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;
$total = 0;
print " \n";
print "Status Count Percent \n";
print "" . $row[0] . " \n";
print "" . $row[1] . " \n";
$pct = sprintf( '%3.2f', $row[1] / $document_total * 100 );
print "" . $pct . "% \n";
print " \n";
$total = $total + $row[1];
}
print "Total $total
\n";
print "Only documents marked "Active" are represented in the following statistics.\n";
print "
License";
print "\n\n";
$sql = "select license, count(*) FROM document where pub_status = 'N' group by license";
$result=$conn->exec($sql);
die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;
$total = 0;
$free_count = 0;
$nonfree_count = 0;
$unknown_count = 0;
print " \n";
print "License Count Percent \n";
print "$license \n";
print "$count \n";
$pct = sprintf( '%3.2f', $count / $document_count * 100 );
print "$pct% \n";
print " \n";
$total = $total + $count;
if ( $license eq "GFDL" || $license eq "GPL" || $license eq "OPL" || $license eq "LDPL" || $license eq "PD" ) {
$free_count += $count;
}
elsif ( $license eq "" ) {
$unknown_count += $count;
}
else {
$nonfree_count += $count;
}
}
print "Total $total
\n";
$free_pct = sprintf( '%3.2f', $free_count / $total * 100 );
$nonfree_pct = sprintf( '%3.2f', $nonfree_count / $total * 100 );
$unknown_pct = sprintf( '%3.2f', $unknown_count / $total * 100 );
print "
\n";
print "Type Count Percent Free* $free_count $free_pct Non-Free $nonfree_count $nonfree_pct Unknown $unknown_count $unknown_pct Total $total
\n";
print "*Free licenses include GFDL, GPL, OPL, and PD.\n";
print "
Class";
print "\n\n";
$sql = "select class_name, count(*) from class, document where pub_status = 'N' and class.class = document.class group by class_name";
$result=$conn->exec($sql);
die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;
$total = 0;
print " \n";
print "Class Count Percent \n";
print "" . $row[0] . " \n";
print "" . $row[1] . " \n";
$pct = sprintf( '%3.2f', $row[1] / $document_count * 100 );
print "" . $pct . "% \n";
print " \n";
$total = $total + $row[1];
}
print "Total " . $total . "
\n";
print "
Format";
print "\n\n";
$sql = "select format, count(*) from document where pub_status = 'N' group by format";
$result=$conn->exec($sql);
die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;
$total = 0;
print " \n";
print "Format Count Percent \n";
print "" . $row[0] . " \n";
print "" . $row[1] . " \n";
$pct = sprintf( '%3.2f', $row[1] / $document_count * 100 );
print "" . $pct . "% \n";
print " \n";
$total = $total + $row[1];
}
print "Total " . $total . "
\n";
print "
DTD";
print "\n\n";
$sql = "select dtd, count(*) from document where pub_status = 'N' group by dtd";
$result=$conn->exec($sql);
die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;
$total = 0;
print " \n";
print "DTD Count Percent \n";
print "" . $row[0] . " \n";
print "" . $row[1] . " \n";
$pct = sprintf( '%3.2f', $row[1] / $document_count * 100 );
print "" . $pct . "% \n";
print " \n";
$total = $total + $row[1];
}
print "Total " . $total . "
\n";
print "
Format and DTD";
print "\n\n";
$sql = "select format, dtd, count(*) from document where pub_status = 'N' group by format, dtd";
$result=$conn->exec($sql);
die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;
$total = 0;
print " \n";
print "Format DTD Count Percent \n";
print "$format \n";
print "$dtd \n";
print "$count \n";
print "" . $pct . "% \n";
print " \n";
$total = $total + $count;
}
print "Total " . $total . "
\n";
print "
Details";
$sql = "select class, dtd, format, count(*) from document where pub_status = 'N' group by class, dtd, format";
$result=$conn->exec($sql);
die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;
$total = 0;
print " \n";
print "Class DTD Format Count Percent \n";
print "" . $row[0] . " \n";
print "" . $row[1] . " \n";
print "" . $row[2] . " \n";
print "" . $row[3] . " \n";
$pct = sprintf( '%3.2f', $row[3] / $document_count * 100 );
print "" . $pct . "% \n";
print " \n";
$total = $total + $row[3];
}
print "Total " . $total . "
\n";
print "
Miscellaneous Statistics\n";
$sql = "select last_update from document where pub_status='N'";
$result=$conn->exec($sql);
die $conn->errorMessage unless PGRES_TUPLES_OK eq $result->resultStatus;
$count = 0;
$avg_age = 0;
($year2, $month2, $day2) = Today();
while (@row = $result->fetchrow) {
$last_update = $row[0];
if (($last_update != "") && ($last_update != "1970-01-01" )) {
$year1 = substr($last_update,0,4);
$month1 = substr($last_update,5,2);
$day1 = substr($last_update,8,2);
$age = Delta_Days($year1, $month1, $day1, $year2, $month2, $day2);
if ( $count > 0 ) {
$avg_age = (($avg_age * ($count - 1)) + $age) / $count;
}
else {
$avg_age = $age;
}
$count++;
}
}
print " \n";
print "Statistic Value Average Age Since Last Update ";
printf "%i", $avg_age;
print " days
\n";
print end_html;
sub read_document (@row) {
$doc_id = $row[0];
$title = $row[1];
$class = $row[2];
$class =~ s/\s*$//;
$refurl = $row[3];
$version = $row[4];
$version =~ s/\s*$//;
$format = $row[5];
$format =~ s/\s*$//;
$url = $baseurl . $refurl;
}
sub print_document() {
print "
";
print $title;
print "