blob: c05d9302b65307387f2e1d03df1083aebbf12ac9 (
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
|
--- At.pm.orig Thu Feb 12 20:08:37 1998
+++ At.pm Wed Jan 10 11:56:50 2001
@@ -264,6 +264,7 @@
Jose A. Rodriguez (josear@ac.upc.es)
=cut
+#' for Emacs face
###############################################################################
# OS dependent code
@@ -330,4 +331,16 @@
$AT{'getCommand'} = 'at -c %JOBID% |';
$AT{'parseJobList'} =
sub { (substr($_[0], 27), substr($_[0], 0, 17)) } ;
+}
+
+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]); ($a[4], "$a[0] $a[1]") } ;
}
|
