Skip to content
Browse files

Continue cleanup

  • Loading branch information...
1 parent 2bdef33 commit 8ec67883b88f095d52ed4016e052ddb5390126e1 @rkulagowski committed
Showing with 10 additions and 11 deletions.
  1. +10 −11 tv_grab_na_sd.pl
View
21 tv_grab_na_sd.pl
@@ -6,17 +6,16 @@
use WWW::Mechanize;
use POSIX qw(strftime);
-my $version = "0.01";
-my $date = "2012-03-12";
+my $version = "0.02";
+my $date = "2012-03-13";
-my ( @deviceid, @deviceip, @device_hwtype, @qam, @program, @hdhr_callsign );
-my ( @lineupinformation, @SD_callsign, @xmlid, @schedule_url, @data );
+my @data;
my $i = 0;
my $channel_number = 0;
my $lineupid = "";
my $devtype = "";
-my $username;
-my $password;
+my $username = "";
+my $password = "";
my $help;
my $zipcode = "0";
my $response;
@@ -305,11 +304,11 @@
{
my $line = $headend_lineup[$elem];
$line =~ /^channel:(\d+) callsign:(\w+) stationid:(\d+) (.*+)$/;
- $SD_callsign[$elem] = $2;
- $xmlid[$elem] = $3;
- $schedule_url[$elem]= $4;
- $m->get($schedule_url[$elem] . "&rand=" . $randhash);
- $m->save_content("$xmlid[$elem]_sched.txt.gz");
+ $data[$elem]->{'callsign'} = $2;
+ $data[$elem]->{'xmlid'} = $3;
+ $data[$elem]->{'URL'} = $4;
+ $m->get($data[$elem]->{'URL'} . "&rand=" . $randhash);
+ $m->save_content($data[$elem]->{'xmlid'} . "_sched.txt.gz");
}
print "\nDone.\n";

0 comments on commit 8ec6788

Please sign in to comment.
Something went wrong with that request. Please try again.