r65687 - in /trunk/libschedule-at-perl: At.pm Changes META.yml debian/changelog

[carnil at users.alioth.debian.org]

Author: carnil
Date: Fri Dec 10 19:37:05 2010
New Revision: 65687

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65687
Log:
* Team upload.
* New upstream release

Modified:
    trunk/libschedule-at-perl/At.pm
    trunk/libschedule-at-perl/Changes
    trunk/libschedule-at-perl/META.yml
    trunk/libschedule-at-perl/debian/changelog

Modified: trunk/libschedule-at-perl/At.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/At.pm?rev=65687&op=diff
==============================================================================
--- trunk/libschedule-at-perl/At.pm (original)
+++ trunk/libschedule-at-perl/At.pm Fri Dec 10 19:37:05 2010
@@ -2,13 +2,16 @@
 
 require 5.004;
 
-# Copyright (c) 1997-2010 Jose A. Rodriguez. All rights reserved.
+# Copyright (c) 1997-2011 Jose A. Rodriguez. All rights reserved.
 # This program is free software; you can redistribute it and/or modify it
 # under the same terms as Perl itself.
 
-use vars qw($VERSION @ISA $TIME_FORMAT);
-
-$VERSION = '1.10';
+use vars qw($VERSION @ISA $TIME_FORMAT $SHELL);
+
+$VERSION = '1.11';
+
+$SHELL = '';
+
 
 ###############################################################################
 # Load configuration for this OS
@@ -47,6 +50,10 @@
 	
 	$command =~ s/%TIME%/$atTime/g;
 	$command =~ s/%FILE%/$params{FILE}/g;
+
+  if ($SHELL) {
+    $command = "SHELL=$SHELL $command";
+  }
 
 	if ($params{FILE}) {
 		return (system($command) / 256);
@@ -291,7 +298,18 @@
 
 =back
 
+=head1 Configuration Variables
+
+=item *
+
+$Schedule::At::SHELL
+
+This variable can be used to specify shell for execution of the scheduled command.
+Can be useful for example when scheduling from CGI script and the account of the user under which httpd runs
+is locked by using '/bin/false' or similar as a shell.
+
 =back
+
 
 =head1 EXAMPLES
 

Modified: trunk/libschedule-at-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/Changes?rev=65687&op=diff
==============================================================================
--- trunk/libschedule-at-perl/Changes (original)
+++ trunk/libschedule-at-perl/Changes Fri Dec 10 19:37:05 2010
@@ -64,3 +64,6 @@
 	- Fixed bug about reporting exit status on past submited jobs
 	Bug: https://rt.cpan.org/Ticket/Display.html?id=55891
 	(based on patch submited by JLMARTIN <jlmartinez AT capisde.com>)
+
+1.11 Web Dic  9 11:40:11 CET 2010
+	- Added support for $SHELL (Jiří Pavlovský jira AT getnet.cz)

Modified: trunk/libschedule-at-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/META.yml?rev=65687&op=diff
==============================================================================
--- trunk/libschedule-at-perl/META.yml (original)
+++ trunk/libschedule-at-perl/META.yml Fri Dec 10 19:37:05 2010
@@ -1,12 +1,20 @@
 --- #YAML:1.0
-name:                Schedule-At
-version:             1.10
-abstract:            ~
-license:             ~
-author:              ~
-generated_by:        ExtUtils::MakeMaker version 6.42
-distribution_type:   module
-requires:     
+name:               Schedule-At
+version:            1.11
+abstract:           ~
+author:  []
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:  {}
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.55_02
 meta-spec:
-    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
-    version: 1.3
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: trunk/libschedule-at-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libschedule-at-perl/debian/changelog?rev=65687&op=diff
==============================================================================
--- trunk/libschedule-at-perl/debian/changelog (original)
+++ trunk/libschedule-at-perl/debian/changelog Fri Dec 10 19:37:05 2010
@@ -1,3 +1,10 @@
+libschedule-at-perl (1.11-1) UNRELEASED; urgency=low
+
+  * Team upload.
+  * New upstream release
+
+ -- Salvatore Bonaccorso <carnil at debian.org>  Fri, 10 Dec 2010 20:33:47 +0100
+
 libschedule-at-perl (1.10-1) unstable; urgency=low
 
   [ Jonathan Yu ]