Replace all occurrances of timelocal.pl with Time::Local https://sour…

…ceforge.net/tracker/?func=detail&atid=117457&aid=3566479&group_id=17457
textdrive · Sep 10, 2012 · 8a16bc7 · 8a16bc7
1 parent d572a06
commit 8a16bc7
Show file tree

Hide file tree

Showing 15 changed files with 15 additions and 16 deletions.
diff --git a/at/create_job.cgi b/at/create_job.cgi
@@ -2,9 +2,8 @@
 # create_job.cgi
 # Create a new at job
 
-require 'timelocal.pl';
-
 require './at-lib.pl';
+use Time::Local;
 &ReadParse();
 &error_setup($text{'create_err'});
 

diff --git a/cluster-useradmin/create_group.cgi b/cluster-useradmin/create_group.cgi
@@ -3,7 +3,7 @@
 # Creates a new group on all servers
 
 require './cluster-useradmin-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &error_setup($text{'gsave_err'});
 &ReadParse();
 @hosts = &list_useradmin_hosts();

diff --git a/cluster-useradmin/create_user.cgi b/cluster-useradmin/create_user.cgi
@@ -3,7 +3,7 @@
 # Creates a new user on multiple machines
 
 require './cluster-useradmin-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &foreign_require("useradmin", "user-lib.pl");
 &error_setup($text{'usave_err'});
 &ReadParse();

diff --git a/cluster-useradmin/edit_user.cgi b/cluster-useradmin/edit_user.cgi
@@ -3,7 +3,7 @@
 # Display a form for editing a user, or creating a new user
 
 require './cluster-useradmin-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 &foreign_require("useradmin", "user-lib.pl");
 

diff --git a/cluster-useradmin/save_user.cgi b/cluster-useradmin/save_user.cgi
@@ -3,7 +3,7 @@
 # Updates an existing user across multiple servers
 
 require './cluster-useradmin-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &error_setup($text{'usave_err'});
 &ReadParse();
 &foreign_require("useradmin", "user-lib.pl");

diff --git a/cluster-useradmin/user_form.cgi b/cluster-useradmin/user_form.cgi
@@ -3,7 +3,7 @@
 # Display a form for creating a new user
 
 require './cluster-useradmin-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 &foreign_require("useradmin", "user-lib.pl");
 

diff --git a/dhcpd/list_leases.cgi b/dhcpd/list_leases.cgi
@@ -3,7 +3,7 @@
 # List all active leases
 
 require './dhcpd-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 $timenow = time();
 

diff --git a/nis/edit_passwd_shadow.cgi b/nis/edit_passwd_shadow.cgi
@@ -3,7 +3,7 @@
 # Edit a NIS password/shadow files entry
 
 require './nis-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 &ui_print_header(undef, $text{'passwd_title'}, "");
 $mode = ($0 =~ /passwd_shadow_full.cgi$/ ? 2 :

diff --git a/nis/old_edit_passwd_shadow.cgi b/nis/old_edit_passwd_shadow.cgi
@@ -3,7 +3,7 @@
 # Edit a NIS password/shadow files entry
 
 require './nis-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 &ui_print_header(undef, $text{'passwd_title'}, "");
 

diff --git a/nis/save_passwd_shadow.cgi b/nis/save_passwd_shadow.cgi
@@ -3,7 +3,7 @@
 # Create, update or delete a password/shadow files entry
 
 require './nis-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 
 ($t, $lnums, $passwd, $shadow) =

diff --git a/time/apply.cgi b/time/apply.cgi
@@ -4,7 +4,7 @@ local $format;
 local $out;
 
 require "./time-lib.pl";
-require 'timelocal.pl';
+use Time::Local;
 
 &ReadParse();
 

diff --git a/updown/download.cgi b/updown/download.cgi
@@ -3,7 +3,7 @@
 # Save a download or start it right now
 
 require './updown-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 &error_setup($text{'download_err'});
 

diff --git a/useradmin/edit_user.cgi b/useradmin/edit_user.cgi
@@ -3,7 +3,7 @@
 # Display a form for editing a user, or creating a new user
 
 require './user-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &ReadParse();
 
 # Show header and get the user

diff --git a/useradmin/save_group.cgi b/useradmin/save_group.cgi
@@ -3,7 +3,7 @@
 # Saves or creates a new group
 
 require './user-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &error_setup($text{'gsave_err'});
 &ReadParse();
 

diff --git a/useradmin/save_user.cgi b/useradmin/save_user.cgi
@@ -4,7 +4,7 @@
 # home directory or changing file ownerships, do that as well
 
 require './user-lib.pl';
-require 'timelocal.pl';
+use Time::Local;
 &error_setup($text{'usave_err'});
 &ReadParse();