home *** CD-ROM | disk | FTP | other *** search
/ linuxmafia.com 2016 / linuxmafia.com.tar / linuxmafia.com / pub / skeptic / bibliography / admin / home.cgi < prev    next >
Text File  |  2009-08-26  |  1KB  |  46 lines
  1. #!/usr/bin/perl
  2.  
  3. # $rcs = ' $Id: home.cgi,v 1.2 1998/06/20 04:00:04 fitz Exp $ ' ;
  4.  
  5. unshift(@INC, "../lib");
  6.  
  7. require 'config.pl';
  8. require 'bib.pl';
  9. require 'web.pl';
  10.  
  11. print "Content-type: text/html\n\n";
  12.  
  13.  
  14. &bib::load("META", "TITLE", "SUBMITNAME")
  15.   || &error("Database error: $bib::error");
  16.  
  17. foreach $id (sort bib::id_by_title keys %bib::db)
  18. {
  19.     next unless $bib::db{$id}->{META} =~ /submit|delete/i;
  20.  
  21.     if ($bib::db{$id}->{META} =~ /submit/i)
  22.     {
  23.         $submittals .=
  24.           " <LI> <CITE><A HREF=$bib::admin_cgi/edit.cgi/$id>" .
  25.             "$bib::db{$id}->{TITLE}</A></CITE>";
  26.         
  27.         $submittals .= ", submitted by $bib::db{$id}->{SUBMITNAME}\n"
  28.           if $bib::db{$id}->{SUBMITNAME};
  29.     }
  30.     elsif ($bib::db{$id}->{META} =~ /delete/i)
  31.     {
  32.         $deleted .=
  33.           " <LI> <CITE><A HREF=$bib::admin_cgi/edit.cgi/$id>" .
  34.             "$bib::db{$id}->{TITLE}</A></CITE>";
  35.     }
  36. }
  37.  
  38. $submittals = " <LI> No entries are marked as submitted." unless $submittals;
  39. $deleted = " <LI> No entries are marked as deleted." unless $deleted;
  40.  
  41. # Create the HTML page
  42. print &bib::template("admin-home.html",
  43.                      "SUBMITTALS", $submittals,
  44.                      "DELETED", $deleted,);
  45. exit 0;
  46.