mirror of
https://git.freebsd.org/ports.git
synced 2025-06-25 14:40:32 -04:00
27 lines
812 B
Perl
27 lines
812 B
Perl
--- 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[0] $a[1]", $a[4]) } ;
|
|
}
|