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; |