1
0
mirror of https://github.com/FrodoVDR/channellogos.git synced 2023-10-10 13:36:54 +02:00
channellogos/debian/scripts/create_channellogos_symlinks.pl

122 lines
3.4 KiB
Perl
Raw Normal View History

#!/usr/bin/perl
if (not defined $ARGV[0]) {die "No parameter given! \ncreate-symlinks.pl <channels.conf> <logos> <link-dir>\n"};
if (not defined $ARGV[1]) {die "No parameter given! \ncreate-symlinks.pl <channels.conf> <logos> <link-dir>\n"};
if (not defined $ARGV[2]) {die "No parameter given! \ncreate-symlinks.pl <channels.conf> <logos> <link-dir>\n"};
my $logopath = "$ARGV[1]";
my $linkpath = "$ARGV[2]";
%img = ();
# svg folder einlesen
opendir DIR, "$logopath" or {die " cant open $logopath" };
while(my $file = readdir DIR) {
if( $file =~ /\.(svg|png|jpg)$/i ) {
$value = $file;
$file =~ /(.*).([A-Za-z]{3})/;
$key = $1;
$key =~ s/\W//g;
$img{$key} = $value;
}
}
closedir DIR;
open LOG, ">translate.log" or die "Can't open log file!\n";
# channels.conf einlesen
open (FILE, "< $ARGV[0]") or die "Can't open file\n";
while (<FILE>) {
$channame = $shortname = '';
$line = $_;
$line =~ s/\r\n//;
if ($line =~ /^:/ or $line =~ /^@/ ) { next; }
@line = split(/:/, $line);
$line[0] =~ s/\'//;
$line[0] =~ s/\///;
if ($line[0] =~ m/;/) { $line[0] =~ /(.*);.*/; $line[0] = $1 }
if ($line[0] =~ m/,/) {
@names = split(/,/, $line[0]);
$channame = $names[0]; $shortname = $names[1];
}
else { $channame = $line[0]; $shortname = ''; }
if ($channame eq '' or $channame eq '.') { next; }
my($name, $frequency, $polarization, $source, $symbolrate, $vpid, $apid,
$tpid, $ca, $service_id, $nid, $tid, $rid) = split(/\:/, $_);
if ( $source eq 'T' || $source eq 'C' ) {
if ( length($frequency) > 3) {
$frequency=substr($frequency, 0, length($frequency)-3);
}
if ( length($frequency) > 3) {
$frequency=substr($frequency, 0, length($frequency)-3);
}
}
$data = $nid>0 ? $tid : $frequency;
$channelid = "$source-$nid-$data-$service_id";
# channelid changes for skindesigner
$channelid =~ tr/[A-Z]/[a-z]/;
$searchname = $channame;
$searchname =~ s/\W//g;
$searchname =~ tr/[A-Z]/[a-z]/;
if ($img{$searchname}) {
$cnt++;
$type = $img{$searchname};
$type =~ /(.*).([A-Za-z]{3})/;
$type = $2;
$status = symlink("$logopath/$img{$searchname}","$linkpath/$channelid.$type");
if ($status == 1) { print LOG "$channame => $channelid.$type => $logopath/$img{$searchname}"; }
else { print LOG "$channame => failed"; }
if ($shortname and $shortname ne '') {
$status = symlink("$logopath/$img{$searchname}","$linkpath/$channelid.$type");
if ($status == 1) { print LOG "\t$shortname"; }
else { print LOG "\t$shortname => failed"; }
}
print LOG "\n"; next;
}
elsif ($shortname and $shortname ne '') {
$searchname = $shortname;
$searchname =~ s/\W//g;
$searchname =~ tr/[A-Z]/[a-z]/;
if ($img{$searchname}) {
$cnt++;
$type = $img{$searchname};
$type =~ /(.*).([A-Za-z]{3})/;
$type = $2;
$status = symlink("./../$logopath/$img{$searchname}","$linkpath/$channelid.$type");
if ($status == 1) { print LOG "$channame => $channelid.$type => ./../$logopath/$img{$searchname}"; }
else { print LOG "$shortname => failed"; }
if ($channame and $channame ne '') {
$status = symlink("./../$logopath/$img{$searchname}","$linkpath/$channelid.$type");
if ($status == 1) { print LOG "\t$channame"; }
else { print LOG "\t$channame => failed"; }
}
print LOG "\n"; next;
}
}
}
close(FILE) or die "Can't close file\n";
close(LOG) or die "Can't close file\n";
print $cnt, "\n";