Homepage of $name

#!/usr/bin/perl ############################################################ # Name: homepage.pl # # Created: 11-30-00 # # Last modified: 02-22-07 # # Copyright: Eric Curts # # Email: eric@curtsworks.com # # The purpose of this script is to generate a homepage for # # a staff member from the data files they have made with # # POW-PAK. # ############################################################ ############################################################ # Read in district specific details. # ############################################################ open (DATAFILE,") { chop; ($item, $info) = split(/\|/,$_,2); $district_data{$item} = $info; } close (DATAFILE); ############################################################ # Require libraries and begin parsing info. # ############################################################ unshift (@INC, "$district_data{'path'}/cgi-bin"); require ("cgi-lib.pl"); require ("logger.lib"); require ("powpak-lib.pl"); &ReadParse(*info); $id = $info{'id'}; $self = $info{'self'}; ############################################################ # Check to see if staff page exists. # ############################################################ if (-e "$district_data{'path'}/data/$id/name.data") { open (DATAFILE,"<$district_data{'path'}/data/$id/name.data")||print "can not open name.data"; $name = ; close (DATAFILE); } else { print "Content-type: text/html\n"; print "Location: no_homepage.pl\n\n"; } ##################### # Check for Sidebar # ##################### if (-e "$district_data{'path'}/data/$id/sidebar.data") { open (DATAFILE,"<$district_data{'path'}/data/$id/sidebar.data")||print "can not open sidebar.data"; while () { chop; ($item, $info) = split(/\|/,$_,2); $sidebar_data{$item} = $info; } close (DATAFILE); } $sidebar_active = $sidebar_data{'active'}; if (($sidebar_active eq "yes")&&($self ne "yes")) { print "Content-type: text/html\n"; print "Cache-Control: no-store\n"; print "\n"; print qq~ Homepage of $name ~; } else { ############################################################ # Begin reading in data for specified staff member. # ############################################################ print "Content-type: text/html\n"; print "Cache-Control: no-store\n"; print "\n"; &logger("hp",$id); open (DATAFILE,"<$district_data{'path'}/data/$id/background.data")||print "can not open background.data"; $background = ; close (DATAFILE); open (DATAFILE,"<$district_data{'path'}/data/$id/text_color.data")||print "can not open text_color.data"; $text_color = ; close (DATAFILE); open (DATAFILE,"<$district_data{'path'}/data/$id/link_color.data")||print "can not open link_color.data"; $link_color = ; close (DATAFILE); open (DATAFILE,"<$district_data{'path'}/data/$id/horizontal_rule.data")||print "can not open horizontal_rule.data"; $horizontal_rule = ; close (DATAFILE); open (DATAFILE,"<$district_data{'path'}/data/$id/welcome_text.data")||print "can not open welcome_text.data"; $welcome_text = ; $welcome_text =~ s/~nl~/
/g; close (DATAFILE); if (-e "$district_data{'path'}/data/$id/quote.data") { open (DATAFILE,"<$district_data{'path'}/data/$id/quote.data")||print "can not open quote.data"; $quote = ; $quote =~ s/~nl~/
/g; close (DATAFILE); } if (-e "$district_data{'path'}/data/$id/email.data") { open (DATAFILE,"<$district_data{'path'}/data/$id/email.data")||print "can not open email.data"; $email = ; close (DATAFILE); } ########################################################### # Generate standard page data # ########################################################### &load_title_info; &print_head_info("homepage"); &determine_background; &print_body_info; &display_title_picture; &print_title_info("homepage"); &display_horizontal_rule; ############################################################ # Generate links to other parts of the web site. # ############################################################ if ($sidebar_active ne "yes") { $links_exist = "no"; print qq~
~; if (-e "$district_data{'path'}/data/$id/calendar.data") { print qq~ $title_options{'calendar'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/daily_calendar.data") { print qq~ $title_options{'daily_calendar'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/weekly_calendar.data") { print qq~ $title_options{'weekly_calendar'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/monthly_calendar.data") { print qq~ $title_options{'monthly_calendar'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/competition_calendar.data") { print qq~ $title_options{'competition_calendar'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/activity_calendar.data") { print qq~ $title_options{'activity_calendar'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/roster_page.data") { print qq~ $title_options{'roster_page'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/records_page.data") { print qq~ $title_options{'records_page'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/links_page.data") { print qq~ $title_options{'links_page'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/pictures_page.data") { $picture_flag = "no"; open (DATAFILE,"<$district_data{'path'}/data/$id/pictures_page.data")||print "can not open pictures_page.data"; while () { chop; $current_line = $_; ($current_title_value, $current_description_value, $current_category_value, $current_name_value, $current_active_value) = split(/\|/,$current_line,5); if ($current_active_value eq "yes") { $picture_flag = "yes" } } close (DATAFILE); if ($picture_flag eq "yes") { print qq~ $title_options{'pictures_page'} ~; $links_exist = "yes"; } } if (-e "$district_data{'path'}/data/$id/files_page.data") { print qq~ $title_options{'files_page'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/webquests/") { print qq~ $title_options{'wq_page'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/lessonplans/") { print qq~ $title_options{'lp_page'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/wordsearch/") { print qq~ $title_options{'ws_page'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/articles/") { print qq~ $title_options{'articles_page'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/cp/") { print qq~ $title_options{'custom_page'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/blog/") { print qq~ $title_options{'blog_page'} ~; $links_exist = "yes"; } if (-e "$district_data{'path'}/data/$id/podcasts/") { print qq~ $title_options{'pc_page'} ~; $links_exist = "yes"; } print qq~ ~; if ($links_exist eq "yes") { print "
"; } } else { print "

"; } ############################################################ # Display welcome page picture. # ############################################################ if (-e "$district_data{'path'}/data/$id/main_pic.gif") { open (DATAFILE,"<$district_data{'path'}/data/$id/main_pic.data")||print "can not open main_pic.data"; $alignment = ; close (DATAFILE); if ($alignment eq "center") { print qq~

~; } else { print qq~ ~; } } if (-e "$district_data{'path'}/data/$id/main_pic.jpg") { open (DATAFILE,"<$district_data{'path'}/data/$id/main_pic.data")||print "can not open main_pic.data"; $alignment = ; close (DATAFILE); if ($alignment eq "center") { print qq~

~; } else { print qq~ ~; } } ############################################################ # Print welcome text. # ############################################################ print qq~ $welcome_text

~; ############################################################ # Print staff quote if available. # ############################################################ if ($quote ne "") { print qq~

$quote

~; } ############################################################ # Generate horizontal rule. # ############################################################ if ($horizontal_rule eq "hr") { print qq~

~; } else { print qq~

~; } ############################################################ # Print email address of staff if available. # ############################################################ if ($email ne "") { print qq~ Email me at: $email
~; } ############################################################ # Print link to school district homepage. # ############################################################ print qq~ Go to $district_data{'district_name'} ~; ############################################################ # End output of web page. # ############################################################ print qq~ ~; }