[ANNOUNCE] GraphTFT Theme poetter-0.0.5

#!/usr/bin/perl
use LWP::UserAgent;
use LWP::Simple;
use File::Basename;
 
my $ua = LWP::UserAgent->new;
$ua->timeout(30);


my $baseurl = 'http://www.lyngsat-logo.com/tv/';
my @sections = ( 'num', "a".."z" );


foreach my $section ( @sections ) {
    my $count = 1;
    while ( 1 ) {
        my $response = $ua->get($baseurl. $section. '_'. $count. '.html');
        if ($response->is_success) {
            my $content = $response->content;
            while (  $content =~ m/<img src=(?:'|")(\.\.\/logo.*.jpg)(?:'|")/g ) {
                my $imageurl = $1;
                if ( $imageurl =~ /jpg/ ) {
                    print $imageurl. "\n";
                    my $filename = basename ( $imageurl );
                    $filename =~ s/ard_//;
                    $filename =~ s/_de$//;
                    $filename =~ s/_//g;
                    $filename =~ /^(.)/;
                    my $folder = $1;
                    $folder = '#' unless $folder =~ /[a-z]/;
                    mkdir $folder unless -d $folder;
                    getstore('http://www.lyngsat-logo.com/tv/'. $imageurl, $folder. '/'. $filename );
                }
            }
        }
        else {
            last;
        }
        1;
    } continue { $count++ };
}

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


if (not defined $ARGV[0]) {die "No parameter given!\n"};


my $path = dirname $0;
my $inpathroot = "../hqlogos";
my @inpathes = ( '#', "a".."z" );
my $linkpath = "../columnimages";


my %png = ();
my $cnt1 = 0;
my $cnt2 = 0;
my $cnt3 = 0;
my $cnt4 = 0;
my $cnt0 = 0;


# png folder einlesen
foreach my $inpath ( @inpathes ) {
	my $inpath0 = $inpathroot. '/'. $inpath;
	my @dir = glob "$inpath0/*.png" or die $!;
	foreach my $file (@dir) {
		my $base = basename($file);
		if( $base =~ /(.*)\.png$/) {
			my $key = $1;
			$key =~ s/\W//g;
			$png{$key} = $file;
			$png{$key} = $file if $key =~ s/eins/1/g;
			$png{$key} = $file if $key =~ s/zwei/2/g;
			$png{$key} = $file if $key =~ s/drei/3/g;
			$png{$key} = $file if $key =~ s/vier/4/g;
			$png{$key} = $file if $key =~ s/funf/5/g;
			$png{$key} = $file if $key =~ s/sechs/6/g;
			$png{$key} = $file if $key =~ s/sieben/7/g;
			$png{$key} = $file if $key =~ s/acht/8/g;
			$png{$key} = $file if $key =~ s/neun/9/g;
		}
	}
}


open LOG, ">$path/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>) {
    my ($channame, $shortname);
    my $line = $_;
    $line =~ s/\r|\n//g;
    if ($line =~ /^:/ or $line =~ /^@/ ) { next; }


    my @line = split(/:/, $line);
    $line[0] =~ s/\'//;
    $line[0] =~ s/\///;
    if ($line[0] =~ m/;/) { $line[0] =~ /(.*);.*/; $line[0] = $1 }


    if ($line[0] =~ m/,/) { 
		my @names = split(/,/, $line[0]);
		$channame = $names[0]; $shortname = $names[1];
    }
    else { $channame = $line[0]; $shortname = ''; }


    if ($channame eq '' or $channame eq '.') { next; }

    my $searchname = $channame;
	$searchname =~ tr/äöüÄÖÜ/aouAOU/;
	$searchname =~ s/ß/ss/g;
    $searchname =~ s/\W//g;
    $searchname =~ tr/[A-Z]/[a-z]/;
	my $subsearch1 = $searchname;
	my $subsearch2 = $channame;
	$subsearch2 =~ tr/[A-Z]/[a-z]/ ;

    if ($png{$searchname}) {
		$cnt1++;
		my $status = symlink("$png{$searchname}","$linkpath/$channame.png");
		if ($status == 1)  { print LOG "$channame => ./../logos/$png{$searchname}"; }
		else { print LOG "$channame => failed"; } 
		if ($shortname and $shortname ne '') {
			$status = symlink("$png{$searchname}","$linkpath/$shortname.png");
			if ($status == 1)  { print LOG "\t$shortname"; }
			else { print LOG "\t$shortname => failed"; } 
		}
		print LOG "\n"; next;
    }
	elsif ( ( $subsearch1 =~ s/\W//g or
			$subsearch1 =~ s/eins/1/g or
			$subsearch1 =~ s/zwei/2/g or
			$subsearch1 =~ s/drei/3/g or
			$subsearch1 =~ s/vier/4/g or
			$subsearch1 =~ s/funf/5/g or
			$subsearch1 =~ s/sechs/6/g or
			$subsearch1 =~ s/sieben/7/g or
			$subsearch1 =~ s/acht/8/g or
			$subsearch1 =~ s/neun/9/g or
			$subsearch1 =~ s/fs/fernsehen/g or
			$subsearch1 =~ s/^kika$/kinderkanal/g or
			$subsearch1 =~ s/kanal$//g or
			$subsearch1 =~ s/II/2/ig ) and (
			$png{$subsearch1}	) ) {
		$cnt2++;
		my $status = symlink("$png{$subsearch1}","$linkpath/$channame.png");
		if ($status == 1)  { print LOG "$channame => ./../logos/$png{$subsearch1}"; }
		else { print LOG "$channame => failed to create symlink"; } 
		if ($shortname and $shortname ne '') {
			$status = symlink("$png{$subsearch1}","$linkpath/$shortname.png");
			if ($status == 1)  { print LOG "\t$shortname"; }
			else { print LOG "\t$shortname => failed to create symlink"; } 
		}
		print LOG "\n"; next;
	}
	elsif ( ( $subsearch2 =~ s/\s.*// #or
			 ) and (
			$png{$subsearch2}	) ) {
		$cnt3++;
		#print "$subsearch2\n";
		my $status = symlink("$png{$subsearch2}","$linkpath/$channame.png");
		if ($status == 1)  { print LOG "$channame => ./../logos/$png{$subsearch2}"; }
		else { print LOG "$channame => failed to create symlink"; } 
		if ($shortname and $shortname ne '') {
			$status = symlink("$png{$subsearch2}","$linkpath/$shortname.png");
			if ($status == 1)  { print LOG "\t$shortname"; }
			else { print LOG "\t$shortname => failed to create symlink"; } 
		}
		print LOG "\n"; next;
	}
    elsif ($shortname and $shortname ne '') {

		$searchname = $shortname;
		$searchname =~ s/\W//g;
		$searchname =~ tr/[A-Z]/[a-z]/;

		if ($png{$searchname}) {
			$cnt4++;
			my $status = symlink("$png{$searchname}","$linkpath/$shortname.png");
			if ($status == 1)  { print LOG "$channame => ./../logos/$png{$searchname}"; }
			else { print LOG "$shortname => failed to create symlink"; } 
			if ($channame and $channame ne '') {
			$status = symlink("$png{$searchname}","$linkpath/$shortname.png");
			if ($status == 1)  { print LOG "\t$channame"; }
			else { print LOG "\t$channame => failed to create symlink"; }
			}
			print LOG "\n"; next;
		}
    }
	else {
		print LOG "\t$channame => no icon found\n";
		$cnt0++;
	}


}
close(FILE) or die "Can't close file\n";
close(LOG) or die "Can't close file\n";


print "Direct:     ". $cnt1, "\n";
print "Subsearch1: ". $cnt2, "\n";
print "Subsearch2: ". $cnt3, "\n";
print "Shortnames: ". $cnt4, "\n";
print "-------------------\n";
print "All:        ". ($cnt1+$cnt2+$cnt3+$cnt4). "\n\n";
print "Not found:  ". $cnt0. "\n";