diff options
| author | Norikatsu Shigemura <nork@FreeBSD.org> | 2006-11-19 14:05:55 +0000 |
|---|---|---|
| committer | Norikatsu Shigemura <nork@FreeBSD.org> | 2006-11-19 14:05:55 +0000 |
| commit | bf12f3d515764be8716400f8ac6a829602004cf1 (patch) | |
| tree | 2dd38033494d9303dbe17c018bbc7fc1b6a67cab /sysutils | |
| parent | 4e2b056e977a5a3c05fa3c8ccb034971d5555530 (diff) | |
| download | ports-bf12f3d515764be8716400f8ac6a829602004cf1.tar.gz ports-bf12f3d515764be8716400f8ac6a829602004cf1.zip | |
Notes
Diffstat (limited to 'sysutils')
| -rw-r--r-- | sysutils/p5-Schedule-At/Makefile | 1 | ||||
| -rw-r--r-- | sysutils/p5-Schedule-At/files/patch-At.pm | 38 |
2 files changed, 3 insertions, 36 deletions
diff --git a/sysutils/p5-Schedule-At/Makefile b/sysutils/p5-Schedule-At/Makefile index 3ec7698d10cb..c2fbe97d049f 100644 --- a/sysutils/p5-Schedule-At/Makefile +++ b/sysutils/p5-Schedule-At/Makefile @@ -7,6 +7,7 @@ PORTNAME= Schedule-At PORTVERSION= 1.06 +PORTREVISION= 1 CATEGORIES= sysutils perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= Schedule diff --git a/sysutils/p5-Schedule-At/files/patch-At.pm b/sysutils/p5-Schedule-At/files/patch-At.pm index e0031ed112f2..116cd6c8221a 100644 --- a/sysutils/p5-Schedule-At/files/patch-At.pm +++ b/sysutils/p5-Schedule-At/files/patch-At.pm @@ -1,5 +1,5 @@ ---- At.pm.orig Mon Mar 25 20:52:01 2002 -+++ At.pm Tue May 14 18:15:55 2002 +--- At.pm.orig Tue Sep 13 16:11:36 2005 ++++ At.pm Sun Nov 19 21:58:16 2006 @@ -55,6 +55,7 @@ print ATCMD "$TAGID$params{TAG}\n" if $params{TAG}; print ATCMD $params{COMMAND}; @@ -8,37 +8,3 @@ } 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 { |