frodovdr/channellogos
1
0
Fork 0
mirror of https://github.com/FrodoVDR/channellogos.git synced 2023-10-10 11:36:54 +00:00
Code Issues Releases Wiki Activity

create_channellogos_symlinks.pl from CKone

Browse Source
This commit is contained in:
FrodoVDR
2015-06-08 07:59:02 +02:00
parent 2c67f8f305
commit dc69a621ec
2 changed files with 122 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
debian/install vendored
View File

@@ -1,2 +1,3 @@
logos/* usr/share/vdr/plugins/skindesigner/logos logos/* usr/share/vdr/plugins/skindesigner/logos
logos-light/* usr/share/vdr/plugins/skindesigner/logos-light logos-light/* usr/share/vdr/plugins/skindesigner/logos-light
debian/scripts/* usr/share/vdr/plugins/skindesigner/logos-scripts

121
debian/scripts/create_channellogos_symlinks.pl vendored Executable file
View File

@@ -0,0 +1,121 @@
#!/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";