Help for this page

Select Code to Download


  1. or download this
    $yeardir=$ENV{'QUERY_STRING'};
...
opendir(DIR, "d:/wwwroot/CalvaryBaptist/Sermons/".$yeardir);
  2. or download this
    $yeardir=$ENV{'QUERY_STRING'};
$yeardir=~/^(19|20|21)[0-9]{2}$/ or die "Bad year\n";
...
opendir(DIR, "d:/wwwroot/CalvaryBaptist/Sermons/".$yeardir);
  3. or download this
    $yeardir=$ENV{'QUERY_STRING'};
unless ($yeardir=~/^(19|20|21)[0-9]{2}$/) {
    print "Content-Type: text/plain\r\n\r\n";
...
}
...
opendir(DIR, "d:/wwwroot/CalvaryBaptist/Sermons/".$yeardir);