home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Spezial
/
SPEZIAL2_97.zip
/
SPEZIAL2_97.iso
/
ANWEND
/
ONLINE
/
SREFV12J
/
TXTCLOCK.PL
< prev
next >
Wrap
Perl Script
|
1996-07-15
|
4KB
|
134 lines
#!/usr/local/bin/perl
##############################################################################
# TextClock Version 1.0.2 #
# Copyright 1996 Matt Wright mattw@worldwidemart.com #
# Created 7/15/96 Last Modified 7/15/96 #
# Scripts Archive at: http://www.worldwidemart.com/scripts/ #
##############################################################################
# COPYRIGHT NOTICE #
# Copyright 1996 Matthew M. Wright All Rights Reserved. #
# #
# TextClock may be used and modified free of charge by anyone so long as #
# this copyright notice and the comments above remain intact. By using this #
# code you agree to indemnify Matthew M. Wright from any liability that #
# might arise from it's use. #
# #
# Selling the code for this program without prior written consent is #
# expressly forbidden. In other words, please ask first before you try and #
# make money off of my program. #
# #
# Obtain permission before redistributing this software over the Internet or #
# in any other medium. In all cases copyright and header must remain intact #
##############################################################################
# Define Variables #
$Display_Week_Day = '1';
$Display_Month = '1';
$Display_Month_Day = '1';
$Display_Year = '1';
$Display_Time = '1';
$Display_Time_Zone = '1';
$Standard_Time_Zone = 'EST';
$Daylight_Time_Zone = 'EDT';
$Display_Link = '1';
# Done #
##############################################################################
@Week_Days = ('Sunday','Monday','Tuesday','Wednesday',
'Thursday','Friday','Saturday');
@Months = ('January','February','March','April','May','June','July',
'August','September','October','November','December');
print "Content-type: text/html\n\n";
if ($Display_Link != 0) {
print "<a href=\"http://www.worldwidemart.com/scripts/\">";
}
($Second,$Minute,$Hour,$Month_Day,
$Month,$Year,$Week_Day,$IsDST) = (localtime)[0,1,2,3,4,5,6,8];
if ($IsDST == 1) {
$Time_Zone = $Daylight_Time_Zone;
}
else {
$Time_Zone = $Standard_Time_Zone;
}
if ($Second < 10) {
$Second = "0$Second";
}
if ($Minute < 10) {
$Minute = "0$Minute";
}
if ($Hour < 10) {
$Hour = "0$Hour";
}
if ($Month_Day < 10) {
$Month_Day = "0$Month_Day";
}
if ($Year > 95) {
$Year = "19$Year";
}
elsif ($Year < 10) {
$Year = "200$Year";
}
else {
$Year = "20$Year";
}
if ($Display_Week_Day != 0) {
print "$Week_Days[$Week_Day]";
if ($Display_Month != 0) {
print ", ";
}
}
if ($Display_Month != 0) {
print "$Months[$Month] ";
}
if ($Display_Month_Day != 0) {
print "$Month_Day";
if ($Display_Year != 0) {
print ", ";
}
}
if ($Display_Year != 0) {
print "$Year";
if ($Display_Time != 0) {
print " - ";
}
elsif ($Display_Time_Zone != 0) {
print " ";
}
}
if ($Display_Time != 0) {
print "$Hour\:$Minute\:$Second";
if ($Display_Time_Zone != 0) {
print " ";
}
}
if ($Display_Time_Zone != 0) {
print "$Time_Zone";
}
if ($Display_Link != 0) {
print "</a>";
}
exit;