${title_seminar

#!/usr/bin/perl ###### CONFIGURATION -- NAME OF DIRECTORIES, URLS, BACKGROUND COLOR ################## ###### IMAGES, FONT COLOR, FONT NAMES ETC ###################### $notice_dir="/home/planning/public_html/seminar/notices/"; $abs_dir="/home/planning/public_html/seminar/abstracts/"; $papers_dir="/home/planning/public_html/seminar/papers/"; $title_seminar_page="Economics Seminar Notice"; $seminar_notice_top="Scheduled Seminars"; $no_seminar_message="There are currently no seminars scheduled. This page will be updated as soon as a seminar is arranged."; $name_unit="Planning Unit"; $base_url_abstract_page="http://www.isid.ac.in/~planning/seminar/abstracts/"; $base_url_papers_page="http://www.isid.ac.in/~planning/seminar/papers/"; $url_this_page="http://www.isid.ac.in/~planning/cgi-bin/seminar.cgi"; $url_archives_page="http://www.isid.ac.in/~planning/cgi-bin/archives.cgi"; $url_unit_page="http://www.isid.ac.in/~planning/"; $e_mail_web_master="pu\@isid.ac.in"; $comment_statement="Comment On Page Design"; ############ FORMAT OF COLOR or URL OF IMAGES ############################ ############ $...color="white"; or $...color="\#{..}{..}{..}"; ############ ############ IN HEXADECIMAL FORMAT, EX. $font_color="\#0000AA"; ########### #$bg_url="http://www.isid.ac.in/~planning/images/backgrounds/greyback.jpg"; $bg_color="seagreen"; $bg_color_table_notice="white"; $bg_color_table_top="white"; $bg_color_archives_page_link="beige"; $bg_color_abstract_page_link="beige"; $color_link="blue"; $color_vlink="black"; $font_color="navyblue"; $font1="Helvetica"; $font2="Arial"; $font3="Comic Sans MS"; ################# MAKE HEADER OF THE HTML PAGE ########################## &print_html_header; ###### FIX THE DATE & TIME WHEN THE REQUEST IS MADE ##### ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); ($year,$month)=(1900+$year,1+$mon); $date_today="${mday}_${month}_${year}"; ###### SELECT ALL SEMINARS AFTER THIS DATE ############### @all_files = glob("${notice_dir}*.txt"); foreach $file (@all_files) { if ($file=~ /${notice_dir}(.*)_(.*)_(.*).txt$/) { ($day,$month,$year)=($1,$2,$3); if ((($day=~ /^[1-9]$/) || ($day=~ /^[1-9][0-9]$/)) && (($month=~ /^[1-9]$/) || ($month =~ /^1[0-2]$/)) && ($year=~ /^200[0-9]$/)) { if ((cal("${day}_${month}_${year}") > cal ($date_today)) || ((cal("${day}_${month}_${year}") == cal ($date_today)) && (17 > $hour))) { push (@future_seminars,$file); } } } } @future_seminars = sort { cal($a) <=> cal($b) }@future_seminars; ######## IF THERE ARE SEMINARS SCHEDULED IN FUTURE PRINT THOSE NOTICES ########## ######## ELSE PRINT NO SEMINAR MESSAGE (GIVEN IN TOP) ########################### if (@future_seminars) { @future_seminars = sort { cal($a) <=> cal($b) } @future_seminars; &print_seminar_top; foreach $seminar (@future_seminars) { &print_seminar_notice($seminar); } } else { &print_no_seminar_notice; } &print_html_footer; exit; ################ END OF MAIN PROGRAM -- SUBROUTINES START ################# sub print_seminar_top { print "
${seminar_notice_top}
\n"; } sub print_html_header { print "Content-type: text/html ${title_seminar_page} <\!cgi script written by Anish Sarkar>

INDIAN STATISTICAL INSTITUTE
DELHI CENTRE
${title_seminar_page}

Previous
Seminars

"; } sub print_no_seminar_notice { print " ${no_seminar_message}

\n"; } sub print_html_footer { print "

This page: ${url_this_page}
[${name_unit}] [Indian Statistical Institute] [${comment_statement}] \n"; } sub print_seminar_notice { local($notice_file)=$_[0]; local(@entry,$abstract_exists,$paper_exists,$name,$extra_info); open(NOTICE,$notice_file); @entry=; close(NOTICE); if ($notice_file=~ /${notice_dir}(.*)\.txt/) { $date=$1; $abs_file="${abs_dir}${date}.html"; if (-e $abs_file) { $abstract_exists="yes"; } } if ($notice_file=~ /${notice_dir}(.*)\.txt/) { $date=$1; $paper_file="${papers_dir}${date}.pdf"; if (-e $paper_file) { $paper_exists="yes"; } } if ($notice_file=~ /${notice_dir}(.*)\.txt/) { $name=$1; if (-e "${name}_extra_info.txt") { $extra_info="yes"; } } $entry[1]=~ s/\\\\/
/g; $entry[2]=~ s/\\\\/
/g; print "

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

TOPIC	:	$entry[2]

TIME	:	$entry[3]

DAY & DATE	:	$entry[4]

VENUE	:	$entry[5]

\n"; if (${extra_info} eq "yes") { &print_extra_info("${name}_extra_info.txt"); } if (${abstract_exists} eq "yes") { print "

Abstract

\n"; } if (${paper_exists} eq "yes") { print "

Download Seminar Paper

\n"; } } sub print_extra_info { local($filename)=$_[0]; local($lines,$content); open(EXTRA,$filename); @lines=; close(EXTRA); $content = join(' ',@lines); $content=~ s/\n//g; print "

"; print "\n"; print "

${content}

"; } sub cal { local($str)=$_[0]; if ($str=~ /.txt$/) { $str=~ s/.txt//; } if ($str=~ /^${notice_dir}/) { $str=~ s/${notice_dir}//; } if ($str=~ /^(.*)_(.*)_(.*)$/) { return($1+($2*100)+($3*10000)); } }