Changeset 33 for shepherd

Timestamp:

10/06/06 06:14:56 (7 years ago)

Author:

lincoln

Message:

fix language tags in write_channel xml output, fix input_postprocess_file filename

Files:

• shepherd (modified) (3 diffs)

shepherd

@@ -128 +128 @@
 my $channel_data = { };
 my $starttime, my $endtime;
-my $input_postprocess_file = "$CWD/output_pre_postprocessors.xml";
+my $input_postprocess_file = "$CWD/reconciled_output_pre_postprocessors.xml";
 my $insufficient_grabber_data = 0;
 
@@ -554 +554 @@
 
     my %writer_args = ( encoding => 'ISO-8859-1' );
-    my $fh = new IO::File(">input_postprocess_file") || die "can't open outputfile $input_postprocess_file: $!";
+    my $fh = new IO::File(">$input_postprocess_file") || die "can't open outputfile $input_postprocess_file: $!";
     $writer_args{OUTPUT} = $fh;
     my $writer = new XMLTV::Writer(%writer_args);
@@ -561 +561 @@
 
     for my $ch (sort keys %$channels) {
-        $writer->write_channel({'display-name' => [[ $ch, $langs ]], 'id' => $channels->{$ch}} );
+        $writer->write_channel({'display-name' => [[ $ch, "en" ]], 'id' => $channels->{$ch}} );
     }