benjaminramey/d-t-n.org
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
e85327b977207d9220a9546cc5f8cf9a67b9bd58
d-t-n.org/archive/version_01/travel.pl
Ben Ramey e85327b977 initial commit
2017-03-02 21:36:05 -06:00

323 lines
20 KiB
Perl
Executable File
Raw Blame History

#! /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";
<table class="section_table" cellpadding="0" cellspacing="0" border="0">
<tr>
<td class="corner">&nbsp;</td>
<td class="header" align="left">Carter's Ministry Calendar&nbsp;&nbsp;&nbsp;<span class="top_anchor"><a name="carters_ministry_cal" href="#top">&nbsp;</a></span>
</td>
<td>&nbsp;</td>
</tr>
<tr>
<td align="left" valign="top">&nbsp;</td>
<td colspan="2" class="content_column">
<b>Carter's Missionary Moments</b>
<blockquote>
HTML
open( INFILE, "$data_file" ) or print "<br /><span style='font-weight: bold; color: red'>ERROR: Could not open $data_file.</span><br />";
my $num_moments = 0;
my $in_section = 0;
while( (my $file_line = <INFILE>) && ($num_moments <= 5) )
{
if( $file_line =~ m/<cartercalender>/ ) { $in_section = 1; }
if( $file_line =~ m/<\/cartercalender>/ ) { $in_section = 0; }
if( ($file_line =~ m/<date>(.*)<\/date>/ ) && $in_section ) { print "<b>From $1</b><br />\n"; }
if( ($file_line =~ m/<file>(.*)<\/file>/) && $in_section ) { print "see full letter: <a href=\"javascript:void(0)\" onclick=\"window.open( '$1', '_blank', 'height=400, width=600, scrollbars=yes' )\">click here</a>\n"; }
if( ($file_line =~ m/<summary>(.*)<\/summary>/) && $in_section ) { print "<div style=\"border-width: 1px 0px 1px 0px; border-color: #000000; border-style: dashed; padding: 10px; margin: 10px 25px 10px 25px;\"><i>\"$1\"</i></div>\n\n"; $num_moments++; }
}
close( INFILE );
print <<"HTML";
</blockquote>
</td>
</tr>
</table>
HTML
}
sub Short_Term
{
print<<"HTML";
<table class="section_table" cellpadding="0" cellspacing="0" border="0">
<tr>
<td class="corner">&nbsp;</td>
<td class="header" align="left"><!--TITLE-->
Short Term Opportunities
<!--END_TITLE-->
&nbsp;&nbsp;&nbsp;<span class="top_anchor">/ <a name="short_term_opp" href="#top">top</a> /</span></td>
<td>&nbsp;</td>
</tr>
<tr>
<td align="left" valign="top">&nbsp;</td>
<td colspan="2" class="content_column">
<b>None for now! Check back later.</b>
HTML
print<<"HTML";
</td>
</tr>
</table>
HTML
}
sub Europe_Info
{
print<<"HTML";
<table class="section_table" cellpadding="0" cellspacing="0" border="0">
<tr>
<td class="corner">&nbsp;</td>
<td class="header" align="left"><!--TITLE-->Information on Europe <!--END_TITLE-->&nbsp;&nbsp;&nbsp;<span class="top_anchor"> / <a name="information_on_europe" href="#top">top</a> /</span></td>
<td>&nbsp;</td>
</tr>
<tr>
<td align="left" valign="top">&nbsp;</td>
<td colspan="2" class="content_column">
<!--CONTENT-->
To view information on any of the European countries, simply click on
them!<br> <br>
For information of nations too small to fit on the map click below:<br>
=> <a href="http://www.infoplease.com/ipa/A0107726.html" target="_blank">Liechtenstein</a><br>
=> <a href="http://www.infoplease.com/ipa/A0107792.html" target="_blank">Monaco</a><br>
=> <a href="http://www.infoplease.com/ipa/A0107939.html" target="_blank">San Marino </a><br>
=> <a href="http://www.infoplease.com/ipa/A0108136.html" target="_blank">Vatican City</a><br> <br>
<!--Fireworks MX 2004 Dreamweaver MX 2004 target. Created Tue May 11 12:19:32 GMT+0200 2004-->
<div align="center"><img name="europe_map" src="./graphics/travel/europe_map.gif" width="500" height="573" border="0" id="europe_map" usemap="#m_europe_map" alt="" /></div>
<map name="m_europe_map" id="m_europe_map">
<area shape="poly" coords="432,483,432,468,450,461,460,471,473,472,498,460,500,536,491,547,470,546,452,545,447,538,448,527,439,523,439,518,444,509,438,502,432,501,431,491,432,483" href="http://www.infoplease.com/ipa/A0108054.html" target="_blank" title="Turkey" alt="Turkey" />
<area shape="poly" coords="358,506,352,511,359,527,364,538,381,549,387,553,404,573,438,573,464,552,430,540,439,533,430,520,437,509,423,498,418,487,433,483,432,466,426,473,395,475,388,482,371,486,358,506" href="http://www.infoplease.com/ipa/A0107588.html" target="_top" title="Greece" alt="Greece" />
<area shape="poly" coords="366,482,374,485,381,482,383,479,386,479,393,472,387,462,365,469,361,479,366,482" href="http://www.infoplease.com/ipa/A0107738.html" target="_blank" title="Macedonia" alt="Macedonia" />
<area shape="poly" coords="350,471,347,485,358,505,369,492,368,486,362,479,364,469,362,462,353,460,350,471" href="http://www.infoplease.com/ipa/A0107268.html" target="_blank" title="Albania" alt="Albania" />
<area shape="poly" coords="217,425,214,397,230,392,234,399,238,391,246,393,254,389,276,387,287,407,272,411,271,430,278,437,299,466,310,468,334,488,335,501,313,500,320,513,311,527,294,549,264,533,265,524,215,507,215,475,229,472,255,459,248,446,245,436,241,430,233,424,217,425" href="http://www.infoplease.com/ipa/A0107658.html" target="_blank" title="Italy" alt="Italy" />
<area shape="poly" coords="289,408,287,398,317,392,319,396,303,410,285,410,289,408" href="http://www.infoplease.com/ipa/A0107971.html" target="_blank" title="Slovenia" alt="Slovenia" />
<area shape="poly" coords="337,461,307,426,308,417,345,424,347,418,340,407,318,397,308,405,303,411,284,412,287,421,314,449,337,461" href="http://www.infoplease.com/ipa/A0107439.html" target="_blank" title="Croatia" alt="Croatia" />
<area shape="poly" coords="339,460,349,428,311,415,308,425,313,435,339,460" href="http://www.infoplease.com/ipa/A0107349.html" target="_blank" title="Bosnia" alt="Bosnia" />
<area shape="poly" coords="341,408,348,418,344,424,350,426,350,437,340,462,346,469,353,459,362,462,364,469,371,466,381,464,386,462,388,428,386,420,377,424,361,403,340,405,341,408" href="http://www.infoplease.com/ipa/A0772953.html" target="_blank" title="Yugoslavia" alt="Yugoslavia" />
<area shape="poly" coords="386,435,387,449,389,465,396,476,426,474,432,466,450,460,443,454,449,440,456,432,435,430,421,435,409,437,394,435,389,429,386,435" href="http://www.infoplease.com/ipa/A0107365.html" target="_blank" title="Bulgaria" alt="Bulgaria" />
<area shape="poly" coords="366,401,377,382,387,371,432,367,446,405,463,404,464,414,459,417,457,433,444,429,431,430,422,435,407,438,390,435,390,425,387,420,375,423,366,401" href="http://www.infoplease.com/ipa/A0107905.html" target="_blank" title="Romania" alt="Romania" />
<area shape="poly" coords="430,27,491,26,499,25,500,307,491,288,469,296,474,272,456,256,453,242,427,235,421,221,417,192,419,185,436,179,422,172,437,132,424,94,412,76,414,58,410,44,420,30,430,27" href="http://www.infoplease.com/ipa/A0107909.html" target="_blank" title="Russia" alt="Russia" />
<area shape="poly" coords="99,62,130,61,148,46,148,34,143,27,133,23,123,20,117,18,108,3,97,1,89,9,83,22,82,40,99,62" href="http://www.infoplease.com/ipa/A0107624.html" target="_blank" title="Iceland" alt="Iceland" />
<area shape="poly" coords="285,197,279,192,261,207,243,204,238,196,235,174,248,141,266,128,272,119,312,58,326,41,353,25,373,13,388,6,400,12,416,20,417,29,409,43,404,30,396,28,385,46,368,43,357,48,335,62,311,117,304,122,298,159,294,191,285,197" href="http://www.infoplease.com/ipa/A0107851.html" target="_blank" title="Norway" alt="Norway" />
<area shape="poly" coords="366,173,380,186,392,183,418,173,437,132,428,118,423,95,410,75,416,58,408,43,407,32,394,30,387,45,375,49,366,44,375,56,383,93,391,98,392,105,382,118,375,127,366,132,365,156,366,173" href="http://www.infoplease.com/ipa/A0107513.html" target="_blank" title="Finland" alt="Finland" />
<area shape="poly" coords="295,255,305,257,307,246,319,247,329,243,340,236,348,218,347,188,335,169,340,144,362,126,367,98,381,93,375,56,363,45,349,54,339,61,324,90,312,120,304,122,300,161,294,193,284,200,284,207,286,220,294,236,291,239,295,255" href="http://www.infoplease.com/ipa/A0108008.html" target="_blank" title="Sweden" alt="Sweden" />
<area shape="poly" coords="432,367,441,382,447,405,453,388,462,388,456,372,445,362,432,367" href="http://www.infoplease.com/ipa/A0107787.html" target="_blank" title="Moldavia" alt="Moldavia" />
<area shape="poly" coords="393,316,401,309,432,311,456,307,468,297,477,290,490,288,494,301,500,310,500,402,497,403,499,391,482,387,487,383,470,385,472,389,468,399,463,405,450,405,454,391,461,387,457,372,449,363,445,361,429,364,407,374,388,371,380,366,381,357,396,333,393,316" href="http://www.infoplease.com/ipa/A0108070.html" target="_blank" title="Ukraine" alt="Ukraine" />
<area shape="poly" coords="325,369,318,390,330,406,339,406,363,403,380,376,387,371,379,366,370,365,359,371,346,376,339,379,330,376,325,369" href="http://www.infoplease.com/ipa/A0107620.html" target="_blank" title="Hungary" alt="Hungary" />
<area shape="poly" coords="343,349,380,354,379,365,367,364,358,371,351,373,339,378,329,376,324,363,336,361,343,349" href="http://www.infoplease.com/ipa/A0107967.html" target="_blank" title="Slovakia" alt="Slovakia" />
<area shape="poly" coords="390,278,392,291,392,304,391,315,402,308,420,306,435,313,455,310,467,296,476,274,453,256,452,241,441,241,427,236,415,250,413,261,407,272,399,276,390,278" href="http://www.infoplease.com/ipa/A0107325.html" target="_blank" title="Bielorussia" alt="Bielorussia" />
<area shape="poly" coords="393,215,402,214,420,219,417,193,402,187,385,197,370,203,372,214,393,215" href="http://www.infoplease.com/ipa/A0107501.html" target="_blank" title="Estonia" alt="Estonia" />
<area shape="poly" coords="364,242,378,239,401,242,415,249,427,237,422,229,421,221,406,214,392,217,394,225,389,230,385,227,380,221,373,220,367,227,364,242" href="http://www.infoplease.com/ipa/A0107706.html" target="_blank" title="Latvia" alt="Latvia" />
<area shape="poly" coords="371,259,384,273,399,278,406,273,412,259,411,244,392,240,379,239,364,245,367,259,371,259" href="http://www.infoplease.com/ipa/A0107730.html" target="_blank" title="Lithuania" alt="Lithuania" />
<area shape="poly" coords="305,289,309,282,332,269,347,268,353,273,361,260,367,260,388,278,393,290,391,303,392,315,394,325,395,332,382,355,345,349,333,340,322,340,309,325,305,289" href="http://www.infoplease.com/ipa/A0107891.html" target="_blank" title="Poland" alt="Poland" />
<area shape="poly" coords="281,335,293,330,308,324,319,335,320,340,332,339,339,341,344,347,340,353,335,361,324,362,308,358,302,362,292,362,287,354,279,341,281,335" href="http://www.infoplease.com/ipa/A0107456.html" target="_blank" title="Czech Republic" alt="Czech Republic" />
<area shape="poly" coords="250,379,282,379,292,363,303,362,304,358,325,361,325,370,323,378,319,385,317,391,302,394,286,396,275,387,261,387,255,387,250,384,250,379" href="http://www.infoplease.com/ipa/A0107301.html" target="_blank" title="Austria" alt="Austria" />
<area shape="poly" coords="214,395,227,394,231,393,234,398,238,390,247,393,254,389,248,381,248,377,227,370,205,384,204,391,209,387,214,395" href="http://www.infoplease.com/ipa/A0108012.html" target="_blank" title="Switzerland" alt="Switzerland" />
<area shape="poly" coords="257,277,237,277,233,294,224,306,220,318,220,326,219,340,232,351,226,370,239,373,248,377,281,380,291,363,283,348,278,338,282,333,309,325,304,283,289,269,264,263,254,263,252,270,257,277" href="http://www.infoplease.com/ipa/A0107568.html" target="_blank" title="Germany" alt="Germany" />
<area shape="poly" coords="255,261,264,263,263,251,272,263,296,272,313,263,289,255,288,245,277,237,277,215,258,222,251,234,250,248,248,257,247,262,255,261" href="http://www.infoplease.com/ipa/A0107460.html" target="_blank" title="Denmark" alt="Denmark" />
<area shape="poly" coords="213,335,220,326,220,334,217,340,213,335" href="http://www.infoplease.com/ipa/A0107734.html" target="_blank" title="Luxembourg" alt="Luxembourg" />
<area shape="poly" coords="197,305,203,299,209,289,214,279,214,289,219,289,220,280,235,282,236,289,231,293,232,300,226,304,221,318,213,306,202,308,197,305" href="http://www.infoplease.com/ipa/A0107824.html" target="_blank" title="Netherlands" alt="Netherlands" />
<area shape="poly" coords="187,307,194,305,201,308,212,305,216,313,220,319,220,325,216,331,212,335,207,335,196,324,187,307" href="http://www.infoplease.com/ipa/A0107329.html" target="_blank" title="Belgium" alt="Belgium" />
<area shape="poly" coords="117,215,127,211,126,190,147,168,200,149,175,201,162,217,171,240,177,259,174,273,187,276,186,285,173,295,175,304,150,299,139,303,130,298,121,301,108,302,102,296,121,288,143,285,119,277,132,266,128,259,143,258,151,249,147,238,133,242,121,236,111,227,117,215" href="http://www.infoplease.com/ipa/A0108078.html" target="_blank" title="United Kingdom" alt="United Kingdom" />
<area shape="poly" coords="71,251,82,246,84,231,90,217,101,216,114,215,111,227,115,232,120,239,117,255,107,267,99,267,74,266,71,251" href="http://www.infoplease.com/ipa/A0107648.html" target="_blank" title="Ireland" alt="Ireland" />
<area shape="poly" coords="109,411,124,386,123,353,102,334,122,325,138,326,145,316,155,323,173,317,175,308,186,307,197,326,209,336,231,349,226,371,205,384,204,391,211,386,214,394,212,401,214,420,217,427,198,437,169,427,162,441,115,421,109,411" href="http://www.infoplease.com/ipa/A0107517.html" target="_blank" title="France" alt="France" />
<area shape="poly" coords="0,481,5,474,8,461,2,451,27,409,55,423,18,487,0,481" href="http://www.infoplease.com/ipa/A0107895.html" target="_blank" title="Portugal" alt="Portugal" />
<area shape="poly" coords="28,407,28,388,53,387,107,411,115,421,144,432,159,440,159,449,143,455,131,461,115,489,100,504,87,511,42,507,36,513,18,488,31,461,39,443,55,424,42,414,28,407" href="http://www.infoplease.com/ipa/A0107987.html" target="_blank" title="Spain" alt="Spain" />
</map>
</td>
</tr>
</table>
HTML
}
sub Travel_Info
{
print<<"HTML";
<table class="section_table" cellpadding="0" cellspacing="0" border="0">
<tr>
<td class="corner">&nbsp;</td>
<td class="header" align="left">Current Travel Info&nbsp;&nbsp;&nbsp;<span class="top_anchor">/ <a name="travel_info" href="#top">top</a> /</span></td>
<td>&nbsp;</td>
</tr>
<tr>
<td align="left" valign="top">&nbsp;</td>
<td colspan="2" class="content_column">
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";
</td>
</tr>
</table>
HTML
}
################################################################################################################################################
# SUB ROUTINES FOR PRINTING GENERIC HTML
################################################################################################################################################
##############displays top of travel page##############
sub Print_Top_HTML
{
print <<"HTML";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Disciple the Nations - Mission &amp; Travel</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" type="text/css" href="dtn.css" />
<link rel="stylesheet" type="text/css" href="dtn_travel.css" />
<SCRIPT SRC="ssm.js" language="JavaScript1.2">
//Dynamic-FX slide in menu v6.5 (By maXimus, maximus@nsimail.com)
//Site: http://maximus.ravecore.com/
//For full source, and 100's more DHTML scripts, visit http://www.dynamicdrive.com
</SCRIPT>
<SCRIPT SRC="ssmItems_travel.js" language="JavaScript1.2"></SCRIPT>
<script language="javascript" type="text/javascript" src="random_verse.js"></script>
</head>
<body>
<a name="top"></a>
<div align="left">
<table cellpadding="0" cellspacing="0" width="100%">
<tr>
<td class="first_strip" colspan="3"><a name="#top"><img src="graphics/spacer.gif" border="0" width="1" height="10" /></a></td>
</tr>
<tr>
<td class="second_strip_top" colspan="3"><img src="graphics/spacer.gif" border="0" width="1" height="10" /></td>
</tr>
<tr>
<td align="left" colspan="2">
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td>&nbsp;</td>
<td align="right">
<span style="font-size: 12px; margin-right: 10px" align="center">
<a href="home.htm" class="location">home</a> |
<a href="whoweare.pl" class="location">who we are</a> |
<a href="resources.pl" class="location">resources</a> |
<a href="prayer.pl" class="location">prayer requests</a> |
<a href="travel.pl" class="location">mission & travel</a> |
<a href="media.pl" class="location">photos/videos</a>
</span>
</td>
</tr>
</table>
</td>
<td><img src="graphics/spacer.gif" border="0" width="1" height="20" /></td>
</tr>
<tr>
<td valign="top" style="background-image: url( graphics/travel/sidebar_bg.gif );" width="195">
<img src="graphics/travel/sidebar_dtn_logo.gif" /><br />
<img src="graphics/travel/sidebar_travel.gif" />
</td>
<td width="100%" valign="top" class="content_table" align="left">
<table cellpadding="0" cellspacing="0" style="margin-top: 2px" width="100%">
<tr>
<td valign="bottom" align="left">
<img src="graphics/travel/travel_title.gif" /> <br />
<span class="location" style="margin-left: 15px;">
<script language="javascript" type="text/javascript">
<!--
Random_Verse();
//-->
</script>
</span>
</td>
</tr>
<tr>
<td align="center">
<table cellpadding="0" cellspacing="0" width="100%" class="sub_link_div">
<tr>
<td align="center">
<a href="#carters_ministry_cal" class="sub_link_table">carter's ministry calendar</a> |
<a href="#short_term_opp" class="sub_link_table">short term opportunities</a> |
<a href="#information_on_europe" class="sub_link_table">information on europe</a> |
<a href="#travel_info" class="sub_link_table">travel info</a></td>
</tr>
</table>
</td>
</tr>
</table>
HTML
}
##############displays bottom of travel page##############
sub Print_Bottom_HTML
{
print <<"HTML";
</td>
<td><img src="graphics/spacer.gif" width="15" height="1" /></td>
</tr>
<tr>
<td><img src="graphics/spacer.gif" border="0" width="1" height="20" /></td>
<td align="center" style="padding: 5px 0px 5px 0px">
<span style="font-size: 12px" align="center">
<a href="whoweare.pl">who we are</a> |
<a href="resources.pl">resources</a> |
<a href="prayer.pl">prayer requests</a> |
<a href="travel.pl">travel info</a> |
<a href="media.pl">photos/videos</a>
</span>
</td>
<td>&nbsp;</td>
</tr>
<tr>
<td class="second_strip_bottom" colspan="3"><img src="graphics/spacer.gif" border="0" width="1" height="10" /></td>
</tr>
<tr>
<td class="first_strip" colspan="3">all site content copyright of Disciple the Nations, all rights reserved | site designed by <a href="http://www.rameydesign.net" target="_blank" class="first_strip">ramey design</a></td>
</tr>
</table>
</div>
</body>
</html>
HTML
}
Reference in New Issue View Git Blame Copy Permalink