#!/usr/bin/perl
print ("Content-type: text/html\n
");
eval {
  (\$0 =~ m,(.*)/[^/]+,)   && unshift (@INC, "$1"); # Get the script location: UNIX / or Windows /
  (\$0 =~ m,(.*)\[^\]+,) && unshift (@INC, "$1"); # Get the script location: Windows \n#substitute all require files here for the file
require "gb_variables.pl";
require "ugb_lib.pl";
require "gb_styles.pl";
};
&ReadParse;
#adjust bgcolor variables
if (\$BGColor ne ""){
\$BGColor = qq(bgcolor="$BGColor");
}
if (\$TableColorStrip ne "") {
\$TableColorStrip = qq(bgcolor="$TableColorStrip");
}
if (\$AltRowColor1 ne "") {
\$AltRowColor1 = qq(bgcolor="$AltRowColor1");
}
if (\$AltRowColor2 ne "") {
\$AltRowColor2 = qq(bgcolor="$AltRowColor2");
}
if (\$PageBackground ne "") {
\$PageBackground = qq(background="$PageBackground");
}
if (\$TableBorderColor ne ""){
\$TableWidth2 = "100%";
\$BorderTop = qq(<table border=0 cellpadding=0 cellspacing=0 width="$TableWidth"><TR><td bgcolor="$TableBorderColor">);
\$BorderBottom = qq(</td></tr></table> );
}  else {
\$TableWidth2 = $TableWidth;
\$BorderTop = "";
\$BorderBottom = "";
}
if (@in == 0) {
&Summary;
}
if (\$in{'action'} eq "summary") {
&Summary;
}
if (\$in{'action'} eq "addentry") {
&AddEntry;
}
if (\$in{'action'} eq "submitentry") {
&SubmitEntry;
}
sub SubmitEntry {
&GetDateTime;  #get current date and time
#add entry to entries.file
if (\$TimeFormat eq "US") {
	\$ThisTime = $USTime;
} else {
	\$ThisTime = $EuroTime;
}
if (\$DateFormat eq "US") {
	\$ThisDate = "$USDate";
}
elsif (\$DateFormat eq "USExpanded") {
	\$ThisDate = "$USDateExpanded";
}
elsif (\$DateFormat eq "Euro") {
	\$ThisDate = "$EuroDate";
}  else {
	\$ThisDate = "$EuroDateExpanded";
}
\$Field1Value = &decodeURL($in{'Field1Value'});
\$Field1Value = &CleanThis($Field1Value);
\$Field1Value = &PipeCleaner($Field1Value);
\$Field2Value = &decodeURL($in{'Field2Value'});
\$Field2Value = &CleanThis($Field2Value);
\$Field2Value = &PipeCleaner($Field2Value);
\$Field3Value = &decodeURL($in{'Field3Value'});
\$Field3Value = &CleanThis($Field3Value);
\$Field3Value = &PipeCleaner($Field3Value);
\$Field4Value = &decodeURL($in{'Field4Value'});
\$Field4Value = &PipeCleaner($Field4Value);
#HTML NOT ALLOWED IN FIRST 3 FIELDS!
	\$Field1Value =~ s/<.+?>//g;
	\$Field2Value =~ s/<.+?>//g;
	\$Field3Value =~ s/<.+?>//g;
	if (\$Field2Value ne "") {
	if (\$Field2Hyper eq "url") {
		if (\$Field2Value =~ /http:/) {
			\$Field2Value = qq(<A HREF="$Field2Value">$Field2Value</A>);
		}  else {
			\$Field2Value = qq(<A HREF="http://$Field2Value">$Field2Value</A>);
		}
	}
	elsif (\$Field2Hyper eq "email") {
				\$Field2Value = qq(<A HREF="mailto:$Field2Value">$Field2Value</A>);
	}  else {
	\$Field2Value = $Field2Value;
	}
	}  #end Field2Value ne ""
	if (\$Field3Value ne "") {
	if (\$Field3Hyper eq "url") {
		if (\$Field3Value =~ /http:/) {
			\$Field3Value = qq(<A HREF="$Field3Value">$Field3Value</A>);
		}  else {
			\$Field3Value = qq(<A HREF="http://$Field3Value">$Field3Value</A>);
		}
	}
	elsif (\$Field3Hyper eq "email") {
				\$Field2Value = qq(<A HREF="mailto:$Field3Value">$Field3Value</A>);
	}  else {
	\$Field3Value = $Field3Value;
	}
	} #end Field3Value ne ""
if (\$HTMLAllow ne "yes") {
	\$Field4Value =~ s/<.+?>//g;
}
\$Field4Value = &Truncate($Field4Value);
\$Field4Value = &ConvertReturns($Field4Value);
if (\$Censor eq "ON") {
@censored = split(/ /, \$censorwords);
 \$Field4Value = &CensorCheck("$Field4Value");
}
#Smiley/Frown conversion---
\$Field4Value = &Smilies("$Field4Value");
#UBB Code-ify (if allowed)
if (\$UBBCodeAllow eq "yes") {
\$Field4Value = &UBBCode("$Field4Value");
} #END UBB CODE
#determine ID NUMBER
if (-e "\$GB_NON_CGI_Path/entries.file") {
open (OLDENTRIES, "\$GB_NON_CGI_Path/entries.file") || die ("Couldn't open guestbook entries file.");
 @entries = <OLDENTRIES>;
close (OLDENTRIES);
@backwards = reverse(@entries);
\$lastline = @backwards[0];
@laststats = split(/\||/, \$lastline);
\$LastNumber = $laststats[6];
chomp(\$LastNumber);
\$NextNumber = $LastNumber + 1;
}  else {
\$NextNumber = 1;
}
open (ENTRIES, ">>\$GB_NON_CGI_Path/entries.file");
print ENTRIES "\$ThisDate||$ThisTime||$Field1Value||$Field2Value||$Field3Value||$Field4Value||$NextNumber\n";
close (ENTRIES);
chmod (0666, "\$GB_NON_CGI_Path/entries.file");
&TopHTML;
print<<TEST;
\$ConfirmAddWording
<P>
<CENTER>
<A HREF="ugb.cgi">&#1578;&#1589;&#1601;&#1581; &#1587;&#1580;&#1604; &#1575;&#1604;&#1586;&#1608;&#1575;&#1585;</A> | <A HREF="\$Link1URL">$Link1Name</A> | <A HREF="$Link2URL">$Link2Name</A>
</CENTER>
TEST
&BottomHTML;
}  #end Submit Entry
sub AddEntry {
&TopHTML;
if (\$UBBCodeAllow eq "yes") {
	\$UBBLine = qq(

<!-- '"AWS"' -->
<!-- Auto Banner Insertion Begin -->
<div id=aws_2708 align=center>  <table cellpadding="0" cellspacing="0" style="margin:0 auto;">
    <tr> 
      <td width="130" class="mwst" style="vertical-align:top; padding:5px 15px 5px 0;">
        <a href="http://freeservers.com/?refcd=MWS_20040713_Banner_bar">
          <img src="/cgi-bin/image/images/bannertype/100X22.gif" width="100" height="22" border="0" />
        </a>
      </td>
      <td width="130" class="mwst"  style="padding:10px 0 10px 10px;">
        <div align="right">
          <a style="padding:5px 15px; color:#FFF; font-size:14px; display:block-inline; background-color:#166DC2; border: 1px solid #166DC2; border-radius:4px;" href="/cgi-bin/login" target="_blank">Sign In</a>
          <a style="font-size:14px; color:#41c5e4;" href="/cgi-bin/path/signup?refcd=MWS_20040713_Banner_bar">Sign-Up</a>
	</div>
      </td>
    </tr>
    <tr>
      <td colspan=2 class="mwst" align="center" style="width:730px;">
    
          </td>
    </tr>
  </table>
  <DIV id="setMyHomeOverlay" align="left" style="position:absolute; top:25%; left:25%; width:358px; border:1px solid #AEAEAE; background-color:white; z-index:200000; display: none;">
    <div style="height:59px; padding-left:22px; background:white url('/cgi-bin/image/images/sethome_top_border.gif') repeat-x;">
    <div style="float:left; width:182px; height:35px; margin-top:12px; font:bold 38px arial,sans-serif; color:#454545"> Welcome! </div>
    <div style="float:right; padding:6px 5px 0px 5px;"><a href="#" onclick="javascript:do_set_homepage('close'); return false;">
    <div style="background:url('/cgi-bin/image/images/sethome_x.gif'); width:21px; height:21px; cursor:pointer;"></div></a></div>
    <div style="float:right; font:bold 12px arial; margin-top:10px;"><a style="text-decoration:none; color:#004182;" href="#" onclick="javascript:do_set_homepage('close'); return false;">Close</a></div></div>
    <div style="height:170px; background:#ffffff;">
    <div style="padding:30px 20px 0px 20px; font:normal 14px arial; height:80px;"> Would you like to make this site your homepage? It's fast and easy... </div>
    <div style="padding:10px 0 0 41px;">
    <div style="float:left;cursor:pointer; background:white url('/cgi-bin/image/images/sethome_btn_l.gif'); width:4px; height:26px;" onclick="javascript:do_set_homepage('do');"> </div>
    <div style="float:left;cursor:pointer; background:white url('/cgi-bin/image/images/sethome_btn_m.gif') repeat-x; width:265px; height:26px; text-align:center; font:bold 13px Arial; color:#FFFFFF; line-height:25px;" onclick="javascript:do_set_homepage('do');"> Yes, Please make this my home page! </div>
    <div style="float:left;cursor:pointer; background:white url('/cgi-bin/image/images/sethome_btn_r.gif'); width:4px; height:26px;" onclick="javascript:do_set_homepage('do');"> </div></div>
    <div style="padding-left:148px; padding-top:7px; clear:both; font:normal 12px arial;"><a href="#" style="text-decoration:none; color:#004182;" onclick="javascript:do_set_homepage('close'); return false;">No Thanks</a></div></div>
    <div style="height:36px; background: white url('/cgi-bin/image/images/sethome_bot_border.gif') repeat-x;">
    <div style="float:left;margin:12px 0px 0px 20px; line-height:10px;"><input type="checkbox" style="width:11px; height:11px;" onclick="javascript:do_set_homepage('dont');"></div>
    <div style="float:left;font:normal 12px arial;padding:10px 0 0 2px;"> &nbsp; Don't show this to me again.</div>
    <div style="float:right; padding:6px 5px 0px 5px;"><a href="#" onclick="javascript:do_set_homepage('close'); return false;">
    <div style="background:url('/cgi-bin/image/images/sethome_x.gif'); width:21px; height:21px; cursor:pointer;"></div></a></div>
    <div style="float:right;font:bold 12px arial; margin-top:10px;"><a style="text-decoration:none; color:#004182;" href="#" onclick="javascript:do_set_homepage('close'); return false;">Close</a></div></div></div>
    <span ID="mws_oHomePageOverlay" style="behavior:url(#default#homepage); display:none;"></span>
    <script src=/fs_img/js/overlay.js></script><script defer="defer" src=/fs_img/js/set_homepage.js></script></div><!-- Auto Banner Insertion Complete THANK YOU -->
<IMG SRC="$NonCGIURL/check.jpg" BORDER=0> &#1610;&#1605;&#1603;&#1606; &#1575;&#1587;&#1578;&#1582;&#1583;&#1575;&#1605; &#1603;&#1608;&#1583; &#1575;&#1604;&#1600; UBB);
} else {
	\$UBBLine = qq(<IMG SRC="$NonCGIURL/x.jpg" BORDER=0> &#1604;&#1575; &#1610;&#1605;&#1603;&#1606; &#1575;&#1587;&#1578;&#1582;&#1583;&#1575;&#1605; &#1603;&#1608;&#1583; &#1575;&#1604;&#1600; UBB);
}
if (\$HTMLAllow eq "yes") {
	\$HTMLLine = qq(<IMG SRC="$NonCGIURL/check.jpg" BORDER=0>&#1610;&#1605;&#1603;&#1606; &#1575;&#1587;&#1578;&#1582;&#1583;&#1575;&#1605; &#1603;&#1608;&#1583; &#1575;&#1604;&#1600; HTML);
} else {
	\$HTMLLine = qq(<IMG SRC="$NonCGIURL/x.jpg" BORDER=0> &#1604;&#1575; &#1610;&#1605;&#1603;&#1606; &#1575;&#1587;&#1578;&#1582;&#1583;&#1575;&#1605; &#1603;&#1608;&#1583; &#1575;&#1604;&#1600; HTML);
}
print<<MIDDLE;
<P>
\$AddEntryIntro
<P>
<center>
\$UBBLine &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $HTMLLine
<FORM ACTION="ugb.cgi" METHOD="POST">
\$BorderTop
<table border=0 cellpadding=4 border=0 cellspacing=1 width=\$TableWidth2>
<TR \$TableColorStrip align=center><TD colspan=2><FONT SIZE="2" FACE="$FontFace" color="$TableStripTextColor"><B>$GBTitle</B></FONT></TD></TR>
<TR \$AltRowColor2>
<TD><FONT SIZE="\$TextSize" FACE="$FontFace">$Field1 *</FONT></td>
<td><INPUT TYPE="TEXT" NAME="Field1Value" SIZE=\$Field1Size MAXLENGTH=$Field1MaxSize></td>
</tr>
MIDDLE
if (\$Field2 ne "") {
print<<MID2;
<TR \$AltRowColor2>
<TD><FONT SIZE="\$TextSize" FACE="$FontFace">$Field2</FONT></td>
<td><INPUT TYPE="TEXT" NAME="Field2Value" SIZE=\$Field2Size MAXLENGTH=$Field2MaxSize></td>
</tr>
MID2
}
if (\$Field3 ne "") {
print<<MID3;
<TR \$AltRowColor2>
<TD><FONT SIZE="\$TextSize" FACE="$FontFace">$Field3</FONT></td>
<td><INPUT TYPE="TEXT" NAME="Field3Value" SIZE=\$Field3Size MAXLENGTH=$Field3MaxSize></td>
</tr>
MID3
}
print<<ENDTABLE;
<TR \$AltRowColor2>
<TD valign=top><FONT SIZE="2" FACE="\$FontFace">$Field4 *</FONT><P><FONT SIZE="2" FACE="$FontFace"><A HREF="$NonCGIURL/ubbcode.html">&#1605;&#1575;&#1607;&#1608; &#1603;&#1608;&#1583; &#1575;&#1604;&#1600; UBB &#1567;</A></FONT></td>
<td><TEXTAREA NAME="Field4Value" WRAP="VIRTUAL" ROWS=5 COLS=50>
</TEXTAREA></td>
</tr>
</table>
\$BorderBottom
<P>
 * &#1581;&#1602;&#1608;&#1604; &#1605;&#1591;&#1604;&#1608;&#1576;&#1577;
</center>
<P>
<INPUT TYPE="HIDDEN" NAME="action" VALUE="submitentry">
<CENTER><INPUT TYPE="SUBMIT" VALUE="\$AddSubmitWording"></CENTER>
</form>
ENDTABLE
&BottomHTML;
}  # end Add Entry sr
sub Summary {
&TopHTML;
print <<_TOP_OF_PAGE;
<div style="margin:10">
&#1604;&#1573;&#1590;&#1575;&#1601;&#1577; &#1605;&#1604;&#1575;&#1581;&#1592;&#1575;&#1578;&#1603; &#1608;&#1578;&#1608;&#1602;&#1610;&#1593;&#1603;&#1548; <A HREF="ugb.cgi?action=addentry">&#1578;&#1601;&#1590;&#1604; &#1607;&#1606;&#1575;</A>!
</div>
<center><b>
_TOP_OF_PAGE
&GetEntries;
print <<_BOTTOM_HTML;
</b></TABLE>
\$BorderBottom
</B>
<table border=0 width=\$TableWidth>
<tr><td align=center><FONT FACE="\$FontFace" size="1"><A HREF="$NonCGIURL/gbcenter.html">&#1582;&#1575;&#1589; &#1576;&#1575;&#1604;&#1605;&#1588;&#1585;&#1601; &#1593;&#1604;&#1609; &#1575;&#1604;&#1587;&#1580;&#1604;</A></font></td><td align=left><FONT FACE="$FontFace" size=$TextSize><b>
\$ContinueWording</font></td></b></tr></table>
<br>
<A HREF="ugb.cgi?action=addentry"><IMG SRC="\$NonCGIURL/$AddEntryPic" BORDER=0 ALT="&#1573;&#1590;&#1575;&#1601;&#1577; &#1575;&#1604;&#1578;&#1608;&#1602;&#1610;&#1593;"></A>
<P>
<A HREF="\$Link1URL">$Link1Name</A> | <A HREF="$Link2URL">$Link2Name</A>
<P>
_BOTTOM_HTML
&BottomHTML;
} #end Summary sr
sub UpdateEntries {
if (-e "\$GB_NON_CGI_Path/entries.file") {
open (ENTRIES, "\$GB_NON_CGI_Path/entries.file") || die ("Couldn't open guestbook entries file.");
 @entries = <ENTRIES>;
close (ENTRIES);
\$ArrayLine = 0;
@newarray = @blank;
foreach \$one(@entries) {
chomp(\$one);
\$ArrayLine++;
\$NewLine = ("$one" . "||$ArrayLine");
push(@newarray, \$NewLine);
}
open (THIS, ">\$GB_NON_CGI_Path/entries.file") || die ("Couldn't open guestbook entries file.");
foreach \$uno(@newarray) {
chomp(\$uno);
print THIS "\$uno\n";
}
close (THIS);
open (DIAG, ">\$GB_NON_CGI_Path/diagnostic.file") || die ("Couldn't open guestbook diagnostic file.");
print DIAG "don't delete this file if you are running the Ultimate Guestbook";
close (DIAG);
}
}
sub GetEntries {
unless (-e "\$GB_NON_CGI_Path/diagnostic.file") {
&UpdateEntries;
}
if (-e "\$GB_NON_CGI_Path/entries.file") {
open (ENTRIES, "\$GB_NON_CGI_Path/entries.file") || die ("Couldn't open guestbook entries file.");
 @entries = <ENTRIES>;
close (ENTRIES);
\$Total = @entries;
\$LastArrayNumber = $Total - 1;
if (\$Total < $MaxDisplay) {
	\$MaxDisplay = $Total;
}
@sortentries = reverse(@entries);
\$TotalEntries = @sortentries;
#determine start and end points in array
if (\$in{'startwith'} eq "") {
\$startarraynum = "0";
\$start = "2";
}  else {
\$startarraynum = $in{'startwith'};
\$start = $startarraynum + 1;
}
\$MaxDisplay--;
\$endarraynum = $startarraynum + $MaxDisplay;
\$end = $endarraynum + 1;
if (\$end > $Total) {
\$endarraynum = $Total - 1;
\$end = $Total;
}
\$startwith = $endarraynum + 1;
if (\$startwith < $Total) {
	\$ContinueWording = qq(<A HREF="ugb.cgi?action=summary&startwith=$startwith">&#1575;&#1604;&#1587;&#1580;&#1604;&#1575;&#1578; &#1575;&#1604;&#1578;&#1575;&#1604;&#1610;&#1577;</A>);
}  else {
	\$ContinueWording = "";
}
@finalarray = @sortentries[\$startarraynum...$endarraynum];
print<<TableStart;
\$BorderTop
<table border=0 cellpadding=4 border=0 cellspacing=1 width=\$TableWidth2>
<TR \$BGColor><TD align=center colspan=2>
<FONT SIZE="2" FACE="\$FontFace"><B>
&#1593;&#1585;&#1590; &#1575;&#1604;&#1587;&#1580;&#1604;&#1575;&#1578; <FONT SIZE="2" FACE="\$FontFace" color="$LinkColor">$start</FONT> - <FONT SIZE="2" FACE="$FontFace" color="$LinkColor">$end</font> &#1605;&#1606; &#1575;&#1580;&#1605;&#1575;&#1604;&#1610; &#1575;&#1604;&#1587;&#1580;&#1604;&#1575;&#1578; <FONT SIZE="2" FACE="$FontFace" color="$LinkColor">($Total)</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $ContinueWording
</B></FONT>
</td></tr>
<tr \$TableColorStrip>
<td><center>
<B><FONT SIZE="2" FACE="\$FontFace" COLOR="$TableStripTextColor">$Field1</FONT></B></center></td>
<td><center>
<B><FONT SIZE="2" FACE="\$FontFace" COLOR="$TableStripTextColor">$Field4</FONT></B></center></td></tr>
TableStart
\$AlternateColor = $AltRowColor1;
for \$thisentry(@finalarray)  {
@entryline = split(/\||/, \$thisentry);
chomp(\$entryline[6]);
print <<GUTS;
<tr \$AlternateColor>
<td width=35% valign=top><FONT SIZE="\$TextSize" FACE="$FontFace"><B>$entryline[2]</b></font><BR>
GUTS
if (\$entryline[3] ne "") {
print<<THELINE;
<FONT SIZE="2" FACE="\$FontFace">
<B>\$Field2:</B> $entryline[3]</font><BR>
THELINE
}
if (\$entryline[4] ne "") {
print<<THELINE;
<FONT SIZE="2" FACE="\$FontFace">
<B>\$Field3:</B> $entryline[4]</font><BR>
THELINE
}
print<<Guts2;
</font></td>
<td valign=top><FONT SIZE="1" COLOR="\$PostedByColor" FACE="$FontFace"><b>&#1606;&#1615;&#1588;&#1616;&#1585;&#1614; &#1601;&#1610; $entryline[0] $entryline[1] $TimeZone &nbsp;&nbsp;&nbsp;<A HREF="gbadmin.cgi?action=edit&number=$entryline[6]"><IMG SRC="$NonCGIURL/trash.gif"  BORDER=0 ALT="&#1605;&#1587;&#1581; &#1607;&#1584;&#1575; &#1575;&#1604;&#1578;&#1608;&#1602;&#1610;&#1593;&#1563; &#1582;&#1575;&#1589; &#1576;&#1575;&#1604;&#1605;&#1588;&#1585;&#1601;"></A></font></b> <HR><FONT SIZE="$TextSize" FACE="$FontFace">$entryline[5]</FONT>
</td></tr>
Guts2
if (\$AlternateColor eq "$AltRowColor1") {
\$AlternateColor = "$AltRowColor2";
}  else {
\$AlternateColor = "$AltRowColor1";
}
}  #end FOREACH
} else {
print<<GUTS;
\$BorderTop
<table border=0 cellpadding=4 border=0 cellspacing=1 width=\$TableWidth2>
<tr \$TableColorStrip>
<td>
<B><FONT SIZE="2" FACE="\$FontFace" COLOR="$TableStripTextColor">$Field1</FONT></B></td>
<td>
<B><FONT SIZE="2" FACE="\$FontFace" COLOR="$TableStripTextColor">$Field4</FONT></B></td>
</tr>
<TR \$BGColor>
<TD COLSPAN=2>
<FONT SIZE="\$TextSize" FACE="$FontFace" COLOR="$VisitedLinkColor"><B>&#1604;&#1575; &#1610;&#1608;&#1580;&#1583; &#1578;&#1608;&#1602;&#1610;&#1593;&#1575;&#1578; &#1601;&#1610; &#1587;&#1580;&#1604; &#1575;&#1604;&#1586;&#1608;&#1575;&#1585; &#1581;&#1575;&#1604;&#1610;&#1575;&#1614;</B></FONT>
</td></tr>
GUTS
}
}  #end sr
sub TopHTML {
print<<TOP;
<html dir="rtl" lang="ar-sa">
<head>
	<TITLE>\$GBTitle</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<style>
body {margin:0;font:bold 10pt tahome;color:#ffffbf0}
</style>
</head>
<BODY \$BGColor $PageBackground text="$TextColor" link="$LinkColor" vlink="$VisitedLinkColor">
<FONT FACE="\$FontFace" SIZE="$TextSize">
\$Header
<BR>
<center>
<A HREF="\CGIURL/ugb.cgi"><IMG SRC="$NonCGIURL/$GBTitlePic" BORDER=0 ALT="$GBTitle"></A>
</center>
TOP
} #end TopHTML sr
sub BottomHTML {
print<<Bottom;
<P>
\$Footer
<P>
<center>
<FONT SIZE="2" FACE="Tahoma">
&#1578;&#1585;&#1580;&#1605;&#1577;
<A HREF="http://gebal.virtualave.net">&#1580;&#1576;&#1600;&#1600;&#1575;&#1604;</A>
</CENTER>
</FONT>
</td>
</tr></table>
</BODY>
</HTML>
Bottom
} # end BottomHTML sr
sub GetDateTime  {
if (\$TimeZoneOffset) {
if ((\$TimeZoneOffset ne "") || ($TimeZoneOffset ne "0")) {
\$adjustTime = time() + ($TimeZoneOffset * 3600);
}  else {
\$adjustTime = time();
}
(\$sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime ($adjustTime);
} else {
(\$sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);
}
\$mon++;
\$year = $year + 1900;
\$monformat = sprintf ("%2d", $mon);
\$monformat =~tr/ /0/;
\$mdayformat = sprintf ("%2d", $mday);
\$mdayformat =~tr/ /0/;
@months = ("blank" , "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December");
#date format options
\$USDate = "$monformat-$mdayformat-$year";
\$EuroDate = "$mdayformat-$monformat-$year";
\$USDateExpanded = "$months[$mon] $mday, $year";
\$EuroDateExpanded = "$mday $months[$mon] $year";
#time format options
\$min = sprintf ("%2d", $min);
\$min =~tr/ /0/;
\$hour = sprintf ("%2d", $hour);
\$hour =~tr/ /0/;
\$EuroTime = "$hour:$min";
&NormalTime; #convert to US time
\$USTime = "$USHour:$min $AMPM";
}  #end GetDateTime sr
sub NormalTime {
if (\$hour < 12) {
\$AMPM = "&#1589;&#1576;&#1575;&#1581;&#1575;&#1611;";
\$USHour = "$hour";
}
if (\$hour > 12) {
	\$USHour = $hour - 12;
	\$AMPM = "&#1605;&#1587;&#1575;&#1569;";
	}
if (\$hour == 12) {
	\$AMPM = "PM";
	\$USHour = "12";
	}
if (\$hour == 0) {
	\$USHour = "12";
	}
\$UHhour = sprintf ("%2d", $USHour);
\$USHour =~tr/ /0/;
}


<!-- PrintTracker Insertion Begin -->
<script src="/fs_img/js/pt.js" type="text/javascript"></script>
<!-- PrintTracker Insertion Complete -->


<!-- Google Analytics Insertion Begin -->
<script type="text/javascript">
<!--
        var _gaq = _gaq || [];
        _gaq.push(['_setAccount', "UA-4601892-3"]);
        _gaq.push(['_setDomainName', 'none']);
        _gaq.push(['_setAllowLinker', true]);
        _gaq.push(['_trackPageview']);
        
        (function() {
           var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
           ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
           var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
        })();

-->
</script>
<!-- Google Analytics Insertion Complete -->