#!/usr/bin/perl
#
#  vtx2xawtv - Konvertiert Kabel1-Kanalliste ins .xawtv-Format
#
#  1) Mit Videotext-Tool aus dem Kabel1-Text die Seiten mit
#     den Kanal-Listen aufrufen und abspeichern, z.B. als
#     vtx1.txt bis vtx3.txt
#
#  2) Diese Seiten durch vtx2xawtv pipen:
#
#        cat vtx?.txt | vtx2xawtv >> ~/.xawtv
#
#
#  Have Fun,
#     Kai  (K@i-Fett.de)
#
#  PS: Dieses Scriptchen ist natrlich Public Domain, es wre aber schn,
#      wenn mein Name in weiteren Versionen drinbleibt.
#
#############################################################################
									    #
while(<STDIN>){                                                             #
    if (/\*/) {                                                             #
									    #
      # Zeile in 3 Teile zerlegen, jeweils feste Breite                     #
									    #
      /(.........................)(..)(...)/;                               #
	$name=$1;                  $typ=$2;
				       $chan=$3;

      $name=~s/\(.*\)//;   # Bemerkungen in Klammern lschen
      $name=~s/(\ )*$//;   # Leerzeichen am Ende...
      $name=~s/^(\ )//;    # ...und am Anfang lschen

      if ($typ=~/K/){$typ='E'}                # Die Kabel1-Liste notiert
      if ($typ=~/S/ and $chan<21){$typ='SE'}  # die Kanle etwas
      if ($typ=~/S/ and $chan>20){$typ='S'}   # anders als xawtv

      $chan=~s/(\ )*$//;  # Auch wieder fllende
      $chan=~s/^(\ )*//;  # und fhrende Leerzeichen abschneiden

      print "[$name]\nchannel=$typ$chan\n\n"; # Und im xawtv-Format ausgeben.
   }
}