Changeset 723

Timestamp:

05/31/07 08:00:37 (6 years ago)

Author:

paul

Message:

Use Shepherd::Common for log and print_stats. Set some get_url defaults with Shepherd::Common::set_default.

Files:

• grabbers/southerncross_website (modified) (5 diffs)
• status (modified) (1 diff)

grabbers/southerncross_website

@@ -32 +32 @@
 
 my $progname = "southerncross_website";
-my $version = "0.04";
+my $version = "0.05";
 
 #use LWP::UserAgent;
@@ -60 +60 @@
 my $d;
 my $opt;
-my %amp = ( nbsp => ' ', qw{ amp & lt < gt > apos ' quot " } );
 
 
@@ -108 +107 @@
 die "No channel file specified, see --help for instructions\n", if (!$opt->{channels_file});
 
+# set defaults
+Shepherd::Common::set_default("debug", ($opt->{debug} * 2)) if (defined $opt->{debug});
+Shepherd::Common::set_default("webwarper", 1) if (defined $opt->{warper});
+Shepherd::Common::set_default("squid", 1) if (defined $opt->{obfuscate});
+Shepherd::Common::set_default("referer", "last");
+
 #
 # go go go!
@@ -154 +159 @@
 &write_xmltv($progs);
 
-&print_stats;
+&Shepherd::Common::print_stats($progname, $version, $script_start_time, %stats);
 exit(0);
 
@@ -191 +196 @@
 sub log
 {
-  my ($entry) = @_;
-  printf "%s\n",$entry;
-}
-
-##############################################################################
-
-sub print_stats
-{
-  printf "STATS: %s v%s completed in %d seconds",$progname, $version, time-$script_start_time;
-  foreach my $key (sort keys %stats) {
-    printf ", %d %s",$stats{$key},$key;
-  }
-  printf "\n";
+  &Shepherd::Common::log(@_);
 }
 

status

@@ -12 +12 @@
 grabber         foxtel_swf          0.07
 grabber         channelnsw_gov      0.7
-grabber         southerncross_website   0.04
+grabber         southerncross_website   0.05
 grabber         ten_website         1.01
 reconciler      reconciler_mk2      0.26