[HPADM] Perl Script to TCL Script

From: Neeraj Lal (neeraj_lal@fastmail.us)
Date: Fri Jun 11 2004 - 11:35:49 EDT

• Next message: cenan@runbox.com: "[HPADM] summary: cluster passwd problem"
• Previous message: Ruby Domalanta: "[HPADM] Ignite-UX 10.2"
• Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]

hi Admins

Can anyone help me I know Perl and Korn Shell Scripting but never did the
TCL so I need the following code to be converted in TCL from Perl

My Perl Code is

my $sec;
my $min;
my $hour;
my $mday;
my $mon;
my $year;
my $wday;
my $yday;
my $isdst;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();

if ($isdst=0)
{
print("no\n");
$date = &Date_ConvTZ($date,"GMT","CST");
print $date;
}
else
{print("yes\n");
$date = &Date_ConvTZ($date,"GMT","CDT");
print $date;
}

but i want the same code in TCL.

Can anyone help me out in this

TIA
Neeraj Lal

-- 
http://www.fastmail.fm - IMAP accessible web-mail
--
             ---> Please post QUESTIONS and SUMMARIES only!! <---
        To subscribe/unsubscribe to this list, contact majordomo@dutchworks.nl
       Name: hpux-admin@dutchworks.nl     Owner: owner-hpux-admin@dutchworks.nl
 
 Archives:  ftp.dutchworks.nl:/pub/digests/hpux-admin       (FTP, browse only)
            http://www.dutchworks.nl/htbin/hpsysadmin   (Web, browse & search)

• Next message: cenan@runbox.com: "[HPADM] summary: cluster passwd problem"
• Previous message: Ruby Domalanta: "[HPADM] Ignite-UX 10.2"
• Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] [ attachment ]

This archive was generated by hypermail 2.1.7 : Sat Apr 12 2008 - 11:02:41 EDT