Commit 8468dbb7 authored by Mike Hibler's avatar Mike Hibler

Get rid of uses of 'ctime.pl'.

It has been dead for a long time and I am tired of seeing the message.
parent 46ce9763
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2005 University of Utah and the Flux Group.
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -22,7 +22,6 @@
# }}}
#
use English;
require 'ctime.pl';
#
# Prepare the node for cutting a new image. Should be run just prior.
......
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2011 University of Utah and the Flux Group.
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -23,7 +23,6 @@
#
use English;
use Getopt::Std;
require 'ctime.pl';
# Drag in path stuff so we can find emulab stuff.
BEGIN { require "/etc/emulab/paths.pm"; import emulabpaths; }
......
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2012 University of Utah and the Flux Group.
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -23,7 +23,6 @@
#
use English;
use Getopt::Std;
require 'ctime.pl';
#
# Prepare the node for cutting a new image. Should be run just prior, on
......
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2003 University of Utah and the Flux Group.
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -22,7 +22,6 @@
# }}}
#
use English;
require 'ctime.pl';
# Drag in path stuff so we can find emulab stuff.
BEGIN { require "/etc/emulab/paths.pm"; import emulabpaths; }
......@@ -94,7 +93,7 @@ open(DMP, ">$DUMPDATES") or
while (<TAB>) {
if ($_ =~ /^([\w\/]+).*(\d).*\d$/) {
if ($2 != 0) {
my $t = localtime(time);
my $t = localtime();
print DMP "$1 0 $t\n";
}
}
......
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2011 University of Utah and the Flux Group.
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -48,7 +48,6 @@ if ($#ARGV >= 1 || $#ARGV < 0) {
use lib '@prefix@/lib';
use libtestbed;
use emdb;
require "ctime.pl";
my $display = shift;
......@@ -56,7 +55,7 @@ my $v = 0; # Verbose
my @tbls = map { $_ =~ s/.*\.//; $_ } emdb::DBHandle()->tables();
my $date = &ctime(time);
my $date = &localtime();
$date =~ s/[ \t]+/ /;
$date =~ s/\n//;
......
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2004 University of Utah and the Flux Group.
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -25,7 +25,6 @@
use lib '@prefix@/lib';
use libdb;
require "ctime.pl";
# Turn off line buffering
$| = 1;
......@@ -34,7 +33,7 @@ sub doformats($$);
my $datetag = `date +%Y%m%d%H%M%S`;
chomp($datetag);
my $date = &ctime(time);
my $date = &localtime();
$date =~ s/[ \t]+/ /;
$date =~ s/\n//;
my $defprefix = "stategraph";
......
......@@ -23,7 +23,6 @@
#
use English;
use Getopt::Std;
require 'ctime.pl';
use POSIX ":sys_wait_h";
use Data::Dumper;
......
#!/usr/bin/perl -wT
#
# Copyright (c) 2000-2010 University of Utah and the Flux Group.
# Copyright (c) 2000-2013 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -23,7 +23,6 @@
#
use English;
use Getopt::Std;
require 'ctime.pl';
use POSIX ":sys_wait_h";
#
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment