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

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

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

revision 1.1 by joko, Sun Feb 9 04:49:45 2003 UTC revision 1.3 by joko, Fri Feb 14 14:17:04 2003 UTC
# Line 2  Line 2 
2  ##  $Id$  ##  $Id$
3  ## ---------------------------------------------------------------------------  ## ---------------------------------------------------------------------------
4  ##  $Log$  ##  $Log$
5    ##  Revision 1.3  2003/02/14 14:17:04  joko
6    ##  - shortened seperator
7    ##
8    ##  Revision 1.2  2003/02/11 05:14:28  joko
9    ##  + refactored code from libp.pm
10    ##
11  ##  Revision 1.1  2003/02/09 04:49:45  joko  ##  Revision 1.1  2003/02/09 04:49:45  joko
12  ##  + shortcuts now refactored to this file  ##  + shortcuts now refactored to this file
13  ##  ##
# Line 20  our @EXPORT_OK = qw( Line 26  our @EXPORT_OK = qw(
26    now today    now today
27    run_cmd run_cmds    run_cmd run_cmds
28    get_chomped    get_chomped
29      bool2status
30  );  );
31    
32    
# Line 47  sub run_cmd { Line 54  sub run_cmd {
54    my $cmd = shift;    my $cmd = shift;
55    my $caption = shift;    my $caption = shift;
56    #$cmd = 'perl ' . $cmd;    #$cmd = 'perl ' . $cmd;
57    my $sep = "-" x 90;    my $sep = "-" x 60;
58    print $sep, "\n";    print $sep, "\n";
59    print "  ", $cmd, "\n";    print "  ", $cmd, "\n";
60    print "  ", $caption, "\n" if $caption;    print "  ", $caption, "\n" if $caption;
# Line 69  sub get_chomped { Line 76  sub get_chomped {
76    return $str;    return $str;
77  }  }
78    
79    sub bool2status {
80      my $bool = shift;
81      return ($bool ? 'ok' : 'failed');
82    }
83    
84  1;  1;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3

MailToCvsAdmin">MailToCvsAdmin
ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed