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

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

-revision 1.11 by joko,
Thu Dec 19 16:27:17 2002 UTC
+revision 1.13 by joko,
Mon Dec 23 04:25:13 2002 UTC
 Line 3
  #  $Id$
  #
  #  $Log$
+ #  Revision 1.13  2002/12/23 04:25:13  joko
+ #  + sub bool2status
+ #
+ #  Revision 1.12  2002/12/22 14:15:02  joko
+ #  + sub mkObject
+ #
  #  Revision 1.11  2002/12/19 16:27:17  joko
  #  +- renamed 'cmd' to 'run_cmd'
  #
-Line 62 
 our @EXPORT_OK = qw(
+Line 68 
 our @EXPORT_OK = qw(
      deep_copy
      getNewPerlObjectByPkgName
      run_cmd run_cmds
+     mkObject
+     bool2status
  );
  use Data::Dumper;
-Line 238 
 sub getNewPerlObjectByPkgName {
+Line 246 
 sub getNewPerlObjectByPkgName {
    return $pkgname->new($args);
  }
+ sub mkObject {
+   my $pkgname = shift;
+   #my $args = shift;
+   #$logger->debug( __PACKAGE__ . "->getNewPerlObjectByPkgName( pkgname $pkgname args $args )" );
+   my $evstring = "use $pkgname;";
+   eval($evstring);
+   #$@ && $logger->error( __PACKAGE__ . ':' . __LINE__ . " Error in eval $evstring: " .  $@ );
+   $@ && print( __PACKAGE__ . ':' . __LINE__ . " Error in eval \"$evstring\": " .  $@ );
+   return $pkgname->new(@_);
+ }
  sub run_cmd {
    my $cmd = shift;
    $cmd = 'perl ' . $cmd;
-Line 255 
 sub run_cmds {
+Line 274 
 sub run_cmds {
    }
  }
+ sub bool2status {
+   my $bool = shift;
+   return ($bool ? 'ok' : 'failed');
+ }
 ;

 Legend:



Removed from v.1.11
 


changed lines


 
Added in v.1.13
 Legend:



Removed from v.1.11
 


changed lines


 
Added in v.1.13
-Removed from v.1.11
+Added in v.1.13

MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26