List of gctr0/gctr-ex1t.cgi

Wed Jan 17 14:25:50 2018

戻る

TEXTAREA で表示(カット&ペーストむき)

#!/usr/mesh/bin/perl5

# gctr-ex1t.cgi
# (C) 1997 がま 
# E-mail addr : gama@mvg.biglobe.ne.jp
#
# 1997/09/25 Ver0.00
# 1997/10/03 Ver0.01  12 時過ぎても、AM 表示だったのを修正(^^;;;
#
# --------------------------------------------------------
($sec,$min,$hour,$mday,$mon,$year)=localtime;
if ( $hour >= 12 ) {
        $ampm="P";
        $hour=$hour-12;
} else {
        $ampm="A";
}
$time = sprintf "%2.2d\:%2.2d\:%2.2d%s", $hour, $min, $sec, $ampm;

system("./gctr1.cgi $time strip.gif");

戻る