Изпечатай

[dvbb]

Здравейте предварително се извинавам за нахалния си въпрос. Необходима ми е една лека корекция на скрипта, как бих могъл да вадя дата.
в момента излиза
1270065872 - CN=user trying to check... Found in whitelist. ACCEPT!

искам да излиза
дата - час - CN=user trying to check... Found in whitelist. ACCEPT!

Код

GeSHi (Perl):
#!/usr/bin/perl
 
$LOGFILE="/var/log/openvpn-verify-cn.log";
$WHITELIST="/etc/openvpn/whitelist.txt";
$LOG=1;
if($LOG){ open(LFILE, ">>$LOGFILE"); };
 
if($ARGV[0] eq 0){
  $accept_cn=0;
  $cname=$ARGV[1];
  $cname =~ s/.*\/CN=(.*)\/.*/$1/;
  if($LOG){ print LFILE time()." - CN=".$cname." trying to check... "; };
  open(WHITELIST, "<$WHITELIST");
  while(<WHITELIST>){
    chomp;
    if($_ eq $cname){ $accept_cn=1; };
  };
  if($accept_cn){
    if($LOG){ print LFILE "Found in whitelist. ACCEPT!\n"; };
    close(LFILE);
    close(WHITELST);
    exit 0;
  }else{
    if($LOG){ print LFILE "Not found in whitelist. REJECT!\n"; };
    close(LFILE);
    close(WHITELST);
    exit 1;
  };
};
close (LFILE);
exit 0;
 
 

[cdiem]

Може би нещо подобно:
http://www.netadmintools.com/art212.html
Пишеш си го например като "sub showDateTime {...}" и после го извикваш на 12 ред.

[radoulov]

Вместо:

Код

GeSHi (Perl):
time()

използвай:

Код

GeSHi (Perl):
scalar localtime

Код

GeSHi (Perl):
% perl -E'say time, $/, scalar localtime'
1270108932
Thu Apr  1 10:02:12 2010

[dvbb]

Благодаря много за помоща