# HG changeset patch
# User Naoya OYAMA <naoya.oyama@gmail.com>
# Date 1347260140 -32400
# Node ID 2c1cec3c5d64f26a888868fe3482f88c1c6aa9f0
# Parent  159a729b90eb9844c1d069d7b303d0430608a463
out put BS channel instead of SID and "transponder_slot(BS1_1)"

diff -r 159a729b90eb -r 2c1cec3c5d64 src/epgdump_xml_parse.pl
--- a/src/epgdump_xml_parse.pl	Mon Sep 10 14:16:44 2012 +0900
+++ b/src/epgdump_xml_parse.pl	Mon Sep 10 15:55:40 2012 +0900
@@ -34,13 +34,14 @@
 	my @si         = ();
 	my %sih        = ();
 	my $tp         = "";
+	my $slot       = "";
 
 	if (defined($channel{satelliteinfo})) {
 		@si    = @{$channel{satelliteinfo}};
 		%sih   = %{$si[0]};
 		$tp    = $sih{TP}[0];
-		if($tp =~ m/^BS\d+$/) {
-			$tp = $service_id;
+		if ($tp =~ /BS/) {
+			$slot  = $sih{SLOT}[0];
 		}
 	} else {
 		$tp    = $ARGV[0];
@@ -51,13 +52,17 @@
 
 	$channel_info_list{$service_id}{SID}  = $service_id;
 	$channel_info_list{$service_id}{TP}   = $tp;
+	if ($slot =~ /\d/) {
+		$channel_info_list{$service_id}{SLOT} = "_" . $slot;
+	}
 	$channel_info_list{$service_id}{NAME} = $dpnh{content};
 	push(@service_id_list, $service_id);
 }
 
 foreach my $service_id (sort {$a <=> $b} @service_id_list) {
 	print $channel_info_list{$service_id}{SID}  . ",";
-	print $channel_info_list{$service_id}{TP}   . ",";
+	print $channel_info_list{$service_id}{TP}        ;
+	print $channel_info_list{$service_id}{SLOT} . ",";
 	print $channel_info_list{$service_id}{NAME} . "\n";
 }
 1;