#!/usr/bin/perl alarm(600); $home = "$ENV{'DOCUMENT_ROOT'}"; require("cgi-lib.pl"); &ReadParse; $data_dir = "./data"; $curr_dir = "./"; #where this script sits $image_URL = './conference_pdf'; open(PR,"<$data_dir/conference.txt"); for(){ chop; ($date,$headline,$subhead,$time,$location,$cost,$body,$pdf,$pdf_title,$link,$link_title,$rc) = split(/\t{1,1}/,$_); if($rc eq $in{'file'}){last;} } close(PR); #HEADER INFO IN THIS BLOCK print < Continuing Education at Kennesaw State University

$headline

$subhead

Date: $date

Time: $time

Location: $location

Cost: $cost

$body

$link_title

$pdf_title

Other Conference Information:

EOF $include = `$curr_dir/show_conferences.pl`; print $include; print < EOF exit;