Script zum Aufnehmen von der TV-Karte mit mencoder

#!/usr/bin/perl -w
#
use strict;
use warnings;
use Shell;

#program version
my $VERSION="0.1";

#For CVS , use following line
#my $VERSION=sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/);

###################################################################################
# Version: 0.01
# Lizens:  gpl
# Autoren: migo, taki
#
# Dieses Script wird im linux-club Forum multimedia besprochen und entwickelt.
# Verbesserungsvorschläge sollen dort gepostet werden.
# URL: http://www.linux-club.de/viewtopic.php?p=153446#153446
#
# TODO: Umstellung auf englisch, I18N,
#       und
#       s. TODO-comment in the subs
#
#       Wenn vollständig, umsetzen in Python oder Ruby
#       -> bessere Performance, Möglichkeit, zu einer vollwertigen KDE-Anwendung
#          zu wachsen (DCOP-Interface, KFileDialog mit kio-slaves, kparts etc.)
###################################################################################

###################################################################################
# Hardwareabhängige Einstellungen (vom Benutzer anzupassen)
#
# TODO: Auslagern in Konfigurationsdatei, Einstellungsmöglichkeit über Dialog
###################################################################################
#my $driver = 'v4l';
my $driver = 'v4l2';
#my $norm   = 'ntsc';
my $norm   = 'pal';

###################################################################################
# Weitere benutzerspezifische Einstellungen (vom Benutzer anzupassen)
#
# TODO: Auslagern in Konfigurationsdatei, Einstellungsmöglichkeit über Dialog
###################################################################################
#my $pfad  = "/data/video";
my $pfad  = "/home/freevo/Documents/Video/misc";
#my $scale = '384:288';
my $scale = '768:576';

#############################################################
# Vorbelegung globaler Variablen (hier Parameter)
#############################################################
my $interactive = "";
my $sender      = "";
my $start       = "";
my $dauer       = "";
my $cron        = "";
my $grey        = "";
my $film        = "";
my $intervall   = "";

my $minute      = 0;
my $stunde      = 0;
my $minuten     = 0;
my $stunden     = 0;
my $bitrate     = 0;

sub set_sender  {
 # Abfrage des gewünschten Senders und Einstellung desselben.
 # test: Aufruf zu einer Prüfung, Shell-Befehl
 # -eq: "equal" = "ist gleich", Shell-Befehl zum Vergleich zweier Zahlen
 # z.B. arte "Arte" bedeutet: in .xawtv ist "arte" eingestellt, im Menü
 # wird "Arte" angezeigt.
 my ($V) = @_;
 if ( ! ($V) )
 {
     use Env qw/HOME/;
     my $xawtvrc = "$HOME/.xawtvrc";
     $xawtvrc    = "/etc/X11/xawtvrc" unless ( -f $xawtvrc );
     open (IN, $xawtvrc) || die "xawtvrc kann nicht gelesen werden. $!\n";
     my @xawtvrc = <IN>;
     close IN;
     my $Channellist = "";
     my $Channel     = "";
     my $Channelname = "";
     foreach (@xawtvrc)  {
        if (/\[.*\]/)
        {
            $Channelname =  $_;
            $Channelname =~ s/^\[//g;
            $Channelname =~ s/\].*$//g;
            chomp ($Channelname);
            $Channel     = $Channelname;
            # Leerstellen entwerten
            $Channel     =~ s/\ /\\ /g;
            # Klammern entwerten
            $Channel     =~ s/\(/\\(/g;
            $Channel     =~ s/\)/\\)/g;
            $Channellist = "$Channellist $Channel \"$Channelname\" ";
        }
     }
     if (!($Channellist)) {
         print "Die Kanalliste ist leer. Die TV-Karte muss wohl erst noch eingerichtet werden (mit YaST oder mit scantv).\n";
         exit 2;
     }
     $V = `kdialog --title \"Senderauswahl\" --menu \"Welcher Sender soll eingestellt werden?\" $Channellist`;
     chomp $V;
  }
  if ( ! ($V) )
  {
     exit 0;
  }
  return $V;
}

sub set_film
{
  #
  # Abfrage des Filmtitels
  #
  my ($V) = @_;
  if ( ! ($V) )
  {
     $V = `kdialog --title "Filmtitel" --inputbox "Filmtitel für den Dateinamen"`;
     chomp $V;
  }
  if ( ! ($V) )
  {
     exit 0;
  }
  return $V;
}

sub set_start
{
  #
  # Abfrage der Startzeit
  #
  my ($V) = @_;
  if ( ! ($V) )
  {
     $V = `kdialog --title "Startzeit" --inputbox "Bitte Startzeit eingeben (Format hh:mm)"`;
     chomp $V;
  }
  if ( ! ($V) )
  {
     exit 0;
  }
  return $V;
}

sub set_dauer
{
  #
  # Abfrage der Aufnahmedauer
  #
  my ($V) = @_;
  if ( ! ($V) )
  {
     $V = `kdialog --title "Dauer der Aufnahme" --inputbox "Aufnahmedauer? (Format hh:mm)"`;
     chomp $V;
  }
  if ( ! ($V) )
  {
     exit 0;
  }
  return $V;
}

sub set_grey
{
  #
  # Abfrage nach Schwarz-Weiss-Aufnahme
  #
  my ($V) = @_;
  if (( ! ($V)) and ($interactive) )
  {
     $V = `kdialog --title "Schwarz-Weiss?" --menu "Soll in Schwarz-Weiss aufgenommen werden?" "" Farbe "gray" SW`;
     chomp $V;
  }
  return $V;
}



sub realyNow
{
  my ($V)       = @_;
  my $startzeit = "";

  if ( ! ($V) )
  {
     return;
  }

  if ($start)  {
     $startzeit = $start . " Uhr";
  }
  else
  {
    $start = "Jetzt";
  }

  # Ausgabe der eingestellten Daten, letzte Abbruchmöglichkeit
  `kdialog --title "Filmdaten" --yesno "Es wird aufgenommen\n\
----------------------------------------------------------------------------------------------------------------\n\
 Dateiname:           $film\n\
 Sender:              $sender\n\
 Beginn der Aufnahme: $startzeit\n\
 Wiederholungen:      $intervall\n\
 Aufnahmedauer:       $minuten min\n\
 Bitrate:             $bitrate kBit/s\n\
----------------------------------------------------------------------------------------------------------------\n\
 OK?"`;

  if ( $? )
  {
     exit 0;
  }
}


sub recordMovie
{
  $sender = set_sender ($sender);
  $start  = set_start  ($start);
  $dauer  = set_dauer  ($dauer);
  #$grey   = set_grey   ($grey);
  $film   = set_film   ($film);
  $bitrate = set_bitrate ($dauer);

  my $Cmd = "echo \"$0 -sender $sender -dauer = $dauer -film $film $grey -record\" ";

  # Übergabe des zusammengestellten Aufnahmebefehls an at,
  # um einen einzelnen Film aufzunehmen
  exec ("$Cmd |at $start");
  exit 0;
}



sub set_intervall
{
  #
  # Abfrage des Intervalls (s. man crontab)
  #
  my ($V) = @_;
  if ( ! ($V) )
  {
     $V = `kdialog --title "Wiederholungen" --menu "An welchen Wochentagen läuft die Serie?\" 1-7 "Täglich" 1-5 "Werktags" 1 "Montags" 2 "Dienstags" 3 "Mittwochs" 4 "Donnerstags" 5  "Freitags" 6 "Sonnabends" 7 "Sonntags" set "andere Einstellungen..."`;
     chomp $V;
     if ( $V eq 'set' )  {
        $V = `kdialog --title "Wiederholungen" --inputbox "Wiederholungen? Wochentag(e) (s. man crontab)"`;
        chomp $V;
     }
  }
  if ( ! ($V) )
  {
     exit 0;
  }
  return $V;
}

sub recordSerial
{
  ### TODO: Wenn Zeitvorgabe schon vorliegt, gleich in Crontab eintragen
  $sender    = set_sender    ($sender);
  $start     = set_start     ($start);
  $dauer     = set_dauer     ($dauer);
#  $grey      = set_grey      ($grey);
  $film      = set_film      ($film);
  $bitrate   = set_bitrate   ($dauer);
  $intervall = set_intervall ($intervall);

  my $Cmd = "$0 -sender $sender -dauer = $dauer -film $film $grey -record";

  realyNow($interactive);

  # Eintrag des Aufnahmebefehls in die crontab,
  # um eine Serienaufzuzeichnung einzustellen

  $stunde    = $start;
  $stunde    =~ s/:.*$//;
  $minute    = $start;
  $minute    =~ s/^.*://;

  use Env qw/USER/;
  use Config::Crontab;
  my $ct = new Config::Crontab;
  $ct->read || die "Konnte crontab nicht lesen. $?\n";;

  for my $block ( $ct->blocks ) {
        print $block->dump;
    }

  ## make another block using Block methods
  my $block = new Config::Crontab::Block;
  $block->last( new Config::Crontab::Comment( -data    => "# Aufnahme der Serie $film" ) );
  $block->last( new Config::Crontab::Event  ( -minute  => "$minute",
                                              -hour    => "$stunde",
                                              -dow     => "$intervall",
                                              -command => "$Cmd" ) );

  ## add this block to crontab file
  $ct->last ($block);

  ## save the new crontab
  $ct->write || die "Konnte crontab nicht schreiben. $!\n";;

  # Aufruf kcron, um den neuen Eintrag zur Kontrolle noch mal anzuzeigen
  exec ("kcron");
  exit 0;
}


sub set_bitrate  {
  # Umrechnung der Aufnahmedauer in Minuten
  my ($stunden) = @_;
  $stunden    =~ s/:.*$//;
  ($minuten)    = @_;
  $minuten    =~ s/^.*://;
  $minuten    = $minuten + ($stunden * 60);

  # Festlegung der Bitrate: bis zu 128 Minuten Filmdauer stets 2000 kByte/s,
  # darüber Anpassung an max. 2 GB Dateigröße
  if ( $minuten <= 128 )
  {
     $bitrate = 2000;
  }   else  {
     $bitrate = sprintf("%.0f", ((1995 - 0.9375 * $minuten) * 8192/(60 * $minuten)));
  }
  return $bitrate;
}

sub record
{
  $sender  = set_sender ($sender);
  $start   = '';
  $dauer   = set_dauer  ($dauer);
  $film    = set_film   ($film);
  $bitrate = set_bitrate ($dauer);

  if ($grey)
  {
     $grey = ':grey'
  }


  # Start der zeitprogrammierten Filmaufnahme
  #
  system ("v4lctl setstation $sender" );

  use Time::localtime;
  my $Timestamp = (localtime->year() + 1900) . "-" . (localtime->mon() + 1) . "-" . localtime->mday() . "_" . localtime->hour() . "-" . localtime->min();
  $film    = $pfad . "/" . $film . "_" . $Timestamp . "_" . $sender . ".avi";
   my $Cmd = 'mencoder tv:// -tv driver=' . $driver . ':norm=' . $norm . ':fps=25:outfmt=yuy2:quality=0:input=0:width=768:height=576 -ovc lavc -lavcopts vcodec=mpeg4:vbitrate=' . $bitrate . $grey . ':keyint=25 -oac mp3lame  -lameopts cbr:br=128:mode=0 -endpos ' . $dauer . ':00 -vf pp=hb/vb/dr/al/lb,denoise3d,scale=' . $scale . ' -o ' . $film;

  realyNow($interactive);
print "Cmd = $Cmd\n";
#    sudo nice -n-17 mencoder tv:// \
  exec ($Cmd);
}


sub play
{
    $sender = set_sender($sender);
#TODO?   farbe=set_farbe();
#TODO?   film=set_film();

#   system ( "v4lctl setstation $sender" ) || die "Konnte Sender $sender nicht einstellen; $! \n";
   system ( "v4lctl setstation $sender" );
   exec ("mplayer -fs tv:// -tv driver=$driver:norm=$norm:outfmt=yuy2:quality=0:width=1280:height=1024:fps=25 -vo xv  -v 3");
}


sub usage
{
   print "\n";
   print "Usage: tv -OPCODE [-i] [args]\n";
   print "\n";
   print "Aufruf zum Fernsehen ist\n";
   print "        tv -play -sender sender \n";
   print "\n";
   print "Aufruf zum sofort Aufnehmen ist\n";
   print "        tv -record [-i] -sender sender -dauer dauer -farbe farbe -film film\n";
   print "\n";
   print "Aufruf zum zeitgesteuerten Aufnehmen eines Films ist\n";
   print "        tv -recordAt [-i] -sender sender -t start -dauer dauer -farbe farbe -film film\n";
   print "\n";
   print "Aufruf zum zeitgesteuerten Aufnehmen einer Serie ist\n";
   print "        tv -recordSerial -sender sender -t start -dauer dauer -farbe farbe -film film\n";
   print "\n";
   print "Fehlende Argumente werden ggf. erfragt.\n";
   print "Mit -i kann man ggf. die Ausführung der Aufnahme abbrechen.\n";
   print "\n"
}



#############################################################
# Auswertung der Parameter und Argumente
#############################################################

use Getopt::Long;
GetOptions ('interactive'  => \$interactive,
            'sender=s'     => \$sender,
            'start=s'      => \$start,
            'dauer=s'      => \$dauer,
            'cron=s'       => \$cron,
            'grey'         => \$grey,
            'film=s'       => \$film,
            'pfad=s'       => \$pfad,
            'help'         => sub { usage () },
            'play'         => sub { play () },
            'record'       => sub { record () },
            'recordMovie'  => sub { recordMovie () },
            'recordSerial' => sub { recordSerial () }
);
usage ();
exit 2;

__END__

=head1 NAME

tv_perl - simple tv recording app

=head1 SYNOPSIS

 tv.pl          -sender SENDER -dauer DAUER in HH:MM                                                 -play
 tv.pl          -sender SENDER -dauer DAUER in HH:MM -film FILMTITEL                                 -record
 /pfad/zu/tv.pl -sender SENDER -dauer DAUER in HH:MM -film FILMTITEL -start HH:MM                    -recordMovie
 /pfad/zu/tv.pl -sender SENDER -dauer DAUER in HH:MM -film FILMTITEL -start HH:MM -cron Wochentag(e) -recordSerial

=head1 DESCRIPTION

 long description of your program

=head1 SEE ALSO

 need to know things before somebody uses your program

=head1 AUTHOR

 Andreas Silberstorff

=cut

/usr/bin/tv.pl -i -pfad /pfad/zu/videos -audiomixerdev="Video" -useFrq

/usr/bin/tv.pl -i -pfad /pfad/zu/videos -audiomixerdev="Cd1" -saturation 100

/usr/bin/tv.pl -i -pfad /pfad/zu/videos -driver v4l -nice 17

...
-endpos 0:0:0:0:15 -vf pp=hb/vb/dr/al/lb,denoise3d,scale=768:576
-o /hhh_2005-4-4_7-41_SW 3 Rheinland-Pfalz.avi

...
==========================================================================
Opening audio decoder: [pcm] Uncompressed PCM audio decoder
AUDIO: 44100 Hz, 2 ch, 16 bit (0x10), ratio: 176400->176400 (1411,2 kbit) Selected audio codec: [pcm] afm:pcm (Uncompressed PCM) ==========================================================================
Cannot open output file '/home/jochen/MyTmp/vvv_2005-4-4_7-42_SW'.