Changeset 428

Timestamp:

01/09/07 15:01:35 (6 years ago)

Author:

lincoln

Message:

reduce dependencies

Files:

• postprocessors/imdb_augment_data (modified) (5 diffs)

postprocessors/imdb_augment_data

@@ -28 +28 @@
 
 use LWP::UserAgent;
-use Time::HiRes qw(gettimeofday tv_interval);
 use XMLTV;
-use XMLTV::ProgressBar;
 use POSIX qw(strftime mktime);
 use Getopt::Long;
@@ -37 +35 @@
 use Compress::Zlib;
 use DateTime::Format::Strptime;
-use Cwd;
 
 #
@@ -43 +40 @@
 #
 
-my $script_start_time = [gettimeofday];
+my $script_start_time = time;
 my %stats;
 my $data_cache;
@@ -65 +62 @@
 
 my $opt = { };
-$opt->{output_file} =           cwd() . "/output.xmltv";
-$opt->{cache_file} =            cwd() . "/imdb_augment_data.cache";
+$opt->{output_file} =           "output.xmltv";
+$opt->{cache_file} =            "imdb_augment_data.cache";
 $opt->{lang} =                  "en";
 $opt->{debug} =                 0;
@@ -316 +313 @@
 sub print_stats
 {
-        printf "STATS: %s v%s completed in %0.2f seconds",
-          $progname, $version, tv_interval($script_start_time);
+        my $now = time;
+        printf "STATS: %s v%s completed in %d seconds",
+          $progname, $version, ($now-$script_start_time);
         foreach my $key (sort keys %stats) {
                 printf ", %d %s",$stats{$key},$key;