Disciple the Nations - Mission & Travel

#! /usr/bin/perl -w # ######################################## # # displays mission/travel page for DTN site # written by benjamin ramey # bsr@rameydesign.net # april, 2004 # ######################################## $data_file = "./data/travel_data.txt"; print "Content-type: text/html\n\n"; &Print_Top_HTML; &Carter_Calender; &Short_Term; &Europe_Info; &Travel_Info; &Print_Bottom_HTML; ################################################################################################################################################ # SUB ROUTINES FOR DYNAMIC HTML ################################################################################################################################################ sub Carter_Calender { print <<"HTML";

	Carter's Ministry Calendar
	Carter's Missionary Moments HTML open( INFILE, "$data_file" ) or print " ERROR: Could not open $data_file. "; my $num_moments = 0; my $in_section = 0; while( (my $file_line = ) && ($num_moments <= 5) ) { if( $file_line =~ m// ) { $in_section = 1; } if( $file_line =~ m/<\/cartercalender>/ ) { $in_section = 0; } if( ($file_line =~ m/(.)<\/date>/ ) && $in_section ) { print "From $1* \n"; } if( ($file_line =~ m/(.)<\/file>/) && $in_section ) { print "see full letter: click here\n"; } if( ($file_line =~ m/ (.)<\/summary>/) && $in_section ) { print " \"$1\" \n\n"; $num_moments++; } } close( INFILE ); print <<"HTML";

HTML } sub Short_Term { print<<"HTML";

	Short Term Opportunities / top /
	None for now! Check back later. HTML print<<"HTML";

HTML } sub Europe_Info { print<<"HTML";

	Information on Europe / top /
	To view information on any of the European countries, simply click on them! For information of nations too small to fit on the map click below: => Liechtenstein => Monaco => San Marino => Vatican City

HTML } sub Travel_Info { print<<"HTML";

	Current Travel Info / top /
	This section will eventually be accessible only to those specifically allowed access by DtN, to view current traveling information. Check back soon! HTML print<<"HTML";

HTML } ################################################################################################################################################ # SUB ROUTINES FOR PRINTING GENERIC HTML ################################################################################################################################################ ##############displays top of travel page############## sub Print_Top_HTML { print <<"HTML"; Disciple the Nations - Mission & Travel

carter's ministry calendar | short term opportunities | information on europe | travel info

HTML } ##############displays bottom of travel page############## sub Print_Bottom_HTML { print <<"HTML";

who we are | resources | prayer requests | travel info | photos/videos

HTML }