#!/usr/bin/perl $QOTDFILENAME = "qotd.txt"; $QOTDIMAGEFILE = "qotdImages.txt"; print "Content-type: text/html\n\n"; ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = localtime(time); $dayNum = $year*365+$yday; if (!open QFILE, "$QOTDFILENAME") { print "Can't open $QOTDFILENAME\n"; exit(-1); } if (!open IFILE, $QOTDIMAGEFILE) { print "Can't open $QOTDIMAGEFILE\n"; exit(-1); } @lines = ; @images = ; $quote_file_text = join '', @lines; $quote_file_text =~ s/\n/\n/g; @quotes = split '\*\*\*', $quote_file_text; $num_lines = @quotes; $num_images = @images; $idx_today_img = $dayNum%$num_images; $idx_today = $dayNum%$num_lines; print "\n"; print "

Today's Awakening

\n"; print "

\n"; $img_src = $images[$idx_today_img]; $img_src =~ s/[\t ].*$//g; if ($images[$idx_today_img] =~ /.*[ \t].*/) { $img_credit = $images[$idx_today_img]; $img_credit =~ s/^[^\t ]+[\t ]//g; } else { $img_credit = ""; } print "

$quotes[$idx_today]

\n"; print "

$img_credit

\n"; print "

Yesterday's Awakening

\n"; print "\n\n";