clearlist(); clearlimit(); filemask('.*\.html'); ireaddir('/it/products'); my $html_list = ''; my @found; my @idx = (); my %hashes = (); my $kex = ''; my @dir = split(/\//, '/it/products/sb'); my $mydir = $dir[3]; my $mycountry = $dir[1]; my $getVal = uc('BOOLEAN_'.$mydir); foreach my $file (@FILELIST) { my $vax = ''; my $segment = $FILE_META_INFO{$file}->getValues($getVal); if ($segment ne "true") { next; } $kex = $FILE_META_INFO{$file}->getValues('META_KEYWORDS'); if ($kex eq "NOCIRCLE") { next; } my $checker = $FILE_META_INFO{$file}->getValues('directory'); my @chcker = split(/\//, $checker); my $chk_len = @chcker; if ($chk_len > 5) { next; } if ($mydir eq "enterprise") { $kex = $FILE_META_INFO{$file}->getValues('META_KEYWORDS'); } else { $kex = $mydir; } if ($kex eq "") { next; } my $picname = ''; foreach my $key ($FILE_META_INFO{$file}->keys) { if ($key =~ m/^G02_IMAGE_0_/) { $picname = $FILE_META_INFO{$file}->getValues($key); } } if ($picname eq "" || $picname =~ /\.bmp$/) { next; } $vax .= $picname."XX--XX"; $vax .= $FILE_META_INFO{$file}->getValues('directory')."XX--XX"; $vax .= $FILE_META_INFO{$file}->getValues('filename')."XX--XX"; $vax .= $FILE_META_INFO{$file}->getValues('title')."XX--XX"; $vax .= $FILE_META_INFO{$file}->getValues('PRODUCT_TEASER_TEXT')."XX--FINISHED"; my $int_val = $hashes{$kex}; $hashes{$kex} = $int_val.$vax; } while (($key, $value) = each(%hashes)) { my @komp = split(/XX--FINISHED/, $value); my $my_len = @komp; my $size = 40; my $speed = 1; my $range = 250; my $rotation = 200; if ($my_len <= 3) { $size=70; $range=180; $speed=0;$rotation=0; } elsif ($my_len <=6) { $size=45; $range=210; $speed=1;$rotation=105; } elsif ($my_len <=9) { $size=40; $range=230; $speed=1;$rotation=150; } $html_list .= qq|\n|; foreach my $ds (@komp) { my @daten = split(/XX--XX/, $ds); $daten[3] =~ s/\™//g; $daten[3] =~ s/\&trade;//g; $daten[3] =~ s/\ü/%C3%BC/g; $daten[3] =~ s/\ö/%C3%B6/g; $daten[3] =~ s/\ä/%C3%A4/g; $daten[3] =~ s/\ß/%C3%9F/g; $daten[3] =~ s/\ \%/\%25/g; $daten[4] =~ s/\™//g; $daten[4] =~ s/\&trade;//g; $daten[4] =~ s/\ü/%C3%BC/g; $daten[4] =~ s/\ö/%C3%B6/g; $daten[4] =~ s/\ä/%C3%A4/g; $daten[4] =~ s/\ß/%C3%9F/g; $daten[4] =~ s/\Ü/%C3%9C/g; $daten[4] =~ s/\„¢//g; $daten[4] =~ s/\ \%/\%25/g; my $laenge = length($daten[4]); my $text = $daten[4]; if ($laenge > 120) { $text =~ m/(.{100,119})\s/; $text = $1." ..."; } my @tester = split(/\//, $daten[1]); $html_list .= qq|\n|; $html_list .= qq||; $html_list .= qq|$daten[3]
|; $html_list .= qq|$text|; $html_list .= qq|\n\n|; } $html_list .= qq|\n|; } print $html_list;