1 |
joko |
1.1 |
## --------------------------------------------------------------------------- |
2 |
joko |
1.4 |
## $Id: shortcuts.pm,v 1.3 2003/01/22 17:58:48 root Exp $ |
3 |
joko |
1.1 |
## --------------------------------------------------------------------------- |
4 |
joko |
1.2 |
## $Log: shortcuts.pm,v $ |
5 |
joko |
1.4 |
## Revision 1.3 2003/01/22 17:58:48 root |
6 |
|
|
## sub get_chomped |
7 |
|
|
## |
8 |
root |
1.3 |
## Revision 1.2 2003/01/20 21:19:27 joko |
9 |
|
|
## + updated 'sub now': knows about option 'fs' now |
10 |
|
|
## |
11 |
joko |
1.2 |
## Revision 1.1 2003/01/19 02:08:08 joko |
12 |
|
|
## + initial check-in |
13 |
|
|
## |
14 |
joko |
1.1 |
## --------------------------------------------------------------------------- |
15 |
|
|
|
16 |
|
|
|
17 |
|
|
package org::netfrag::shortcuts; |
18 |
|
|
|
19 |
|
|
use strict; |
20 |
|
|
use warnings; |
21 |
|
|
|
22 |
|
|
require Exporter; |
23 |
joko |
1.4 |
our @ISA = qw( shortcuts Exporter ); |
24 |
joko |
1.1 |
our @EXPORT_OK = qw( |
25 |
|
|
now today |
26 |
|
|
run_cmd run_cmds |
27 |
root |
1.3 |
get_chomped |
28 |
joko |
1.1 |
); |
29 |
|
|
|
30 |
|
|
1; |