JTFarchive.org

#!/usr/bin/perl -w # ########################################################## # CONFIG # ########################################################## $dir = "/home/apfabbro/jtfarchive.org/articles/"; # ########################################################## # MODULES & PRAGMAS # ########################################################## use CGI; # ########################################################## # MAIN # ########################################################## # # start CGI output # $cgi = new CGI; print $cgi->header; # # print top # print < JTFarchive.org

JTF Articles Archive

END # # make list of categories # @categories = (); opendir (D,"$dir"); while ( $file = readdir (D) ) { next if $file =~ /^\./; next unless -d ( "$dir/$file"); push @categories, $file; } close (D); @categories = sort @categories; # # foreach category... # foreach $category (@categories) { print "" . ucfirst($category) . "
\n"; print "

) { if ( // ) { chomp; $title = $_; last; } } close (F); $title =~ s/^.*<title>//; $title =~ s/<\/title>.*$//; $title =~ s/^.*://; push @articles, "<LI class=\"style2\">\n" . "<A HREF=\"/articles/$category/$file\">\n" . "$title\n" . "</A></LI>\n"; } close (D); print sort @articles; print "</UL>\n"; } =cut $sql = $dbh->prepare (" SELECT * FROM youtube_search ORDER BY updated desc, published desc"); # # start table # print "<TABLE>\n"; # # print all results # $sql->execute; while ( $row = $sql->fetchrow_hashref ) { print "<TR>\n"; $mins = sprintf("%02i", int($row->{duration}/60)); $secs = sprintf("%02i", int ( $row->{duration} % 60 )); $row->{thumbnail_urls} =~ s/,.*$//; print "<TD VALIGN=\"TOP\">"; print "<TD><A HREF=\"$row->{url}\">"; print "<IMG SRC=\"$row->{thumbnail_urls}\" ALIGN=\"LEFT\"/>"; print "</A></TD>\n"; print "<TD ALIGN=\"left\" VALIGN=\"TOP\">\n"; print "<TABLE>"; print "<TR>"; print "<TD class=\"small\"><A HREF=\"$row->{url}\">$row->{title}</A> ($mins:$secs, $row->{view_count} views, rating: $row->{avg_rating})\n"; print "</TD>\n"; print "</TR>\n"; print "<TR>\n"; print "<TD class=\"small\">By $row->{author} in category \"$row->{category}\"</TD>\n"; print "</TR>\n"; print "<TR>\n"; print "<TD class=\"small\">Description: $row->{description}</TD>\n"; print "</TR>\n"; print "<TR>\n"; print "<TD class=\"small\">Published $row->{published}, Last Updated $row->{updated}</TD>\n"; print "</TR>\n"; print "<TR>\n"; print "<TD class=\"small\">Keywords: $row->{keywords}</TD>\n"; print "</TR>\n"; print "</TABLE>\n"; print "</TD>\n"; print "</TR>\n"; print "<TR><TD><HR></TD></TR>\n"; } # # end # print "</TABLE>\n"; $sql->finish; print "</body>\n"; print "</html>\n"; $dbh->disconnect;