/[cvs]/nfo/perl/libs/libp.pm
ViewVC logotype

Diff of /nfo/perl/libs/libp.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by joko, Thu Dec 5 13:54:00 2002 UTC revision 1.11 by joko, Thu Dec 19 16:27:17 2002 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.11  2002/12/19 16:27:17  joko
7    #  +- renamed 'cmd' to 'run_cmd'
8    #
9    #  Revision 1.10  2002/12/19 01:05:35  joko
10    #  + sub today
11    #
12  #  Revision 1.9  2002/12/05 13:54:00  joko  #  Revision 1.9  2002/12/05 13:54:00  joko
13  #  + fix: let 'deep_copy' print its message out (instead of die)  #  + fix: let 'deep_copy' print its message out (instead of die)
14  #  #
# Line 47  our @EXPORT_OK = qw( Line 53  our @EXPORT_OK = qw(
53      md5 md5_hex md5_base64      md5 md5_hex md5_base64
54      ParseDate UnixDate      ParseDate UnixDate
55      strftime      strftime
     stripHtml stripSpaces stripNewLines toReal trim  
56      croak      croak
57    
58        stripHtml stripSpaces stripNewLines toReal trim
59      array_getDifference      array_getDifference
60      getDirList      getDirList
61      now      now today
62      deep_copy      deep_copy
63      getNewPerlObjectByPkgName      getNewPerlObjectByPkgName
64      cmd      run_cmd run_cmds
     run_cmds  
65  );  );
66    
67  use Data::Dumper;  use Data::Dumper;
# Line 202  sub now { Line 208  sub now {
208    return strftime("%Y-%m-%d %H:%M:%S", localtime);    return strftime("%Y-%m-%d %H:%M:%S", localtime);
209  }  }
210    
211    sub today {
212      return strftime("%Y-%m-%d", localtime);
213    }
214    
215  # ACK's go to ...  # ACK's go to ...
216  sub deep_copy {  sub deep_copy {
217    my $this = shift;    my $this = shift;
# Line 228  sub getNewPerlObjectByPkgName { Line 238  sub getNewPerlObjectByPkgName {
238    return $pkgname->new($args);    return $pkgname->new($args);
239  }  }
240    
241  sub cmd ($) {  sub run_cmd {
242    my $cmd = shift;    my $cmd = shift;
243    $cmd = 'perl ' . $cmd;    $cmd = 'perl ' . $cmd;
244    my $sep = "-" x 90;    my $sep = "-" x 90;
# Line 241  sub cmd ($) { Line 251  sub cmd ($) {
251    
252  sub run_cmds {  sub run_cmds {
253    foreach (@_) {    foreach (@_) {
254      cmd($_);      run_cmd($_);
255    }    }
256  }  }
257    
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed