aboutsummaryrefslogtreecommitdiffstats
path: root/contrib/vtx2xawtv/vtx2xawtv
blob: 2f6655620eed8e87e5f4fe729a8989595510b1a8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#!/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.
   }
}

Privacy Policy