#!/usr/bin/perl -w # http://sandiegogeologists.org/cgi-bin/newslist.cgi: reports meeting reservations and food choice totals # Carolyn Glockhoff 19 January 2007 this program lists all past newsletters in the directory as links for users to download use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); print < SDAG Newsletter Archive

SDAG Newsletter Archive

END_TOP no strict; opendir(NEWSLETTERS, "../newsletters") || dienice ("Can't open newsletters directory for reading: $!"); foreach $name (sort readdir(NEWSLETTERS)) {# list file names of newsletters as links if (-d $name) { #don't set up links to directory level print "\n";} else { print "$name
\n"; } } closedir(NEWSLETTERS); print "
\n"; print < SDAG home END_BOTTOM sub dienice { my ($msg) = @_; print "

Error

\n"; print "$msg"; exit; }