#!/usr/bin/perl


# This work is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 United States License.
# http://herselfswebtools.com
# Linda MacPhee-Cobb"



#program to update a web page with new information
#daily.  
#Name the for each day daily_dayofyear.html.  So the
#daily update for Jan 2 would be daily_2.html
#put them off your top level directory in a directory
#named daily.

#To use this link to <a href="http://www.yourdomain.com/cgi-bin/daily.pl>Page</a>

#get day of year
$today = (localtime(time()))[7];

#add file extention
$tag = "html";

#add file information
$name = "daily";

#clean up and stick together to build file name
chomp($today);
chomp($tag);
chomp($name);
$temp = join ".",  $today, $tag;

$filename = join "_", $name, $temp; 

#open the file for reading
open(IN, "../daily/$filename");  
flock(IN, 2);                #lock the file
seek(IN, 0, 0);              #rewind to beginning


#create the html page
print "Content-type:text/html\n\n";

while ( <IN> ){
 
      print ; 

}

close IN;