blob: e0031ed112f267cb6b9a374a448552121709087d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
--- At.pm.orig Mon Mar 25 20:52:01 2002
+++ At.pm Tue May 14 18:15:55 2002
@@ -55,6 +55,7 @@
print ATCMD "$TAGID$params{TAG}\n" if $params{TAG};
print ATCMD $params{COMMAND};
close (ATCMD);
+ return 1 if ($?);
}
0;
@@ -258,6 +259,7 @@
Jose A. Rodriguez (josear@ac.upc.es)
=cut
+#' for Emacs face
###############################################################################
# OS dependent code
@@ -327,6 +329,25 @@
my @fields = split("\t", $_[0]);
($fields[0], substr($fields[1], 0, 16))
};
+}
+
+sub AtCfg_freebsd {
+ $AT{'add'} = 'at %TIME% 2> /dev/null';
+ $AT{'addFile'} = 'at -f %FILE% %TIME% 2> /dev/null';
+ $AT{'timeFormat'} = '%HOUR%:%MINS% %MONTH%/%DAY%/%YEAR%';
+ $AT{'remove'} = 'atrm %JOBID%';
+ $AT{'getJobs'} = 'atq';
+ $AT{'headings'} = ['Date'];
+ $AT{'getCommand'} = 'at -c %JOBID% |';
+ $AT{'parseJobList'} =
+ sub {
+ my @a = split(/\s+/, $_[0]);
+ if ($_[0] =~ /^\d\d/) {
+ return ($a[4], "$a[0] $a[1]");
+ } elsif (defined $a[8]) {
+ return ($a[8], "$a[0] $a[1] $a[2] $a[3] $a[4] $a[5]");
+ }
+ };
}
sub AtCfg_aix {
|
