1 files changed, 27 insertions, 0 deletions

diff --git a/sysutils/p5-Schedule-At/files/patch-At.pm b/sysutils/p5-Schedule-At/files/patch-At.pm
new file mode 100644
index 000000000000..f74c60475ba3
--- /dev/null
+++ b/sysutils/p5-Schedule-At/files/patch-At.pm
@@ -0,0 +1,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[0] $a[1]", $a[4]) } ;
+ }