Seminar Archives page of the Planning Unit, Delhi center.

#!/usr/bin/perl $notice_dir="/home/planning/public_html/seminar/notices/"; $abstract_dir="/home/planning/public_html/seminar/abstracts/"; $conference_date="19_1_2002"; ($sec,$min,$hour,$mday,$current_month,$current_year,$wday,$yday,$isdst) = localtime(time); ($current_year,$current_month)=(1900+$current_year,1+$current_month); $today="${mday}_${current_month}_${current_year}"; if ($current_month <= 6) { $last_year=$current_year-1; $starting_date="1_7_$last_year"; } else { $starting_date="1_7_$current_year"; } $ls=`ls $notice_dir`; @all_seminars=split(/\n/,$ls); foreach $seminar (@all_seminars) { $temp=$seminar; $temp=~ s/\.txt//; $temp=~ s/_//g; if (($seminar=~ /(.*)_(.*)_(.*).txt/) && (!($temp=~ /[a-zA-Z]/))) { if ((cal($seminar) >= cal($starting_date)) && (cal($seminar) < cal($today))) { push(@seminars_this_year,$seminar); } } } @seminars_this_year = sort { cal($a) <=> cal($b) } @seminars_this_year; &print_html_header; $set_conference="NO"; foreach $seminar (@seminars_this_year) { if (($set_conference eq "NO") && (cal($seminar) > cal($conference_date))) { $set_conference = "YES"; print "

"; print "

\n"; } &do_this_seminar($seminar); } &print_html_end; exit; sub cal { local($str)=$_[0]; if ($str=~ /\.txt/) { $str=~ s/\.txt//; } if ($str=~ /(.*)_(.*)_(.*)/) { return($1+(100*$2)+(10000*$3)); } } sub print_html_header { print "content-type: text/html Seminar Archives page of the Planning Unit, Delhi center.

Seminar Archives Page

This page contains notices of previous seminars held at the Planning Unit, Delhi center, since 1st of July, "; if ($current_month >= 7 ) { print "$current_year.

\n"; } else { print "${last_year}.

\n"; } print "

\n"; } sub print_html_end { print " This page: http://www.isid.ac.in/~planning/cgi-bin/archives.cgi
[Seminars page] [Planning Unit] [Indian Statistical Institute] [Comment on page design] \n"; } sub do_this_seminar { local($sem_date)=$_[0]; open(NOTICE,"${notice_dir}${sem_date}") || die "can't open the notice file\n"; local(@entry)=; close(NOTICE); $entry[1]=~ s/\\\\/
/g; $entry[2]=~ s/\\\\/
/g; print "

\n"; $sem_date=~ s/\.txt//; $abs_file="${abstract_dir}${sem_date}.html"; if (-e $abs_file) { print " \n"; } print "

SPEAKER : $entry[0]
$entry[1]

TOPIC : $entry[2]

DAY & DATE : $entry[4]

Abstract

\n"; }