Plex Links aus VDR Aufnahmen generieren

#!/usr/bin/perl
use File::Basename;

$FILE=@ARGV[0];

$PLEXDIR="/srv/media";

if (($FILE eq "") || (! -r $FILE)) {
     print "\nAufruf: $0 <Aufnahmeverzeichnis/info> \n\n";
     exit;
}

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$TIMESTAMP = sprintf ( "%02d-%02d-%02d",$year+1900,$mon+1,$mday);
$DIRNAME  = dirname($FILE);

open(INFO, "<$DIRNAME/info") || die "Datei nicht gefunden\n";

while(<INFO>){
	next if (/^[XFPLOCE] /);
	chomp();
	$GENRE =       "$_" if (/^G /);
	$GENRE =~       s/^G //g;
	$TITEL =       "$_" if (/^T /);
	$TITEL =~       s/^T //g;
	$SUB =         "$_" if (/^S /);   
	$SUB =~         s/^S //g;

	if (/^D /) {
	    s/^D //g;
	    $DESCRIPTION = "$_";
	    $EPISODE = "$_";
	    $STAFFEL = "$_";
	    $COUNTRY = "$_";
	    $COUNTRY =~ s/\|.*//g;

	    if (/^\D+ \d\d\d\d\|/) {
	       $YEAR    = $COUNTRY;
	       $YEAR    =~ s/^.* //g;
	       $COUNTRY =~ s/ .*//g;
	       $DESCRIPTION =~ s/^\D+ \d\d\d\d\|//g;
            } else {
               $YEAR = "";
	       $COUNTRY = "";
	    }

            if (/Nummer der Staffel/) {
	       $STAFFEL =~ s/^.*Nummer der Staffel: ([0-9]+).*$/$1/g;
	       $STAFFEL = "0" . $STAFFEL if ($STAFFEL < 10);
	       $EPISODE =~ s/^.*Nummer der Episode: ([0-9]+).*$/$1/g;
	       $EPISODE = "0" . $EPISODE if ($EPISODE < 10);
            } else {
               $STAFFEL = "";
               $EPISODE = "";
            }

	    $DESCRIPTION =~ s/\|(Nummer der Staffel|Name der Episode|Name in externer Datenbank|HD-Produktion).*$//g;

        }
}

close INFO;

if ($EPISODE eq "") {
     $EPISODE = $TITEL;
     $EPISODE =~ s/^.*([1-9]+.[1-9]+).*$/$1/g ;
}

if ($YEAR eq "") {
     if ($SUB =~ m/.*([0-9]{4}).*$/) {
        $YEAR = $SUB;
        $YEAR =~ s/.*([0-9]{4}).*/$1/g ;
     }
}

if (($COUNTRY eq "") && ($SUB ne "") && ($YEAR ne "")) {
     if ($SUB =~ m/^.*(USA|Deutschland|Großbritannien|Frankreich) [0-9]{4}.*$/) {
        $COUNTRY = $SUB;
        $COUNTRY =~ s/^.*(USA|Deutschland|Großbritannien|Frankreich) [0-9]{4}.*$/$1/g ;
     }
}

if ($SUB =~ m/^Spielfilm /) {
    $TYP = "Spielfilm";
    $PLEXDIR .= "/Filme";
} elsif ($SUB =~ m/Doku-Reihe,|Dokutainment,/) {
    $TYP = "Dokumentation";
    $PLEXDIR .= "/Doku";
} elsif ($GENRE =~ m/70|80|82/) {
    $TYP = "Dokumentation";
    $PLEXDIR .= "/Doku";
}
else {
    $TYP = "Serie";
    $PLEXDIR .= "/Serien";
}

print "--------\n";
print "Dir:          $DIRNAME \n";
print "Typ:          $TYP \n";
print "Genre:        $GENRE \n";
print "Land:         $COUNTRY \n";
print "Jahr:         $YEAR \n";
print "Titel:        $TITEL \n";
print "Subtitel:     $SUB \n";
print "Staffel:      $STAFFEL \n" if ("$STAFFEL" != "");
print "Episode:      $EPISODE \n" if ("$EPISODE" != "");
print "Beschreibung: $DESCRIPTION  \n\n";

$SUB = "- $SUB" if ($SUB ne "");

if ($STAFFEL eq "") {
   $NEWNAME="$TITEL $SUB"         if ($YEAR eq "");
   $NEWNAME="$TITEL ($YEAR) $SUB" if ($YEAR ne "");
} else {
   $NEWNAME="$TITEL -$SUB - S${STAFFEL}E${EPISODE}" if ($YEAR eq "");
   $NEWNAME="$TITEL ($YEAR) $SUB - S${STAFFEL}E${EPISODE}" if ($YEAR ne "");
}

# https://support.plex.tv/articles/naming-and-organizing-your-tv-show-files/
print "Kommando: ln -snf '$DIRNAME/00001.ts' '$PLEXDIR/$NEWNAME.ts' \n\n";
#qx(ln -snf '$DIRNAME/00001.ts' '$PLEXDIR/$NEWNAME.ts');

#print "find $PLEXDIR -type l -follow -exec rm {} \; \n"; 

case $1 in
    before)
        # do here whatever you would like to do right BEFORE
        # the recording $2 STARTS
        ;;
    started)
        # do here whatever you would like to do right AFTER
        # the recording $2 STARTED
        ;;
    after)
        # do here whatever you would like to do right AFTER
        # the recording $2 ENDED
        /etc/vdr/vdr2plex.pl $2/info
        ;;
    editing)
        # do here whatever you would like to do right AFTER
        # the editing of recording $2 has been started,
        # $3 is the original recording
        ;;
    edited)
        # do here whatever you would like to do right AFTER
        # the recording $2 has been EDITED
        # $3 is the original recording
        ;;
    deleted)
        # do here whatever you would like to do right AFTER
        # the recording $2 has been DELETED
        ;;
esac

--------
Dir:          /srv/media/TV/Traumziele_Südostasiens/2025-02-17.16.30.15-0.rec 
Typ:          Dokumentation 
Genre:        80 
Land:         Australien 
Jahr:         2023 
Titel:        Traumziele Südostasiens 
Subtitel:     Indonesische Inselwelten 
Staffel:      01 
Episode:      01 
Beschreibung: Die Inselwelt Indonesiens ist reich an Traumzielen - vom Taucherparadies Raja Ampat über die von Tempeln geprägte Insel Bali und Java mit seinen gewaltigen Vulkanen bis in Borneos Urwälder.|Mit Indonesiens Hauptstadt Jakarta und anderen Millionenstädten zählt die Insel Java zu den am dichtesten besiedelten Regionen der Erde. Doch finden sich dort auch eine Reihe aktiver Vulkane, von denen einige von den Einheimischen als Sitz von Gottheiten verehrt werden.  


Kommando: ln -snf '/srv/media/TV/Traumziele_Südostasiens/2025-02-17.16.30.15-0.rec/00001.ts' '/srv/media/Doku/2025-02-17-Traumziele Südostasiens-Indonesische Inselwelten-S01-E01.ts' 


--------
Dir:          /srv/media/TV/Fremdenlegion/2025-02-03.20.15.15-0.rec 
Typ:          Dokumentation 
Genre:        80 
Land:         Deutschland 
Jahr:         2023 
Titel:        Fremdenlegion 
Subtitel:     Rekruten im Härtetest 
Beschreibung: Die Fremdenlegion: 9000 Elitesoldaten aus aller Welt, ausgebildet mit Drill und Gehorsam, einsatzbereit für den Kampf. Der Weg in die Legion ist hart, bleiben dürfen nur die Besten.|Täglich kommen Männer aus der ganzen Welt zur Legionskaserne im französischen Aubagne. Sie suchen eine zweite Chance im Leben. Doch was sie erwartet, ahnen sie nicht: scharfer Befehlston, harte Tests, wenig Schlaf, wenig zu essen, eine extreme Zeit.  


Kommando: ln -snf '/srv/media/TV/Fremdenlegion/2025-02-03.20.15.15-0.rec/00001.ts' '/srv/media/Doku/2025-02-17-Fremdenlegion-Rekruten im Härtetest.ts' 


--------
Dir:          /srv/media/TV/Fremdenlegion/2025-02-03.21.00.15-0.rec 
Typ:          Dokumentation 
Genre:        80 
Land:         Deutschland 
Jahr:         2024 
Titel:        Fremdenlegion 
Subtitel:     Trainingshölle Regenwald 
Beschreibung: Elitekämpfer im Dschungel: Im 3. Regiment der Fremdenlegion werden Legionäre und Spezialeinheiten befreundeter Armeen unter besonders harten Bedingungen geschult.|Die Dschungelkampfschule gehört zu den härtesten militärischen Trainingsprogrammen. Die Soldaten campieren im Regenwald, Essen ist rationiert, es gibt keine Sanitäranlagen. Bedingungsloser Gehorsam ist Pflicht, und selbst kleinste Fehler werden hart bestraft.  


Kommando: ln -snf '/srv/media/TV/Fremdenlegion/2025-02-03.21.00.15-0.rec/00001.ts' '/srv/media/Doku/2025-02-17-Fremdenlegion-Trainingshölle Regenwald.ts'