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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.14 - (hide annotations)
Sun Feb 9 04:49:09 2003 UTC (21 years, 8 months ago) by joko
Branch: MAIN
Changes since 1.13: +4 -202 lines
- purged lots of code and refactored into other modules
- sorry!

1 cvsjoko 1.1 #################################
2     #
3 joko 1.14 # $Id: libp.pm,v 1.13 2002/12/23 04:25:13 joko Exp $
4 cvsjoko 1.2 #
5     # $Log: libp.pm,v $
6 joko 1.14 # Revision 1.13 2002/12/23 04:25:13 joko
7     # + sub bool2status
8     #
9 joko 1.13 # Revision 1.12 2002/12/22 14:15:02 joko
10     # + sub mkObject
11     #
12 joko 1.12 # Revision 1.11 2002/12/19 16:27:17 joko
13     # +- renamed 'cmd' to 'run_cmd'
14     #
15 joko 1.11 # Revision 1.10 2002/12/19 01:05:35 joko
16     # + sub today
17     #
18 joko 1.10 # Revision 1.9 2002/12/05 13:54:00 joko
19     # + fix: let 'deep_copy' print its message out (instead of die)
20     #
21 joko 1.9 # Revision 1.8 2002/12/01 22:11:35 joko
22     # + sub cmd
23     # + sub run_cmds
24     #
25 joko 1.8 # Revision 1.7 2002/11/29 04:44:53 joko
26     # - sub array_getRelations
27     # + sub getNewPerlObjectByPkgName
28     #
29 joko 1.7 # Revision 1.6 2002/11/17 07:18:59 joko
30     # + sub deep_copy
31     #
32 joko 1.6 # Revision 1.5 2002/10/27 18:34:28 joko
33     # + sub now
34     #
35 joko 1.5 # Revision 1.4 2002/08/16 19:06:39 cvsjoko
36     # + sub getDirList
37     #
38 cvsjoko 1.4 # Revision 1.3 2002/07/19 18:13:50 cvsjoko
39     # no message
40     #
41 cvsjoko 1.3 # Revision 1.2 2002/06/27 02:14:22 cvsjoko
42     # + stripHtml stripSpaces stripNewLines toReal
43     #
44 cvsjoko 1.2 # Revision 1.1 2002/06/24 14:49:59 cvsjoko
45     # + new
46 cvsjoko 1.1 #
47     #
48     #################################
49    
50     package libp;
51    
52 joko 1.7 use strict;
53     use warnings;
54    
55 cvsjoko 1.1 require Exporter;
56 joko 1.7 our @ISA = qw( Exporter );
57     our @EXPORT_OK = qw(
58 cvsjoko 1.3 ParseDate UnixDate
59     array_getDifference
60 joko 1.13 bool2status
61 cvsjoko 1.1 );
62    
63     $main::TZ = 'GMT';
64     use Date::Manip;
65 cvsjoko 1.2
66    
67     ########################################
68    
69 cvsjoko 1.4
70    
71    
72    
73     # =============================================
74    
75 joko 1.13
76     sub bool2status {
77     my $bool = shift;
78     return ($bool ? 'ok' : 'failed');
79 joko 1.5 }
80 cvsjoko 1.1
81     1;

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