#!/usr/bin/perl
########################################################################
# Copyright 2004 - 2005 by Monika Leithold (crawlersoft.de)
# Programmierer: mehmetoruc1973@aol.com
# Dieser Copyrighthinweis darf nicht entfernt werden!
# Zivilrechtliche Verfolgung sowie Lizenzentzug sind die Folgen!!!
#########################################################################
#
#
# Änderungen in dieser Datei (außer Design) sind nur nach Rücksprache mit crawlersoft.de
# erlaubt! Ansonsten Lizenzentzug!!!
#
#
#########################################################
use CGI::Carp qw(fatalsToBrowser);
use Time::Local;
use File::Spec;
use Fcntl qw(:flock);
use URI;
use CGI qw(:standard -no_debug);
my $CGI = new CGI;
use XML::Parser;
use XML::Simple;
use LWP::Simple;
require CGI;
require "konfiguration.txt";
require "crawler.txt";
require "verzeichnispfad.txt";
require "modrewrite.txt";
require "amazon.txt";
$timeout="20";
$endung_datei="html";
$yahoostart = 1;

# Nicht verändern
#########################################################

open(READ,$header107)or die "Kann $textdatei nicht öffnen: $!";
@mehmetoruc=<READ>;
close(READ);
$mehmetoruc="@mehmetoruc";
open(READ,$header129)or die "Kann $textdatei nicht öffnen: $!";
@anzeigenbanneroben=<READ>;
close(READ);
$text{'anzeigenbanneroben'}="@anzeigenbanneroben";
open(READ,$header2291)or die "Kann $textdatei nicht öffnen: $!";
@anzeigenbannerrechts=<READ>;
close(READ);
$text{'anzeigenbannerrechts'}="@anzeigenbannerrechts";
open(READ,$header2292)or die "Kann $textdatei nicht öffnen: $!";
@anzeigenbannerunten=<READ>;
close(READ);
$text{'anzeigenbannerunten'}="@anzeigenbannerunten";
open(READ,"header.txt")or die "Kann $textdatei nicht öffnen: $!";
@header=<READ>;
close(READ);
$text{'header'}="@header";
open(READ,"optimierung2.txt")or die "Kann $textdatei nicht öffnen: $!";
@optimierung2=<READ>;
close(READ);
$optimierung2="@optimierung2";
open(READ,$header95)or die "Kann $textdatei nicht öffnen: $!";
@footer=<READ>;
close(READ);
$text{'footer'}="@footer";
open(READ,$header24)or die "Kann $textdatei nicht öffnen: $!";
@kategorien=<READ>;
close(READ);
$kats="@kategorien";
@kats=split(/}{/,$kats);
if($ENV{'QUERY_STRING'} ne ''){
$buffer=$ENV{'QUERY_STRING'};
}else{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
@pairs=split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value)=split(/=/,$pair);
$value =~ tr/+/ /;
$value=~s/.25_.25/._./gi;
$value=~s/.25jj.25/.jj./gi;
$value=~s/.25$mehmetoruc.25/.$mehmetoruc./gi;
$value=~s/%3A/:/gi;
$value=~s/%3F/?/gi;
$value=~s/%3D/=/gi;
$value=~s/%2F/\//gi;
$value=~s/%20/ /;
$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value=~s/%2B/\+/gi;
$value=~s/%28/\(/gi;
$value=~s/%29/\)/gi;
$value=~s/%DF/ß/gi;
$value=~s/%FC/ü/gi;
$value=~s/%F6/ö/gi;
$value=~s/%EB/ë/gi;
$value=~s/%20/ /gi;
$value=~s/%E4/ä/gi;
$value=~s/%D6/Ö/gi;
$value=~s/%DC/Ü/gi;
$value=~s/%CB/Ë/gi;
$value=~s/%C4/Ä/gi;
$value=~s/%A2/¢/gi;
$value=~s/%24/\$/gi;
$value=~s/%2C/,/gi;
$value=~s/%7C/\|/gi;
$value=~s/%26/\&/gi;
$value=~s/%7E/~/gi;
$value=~s/%21/!/gi;
$value=~s/%0A//gi;
$value=~s/%0D//gi;
$value=~s/%7E/~/gi;
$value=~ s/\n/ /gi;
$input=~ s/\n/ /gi;
$f{$name}=$value;
}
if($f{'action'} eq 'kat'){
&Katsuche;
}else{
&Index;
}

# Verzeichnisseite
#########################################################
sub Index{
$ent=0;
foreach $kategorie (@kats){
$kategorie=~s/ /._./gi;
$kategorie=~s/\&/.jj./gi;
$kategorie=~s/\|/.$mehmetoruc./gi;
($hauptkategorie,$unterkategories)=split(/.$mehmetoruc./,$kategorie);
@verzeichnisse=split(/,/,$unterkategories);
foreach $unterkategorie (@verzeichnisse){
open(FILE,"<$datenbank/$datenbankname_$hauptkategorie.$mehmetoruc.$unterkategorie.txt");
flock(FILE,2);
@num=<FILE>;
close(FILE);
$katzaehler=$#num;
$katzaehler++;
$ent=$ent+$katzaehler;
}
open(FILE,"<$datenbank/$datenbankname_$hauptkategorie.txt");
flock(FILE,2);
@num=<FILE>;
close(FILE);
$katzaehler=$#num;
$katzaehler++;
$ent=$ent+$katzaehler;
}
print "Content-Type: text/html; charset=iso-8859-1\n\n";
$|++;
if ($text{'sumaworte'} ne " "){
$optimal=$text{'sumaworte'};
}else{
$optimal=$mehmetoruc;
}
open(FILE,"<$home");
flock(FILE,2);
@datenbank=<FILE>;
close(FILE);
if($eintrag ne 'no'){
$text{'eintraege'} ="$ent";
}
open(READ,$header24)or die "Kann $textdatei nicht öffnen: $!";
@kategorien=<READ>;
close(READ);
$kats="@kategorien";
$text{'kategorien'} ="$#num";
@kategories=split(/}{/,$kats);
$nms=@kategories;
$n3=-1;
$tablewidth="100%";
$text{'katlink'}="<table border=0 cellpadding=0 cellspacing=5 width=\"$tablewidth\">\n";
for ($n4=0;$n4<=$#kategories/$anzahlkategorienspalten;$n4++){
$text{'katlink'}.="<tr>\n";
for($n1=1;$n1<=$anzahlkategorienspalten;$n1++){
$showsubs="";
$n3++;
($kategorie,$unterkategoriekategories)=split(/\|/,@kategories[$n3]);
$katlink=$kategorie;
if($unterkategoriekatlinks eq "1"){
@unterkategories=split(/,/,$unterkategoriekategories);
for($i=1;$i<(3+$anzahlunterkategorien);$i++){
if($#unterkategories+1>=$i){
$unterkategoriehref="$kategorie|@unterkategories[$i-1]";
chomp($unterkategoriehref);
$unterkategoriehref=~s/ /._./gi;
$unterkategoriehref=~s/\&/.jj./gi;
$unterkategoriehref=~s/\|/.$mehmetoruc./gi;
if($modre == 1)
{
$showsubs.="<a href=\"$domain_name/$verzeichnis/$unterkategoriehref.$endung_datei\" title=\"zur Kategorie @unterkategories[$i-1]\" target=_top>\u@unterkategories[$i-1]</a>";
#$showsubs.="@unterkategories[$i-1]";
}
else
{
$showsubs.="<a href=\"$mehmetoruc.pl?action=kat&amp;suche=$unterkategoriehref\" title=\"zur Kategorie @unterkategories[$i-1]\" target=_top>\u@unterkategories[$i-1]</a>";
#$showsubs.="@unterkategories[$i-1]";
}
if(($i<$#unterkategories+1)&&($i<(2+$anzahlunterkategorien))){
$showsubs.="<br>";
}else{
if($#unterkategories>(1+$anzahlunterkategorien)){
$showsubs.=" ...";
}
}
}
}
}else{
$showsubs="<br><br>";
}
chomp($katlink);
$katlink=~s/ /._./gi;
$katlink=~s/\&/.jj./gi;
$katlink=~s/\|/.$mehmetoruc./gi;
$weite=100/$anzahlkategorienspalten;
if($ordneranzeigen eq "ja"){
if($modre == 1){
$text{'katlink'}.="<td height=$kathoehe width=\"$weite%\" valign=top><img src=\"$domain_name/images/aktenkoffer.gif\" alt=\"\"> <a href=\"$domain_name/$verzeichnis/$katlink.$endung_datei\" title=\"zur Kategorie $kategorie\" target=_top><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\"><b>$kategorie</b></font></a><br><font color=\"$schriftfarbe\" class=q size=\"1\" face=\"$schriftart\">$showsubs</font></td> \n";
}else{
$text{'katlink'}.="<td height=$kathoehe width=\"$weite%\" valign=top><img src=\"$domain_name/images/aktenkoffer.gif\" alt=\"\"> <a href=\"$mehmetoruc.pl?action=kat&amp;suche=$katlink\" title=\"zur Kategorie $kategorie\" target=_top><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"><b>$kategorie</b></font></a><br><font color=\"$schriftfarbe\" class=q size=\"1\" face=\"$schriftart\">$showsubs</font></td> \n";
}
}else{
if($modre == 1){
$text{'katlink'}.="<td height=$kathoehe width=\"$weite%\" valign=top><a href=\"$domain_name/$verzeichnis/$katlink.$endung_datei\" title=\"zur Kategorie $kategorie\" target=_top><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"><b>$kategorie</b></font></a><br><font color=\"$schriftfarbe\" class=q size=\"1\" face=\"$schriftart\">$showsubs</font></td> \n";
}else{
$text{'katlink'}.="<td height=$kathoehe width=\"$weite%\" valign=top><a href=\"$mehmetoruc.pl?action=kat&amp;suche=$katlink\" title=\"zur Kategorie $kategorie\" target=_top><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"><b>$kategorie</b></font></a><br><font color=\"$schriftfarbe\" class=q size=\"1\" face=\"$schriftart\">$showsubs</font></td> \n";
}
}
}
}
$text{'katlink'}.="</tr></table>\n";
foreach $line (@datenbank){
chomp($line);
$line=~s/<!--#category-->/$text{'katlink'}/gi;
$line=~s/<!--#eintraege-->/$ent /gi;
$line=~s/<!--#kategorien-->/$#num/gi;
print "$line\n";
}
}

# Kategoriensuche
#########################################################
sub Katsuche{
my $second=my $minute=my $hour=my $dayofmonth=my $month=my $year=my $weekday=my $dayofyear=my $isdst="";
($second,$minute,$hour,$dayofmonth,$month,$year,$weekday,$dayofyear,$isdst)=localtime(time);
if($dayofmonth<10){$dayofmonth="0$dayofmonth";};
my $realmonth=$month+1;
if($realmonth<10){$realmonth="0$realmonth";};
my $realyear=$year+1900;
$realyear1=$realyear;
$dayofmonth1=$dayofmonth;
$realmonth1=$realmonth;
$kategorie=$f{'suche'};
$kategoriestat=$f{'suche'};
$erg=$f{'erg'};
$katlink=$kategorie;
$kategorie=~s/._./ /gi;
$kategorie=~s/.jj./\&/gi;
$kategorie=~s/.$mehmetoruc./\|/gi;
######################################################
($DAY, $MONTH, $YEAR, $HOUR, $MINUTE) = (localtime)[3,4,5,2,1];
$date = sprintf "%04d.%02d.%02d", $YEAR+1900, $MONTH+1, $DAY;
$kategoriestat =~ s/(&[a-zA-Z0-9#]*?;)/&esc2char($1)/eg;
open QUERY, ">>log/$date";
print QUERY "$kategoriestat\n";
close(QUERY);
######################################################
if($kategorie=~/\|/){
$isunterkategorie="yes";
}
@kategories=split(/}{/,$kats);
$|++;
$tkategorie=$kategorie;
$tkategorie22=$kategorie;
$basekategorie=$kategorie;
$tkategorie=~s/\|/ /gi;
$tkategorie22=~s/\|/ /gi;
($letztekategorie,$diesekategorie)=split(/\|/,$kategorie);
($letztekategoriehref,$diesekategoriehref)=split(/.$mehmetoruc./,$katlink);
$diesekategorie11="$diesekategorie";
if ($text{'sumaworte'} ne " "){
$optimal=$text{'sumaworte'};
}else{
$optimal=$mehmetoruc;
}
$basekategorie=~s/\|/.$mehmetoruc./gi;
print "Content-Type: text/html; charset=iso-8859-1\n\n";
print <<START;
<!doctype html public "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<title>\u$tkategorie $optimal $optimierung2</title>
<meta name="description" content="$tkategorie $optimal $optimierung2">
<meta name="keywords" content="$tkategorie, $optimal">
<meta name="robots" content="index, follow">
<meta name="language" content="de, Deutsch, German, com, at, ch">
<meta name="page-topic" content="$tkategorie, $optimal">
<meta name="page-type" content="$tkategorie, $optimal">
<meta name="audience" content="all">
<meta name="author" content="$seitenname">
<meta name="copyright" content="$seitenname">
<meta name="distribution" content="global">
<meta name="revisit-after" content="4">
<link rel=stylesheet href="$domain_name/design.css" type="text/css">
<script language="JavaScript" type="text/javascript">
<!--
// aus fremden Frameset befreien
if (top.frames.length > 0)
  {
  top.location.href = self.location.href;
  }
// -->
</script>
</head>
START
open(FILE,"<header.txt");
flock(FILE,2);
@datenbank=<FILE>;
close(FILE);
foreach $line (@datenbank){
chomp($line);
$line=~s/<!--#footer-->/$text{'footer'}/gi;
$line=~s/<!--#domain_name-->/$domain_name/gi;
$line=~s/<!--#tuner-->/$mehmetoruc/gi;
$line=~s/<!--#mehmetoruc2-->/$tkategorie22/gi;
$line=~s/<!--#mehmetoruc-->/$tkategorie/gi;
$line=~s/<!--#mehmetoruc11-->/Kategorie » /gi;
$line=~s/<!--#category-->/$text{'katlink'}/gi;
$line=~s/<!--#kategorien-->/$#num/gi;
print "$line\n";
}
print "<div align=center><table cellSpacing=\"0\" cellpadding=\"1\" class=\"balkenfarbe\" width=\"750\" border=\"0\"><tr><td width=11>&nbsp;</td><td>";
if($isunterkategorie ne "yes"){
if ($modre == 1){
print "<div><a href=\"http://www.$seitenname/\"><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\" class=q>Startseite</font></a><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"> » </font><a accesskey=\"k\" href=\"$domain_name/$verzeichnis/\"><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\" class=q>\u$verzeichnis</font></a><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"> » </font><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\" class=q><b>\u$kategorie</b></font></div>";
}else{
print "<div><a href=\"http://www.$seitenname/\"><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\" class=q>Startseite</font></a><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"> » </font><a accesskey=\"k\" href=\"$domain_name/cgi-bin/$mehmetoruc.pl\"><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\" class=q>\u$verzeichnis</font></a><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"> » </font><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\" class=q><b>\u$kategorie</b></font></div>";
}
$remotehref=$kategorie;
}else{
($letztekategorie,$diesekategorie)=split(/\|/,$kategorie);
($letztekategoriehref,$diesekategoriehref)=split(/.$mehmetoruc./,$katlink);
if($modre == 1){
print "<div><a href=\"http://www.$seitenname/\"><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\" class=q>Startseite</font></a><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"> » </font><a accesskey=\"k\" href=\"$domain_name/$verzeichnis/\"><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\" class=q>\u$verzeichnis</font></a><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"> » </font><a href=\"$domain_name/$verzeichnis/$letztekategoriehref.$endung_datei\"><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\" class=q>\u$letztekategorie</font></a><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"> » </font><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"><b>\u$diesekategorie</b></font></div>";
}else{
print "<div><a href=\"http://www.$seitenname/\"><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\" class=q>Startseite</font></a><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"> » </font><a accesskey=\"k\" href=\"$domain_name/cgi-bin/$mehmetoruc.pl\"><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\">\u$verzeichnis</font></a><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"> » </font><a accesskey=\"k\" href=\"$mehmetoruc.pl?action=kat&amp;suche=$letztekategoriehref\"><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\" class=q>\u$letztekategorie</font></a><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"> » </font><font color=\"$schriftfarbe\" size=\"$titelgroesse\" face=\"$schriftart\"><b>\u$diesekategorie</b></font></div>";
}
$remotehref=$diesekategorie;
$back= $text{'sumaworte'};
}
print "</td></tr></table><table cellSpacing=\"0\" cellPadding=\"0\" width=\"750\" class=\"headerfarbe\" border=\"0\"><tr><td width=\"750\"></td></tr></table>";
#print "<table cellSpacing=\"0\" bgcolor=\"$feldhintergrundfarbe\" cellPadding=\"9\" width=\"100%\" align=\"left\">";
#print "<tr><td width=\"100%\" height=\"18\"></td></tr></table>";
$katlink=~s/ /._./gi;
$katink=~s/\&/.jj./gi;
open(FILE,"<$datenbank/$datenbankname_$katlink.txt");
flock(FILE,2);
@datenbank=<FILE>;
close(FILE);
@datenbank=sort{$b<=>$a}(@datenbank);
sort(@datenbank);
$c1=-1;
$webcount=$#datenbank+1;
$text{'websites'}=~s/##/$webcount/gi;
unshift(@datenbank,$text{'websites'});
if ($isunterkategorie ne 'yes'){
$unterkategoriekatfound=0;
foreach $datenteil (@kategories){
$c1++;
($ukat,$unterkategoriekats)=split(/\|/,$datenteil);
chomp($ukat);
if($ukat eq $kategorie){
@unterkategorien=split(/,/,$unterkategoriekats);
for($t=0;$t<=$#unterkategorien;$t=$t+3){
$unterkategoriehref1=@unterkategorien[$t];
$unterkategoriehref1=~s/ /._./gi;
$unterkategoriehref1=~s/\&/.jj./gi;
$unterkategoriehref1=~s/\|/.$mehmetoruc./gi;
open(FILE,"<$datenbank/$datenbankname_$katlink.$mehmetoruc.$unterkategoriehref1.txt");
flock(FILE,2);
@subnum1=<FILE>;
close(FILE);
$subnum1=$#subnum1;
$subnum1++;
$subtxt1=$text{'subnum'};
$subtxt1=~s/##/$subnum1/gi;
$unterkategoriehref2=@unterkategorien[$t+1];
$unterkategoriehref2=~s/ /._./gi;
$unterkategoriehref2=~s/\&/.jj./gi;
$unterkategoriehref2=~s/\|/.$mehmetoruc./gi;
open(FILE,"<$datenbank/$datenbankname_$katlink.$mehmetoruc.$unterkategoriehref2.txt");
flock(FILE,2);
@subnum2=<FILE>;
close(FILE);
$subnum2=$#subnum2;
$subnum2++;
$subtxt2=$text{'subnum'};
$subtxt2=~s/##/$subnum2/gi;
$unterkategoriehref3=@unterkategorien[$t+2];
$unterkategoriehref3=~s/ /._./gi;
$unterkategoriehref3=~s/\&/.jj./gi;
$unterkategoriehref3=~s/\|/.$mehmetoruc./gi;
open(FILE,"<$datenbank/$datenbankname_$katlink.$mehmetoruc.$unterkategoriehref3.txt");
flock(FILE,2);
@subnum3=<FILE>;
close(FILE);
$subnum3=$#subnum3;
$subnum3++;
$subtxt3=$text{'subnum'};
$subtxt3=~s/##/$subnum3/gi;
$unterkategoriekatfound++;
if ($specialcrawler eq "off"){
$subtxt1="";
$subtxt2="";
$subtxt3="";
}
@unterkategorienneu[$t]="@unterkategorien[$t]";
if((length(@unterkategorienneu[$t])>13)&&(length(@unterkategorienneu[$t+3])!=13)){
@unterkategorienneu[$t]=substr "@unterkategorienneu[$t]","",13;
@unterkategorienneu[$t].="...";
}
@unterkategorienneu[$t+1]="@unterkategorien[$t+1]";
if((length(@unterkategorienneu[$t+1])>13)&&(length(@unterkategorienneu[$t+3])!=13)){
@unterkategorienneu[$t+1]=substr "@unterkategorienneu[$t+1]","",13;
@unterkategorienneu[$t+1].="...";
}
@unterkategorienneu[$t+2]="@unterkategorien[$t+2]";
if((length(@unterkategorienneu[$t+2])>13)&&(length(@unterkategorienneu[$t+3])!=13)){
@unterkategorienneu[$t+2]=substr "@unterkategorienneu[$t+2]","",13;
@unterkategorienneu[$t+2].="...";
}
if($modre == 1){
$sb="<div align=\"left\"><table cellpadding=\"0\" bgcolor=\"$feldhintergrundfarbe\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"13\"></td><td><table align=\"left\" border=0 width=\"100%\" bgcolor=\"$feldhintergrundfarbe\" cellpadding=0 cellspacing=0><tr><td align=\"left\" width=150><div><a href=\"$domain_name/$verzeichnis/$katlink.$mehmetoruc.$unterkategoriehref1.$endung_datei\" title=\"$kategorie @unterkategorien[$t]\"><font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">\u@unterkategorienneu[$t]</font></a> <font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">$subtxt1</font><br><font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">\u@unterkategorien[$t]</font></div></td><td align=\"left\"width=150>";
}else{
$sb="<div align=\"left\"><table cellpadding=\"0\" bgcolor=\"$feldhintergrundfarbe\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"13\"></td><td><table align=\"left\" border=0 width=\"100%\" bgcolor=\"$feldhintergrundfarbe\" cellpadding=0 cellspacing=0><tr><td align=\"left\" width=150><div><a href=\"$mehmetoruc.pl?action=kat&amp;suche=$katlink.$mehmetoruc.$unterkategoriehref1\" title=\"$kategorie @unterkategorien[$t]\"><font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">\u@unterkategorienneu[$t]</font></a> <font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">$subtxt1</font><br><font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">\u@unterkategorien[$t]</font></div></td><td align=\"left\" width=150>";
}
if(@unterkategorien[$t+1] ne ""){
if($modre == 1){
$sb.="<div align=\"left\"><a href=\"$domain_name/$verzeichnis/$katlink.$mehmetoruc.$unterkategoriehref2.$endung_datei\" title=\"$kategorie @unterkategorien[$t+1]\"><font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">\u@unterkategorienneu[$t+1]</font></a> <font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">$subtxt2</font><br><font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">\u@unterkategorien[$t+1]</font></div></td><td align=\"left\" width=150>";
}else{
$sb.="<div align=\"left\"><a href=\"$mehmetoruc.pl?action=kat&amp;suche=$katlink.$mehmetoruc.$unterkategoriehref2\" title=\"$kategorie @unterkategorien[$t+1]\"><font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">\u@unterkategorienneu[$t+1]</font></a> <font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">$subtxt2</font><br><font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">\u@unterkategorien[$t+1]</font></div></td><td align=\"left\" width=150>";
}
$unterkategoriekatfound++;
}
if(@unterkategorien[$t+2] ne ""){
if($modre == 1){
$sb.="<div align=\"left\"><a href=\"$domain_name/$verzeichnis/$katlink.$mehmetoruc.$unterkategoriehref3.$endung_datei\" title=\"$kategorie @unterkategorien[$t+2]\"><font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">\u@unterkategorienneu[$t+2]</font></a> <font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">$subtxt3</font><br><font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">\u@unterkategorien[$t+2]</font></div></td>";
}else{
$sb.="<div align=\"left\"><a href=\"$mehmetoruc.pl?action=kat&amp;suche=$katlink.$mehmetoruc.$unterkategoriehref3\" title=\"$kategorie @unterkategorien[$t+2]\"><font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">\u@unterkategorienneu[$t+2]</font></a> <font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">$subtxt3</font><br><font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\">\u@unterkategorien[$t+2]</font></div></td>";
}
$unterkategoriekatfound++;
}
$sb.="</td></tr></table></td></tr></table></div>\n";
push(@subdatenbank,$sb);
}
}
}
if($unterkategoriekatfound==0){
}else{
@datenbank=(@subdatenbank,@datenbank);
}
$text{'unterkategorien'}=~s/##/$unterkategoriekatfound/gi;
unshift(@datenbank,$text{'unterkategorien'});
}
if(($erg<0)||($erg eq "")){
$erg=0;
}
if($erg>$#datenbank){
$erg=$#datenbank;
}
$a2=$erg+$anzahlergebnissaufkatalogseite;
$a1=$erg;
if($a1<0){
$a1=0;
}

$sitefound=0;
print "<table cellSpacing=\"0\" bgcolor=\"$feldhintergrundfarbe\" cellPadding=\"0\" width=\"750\" align=\"center\"><tr><td valign=top align=\"center\"><table cellSpacing=\"0\" cellPadding=\"0\" width=\"100%\" align=\"center\"><tr><td width=\"10\"></td><td valign=top align=\"left\"><br><div>";
print "$text{'anzeigenbanneroben'}";
$kwd1=$diesekategorie; $kwd1=~ s/ /+/g;
$kwd2=$back; $kwd2=~ s/ /+/g;
$diesekategorie2=$diesekategorie;
$letztekategorie2=$letztekategorie;
$diesekategorie2=~s/ /+/gi;
$letztekategorie2=~s/ /+/gi;
if($diesekategorie2 eq ''){
print "</div></td></tr></table><br><table cellSpacing=\"0\" cellPadding=\"0\" width=\"100%\" class=\"headerfarbe\" border=\"0\"><tr><td width=\"100%\"></td></tr></table><br><table cellSpacing=\"8\" cellPadding=\"1\" align=\"center\" width=\"100%\"><tr><td height=\"10\" width=\"100%\"><p align=\"left\"><h2><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\">&nbsp;<u>\u$letztekategorie-\u$verzeichnis:</u></font></h2></td></tr></table><table cellSpacing=\"0\" cellPadding=\"0\" width=\"100%\" class=\"balkenfarbe\" border=\"0\"><tr><td width=\"100%\"></td></tr></table><br>";
}else{
print "</div></td></tr></table><br><table cellSpacing=\"0\" cellPadding=\"0\" width=\"100%\" class=\"headerfarbe\" border=\"0\"><tr><td width=\"100%\"></td></tr></table><br><table cellSpacing=\"8\" cellPadding=\"1\" width=\"100%\" align=\"center\"><tr><td height=\"10\" width=\"100%\"><p align=\"left\"><h2><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\">&nbsp;<u>\u$letztekategorie-\u$diesekategorie:</u></font></h2></td></tr></table>";
if(($erg>0)||($#datenbank>$anzahlergebnissaufkatalogseite)){
print "<table cellSpacing=\"0\" cellPadding=\"0\" width=\"100%\" class=\"balkenfarbe\" border=\"0\"><tr><td width=\"100%\"></td></tr></table><br>";
}else{
}
}
if($#datenbank>$anzahlergebnissaufkatalogseite){
$pg=0;
for($i=0;$i<=$#datenbank;$i=$i+$anzahlergebnissaufkatalogseite){
$pg++;
if($pg-1==int($erg/$anzahlergebnissaufkatalogseite)){
$last=$i-$anzahlergebnissaufkatalogseite;
$next=$i+$anzahlergebnissaufkatalogseite;
}else{
}
}
print "<table cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr>\n";
if(int($erg/$anzahlergebnissaufkatalogseite)!=0){
if($modre == 1){
if($last eq "0"){
print "<td width=\"50%\" height=\"10\" align=left>&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"$domain_name/$verzeichnis/$katlink.$endung_datei\" style=\"text-decoration: none\"><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\" class=q><<< zurück</font></a></td>";
}else{
print "<td width=\"50%\" height=\"10\" align=left>&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"$domain_name/$verzeichnis/$katlink-$last.htm\" style=\"text-decoration: none\"><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\" class=q><<< zurück</font></a></td>";
}
}else{
print "<td width=\"50%\" height=\"10\" align=left>&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"$mehmetoruc.pl?action=kat&amp;suche=$katlink&erg=$last\" style=\"text-decoration: none\"><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\" class=q><<< zurück</font></a></td>";
}
}
if($erg+$anzahlergebnissaufkatalogseite<=$#datenbank){
if($modre == 1){
print "<td width=\"50%\" height=\"10\" align=right><a href=\"$domain_name/$verzeichnis/$katlink-$next.htm\" style=\"text-decoration: none\"><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\" class=q>weitere Links zu <i>$tkategorie</i></font></a></td>";
}else{
print "<td width=\"50%\" height=\"10\" align=right><a href=\"$mehmetoruc.pl?action=kat&amp;suche=$katlink&erg=$next\" style=\"text-decoration: none\"><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\" class=q>weitere Links zu <i>$tkategorie</i></font></a></td>";
}
}
if($erg>0){
if($diesekategorie2 eq ''){
print "</tr></table>\n";
}else{
print "</tr></table><br>\n";
}
}else{
print "</tr></table>\n";
if($diesekategorie2 eq ''){
print "<br><table cellSpacing=\"0\" cellPadding=\"0\" width=\"100%\" class=\"balkenfarbe\" border=\"0\"><tr><td width=\"100%\"></td></tr></table><br>";
}else{
print "<br>";
}
}
}
for($i=$a1;$i<$a2;$i++){
if(@datenbank[$i]=~/}{/gi){
($ranking,$fat,$color,$f{'email'},$url,$stitle,$image,$desc,$keys,$kat,$realyear,$realmonth,$dayofmonth,$laufyear,$laufmonth,$laufday)=split(/}{/,@datenbank[$i]);
$fat=~s/%(..)/pack("c",hex($1))/ge;
$color=~s/%(..)/pack("c",hex($1))/ge;
$email=~s/%(..)/pack("c",hex($1))/ge;
$url=~s/%(..)/pack("c",hex($1))/ge;
$stitle=~s/%(..)/pack("c",hex($1))/ge;
$desc=~s/%(..)/pack("c",hex($1))/ge;
$image=~s/%(..)/pack("c",hex($1))/ge;
$ranking=~s/%(..)/pack("c",hex($1))/ge;
$keys=~s/%(..)/pack("c",hex($1))/ge;
$realyear=~s/%(..)/pack("c",hex($1))/ge;
$realmonth=~s/%(..)/pack("c",hex($1))/ge;
$dayofmonth=~s/%(..)/pack("c",hex($1))/ge;
$laufyear=~s/%(..)/pack("c",hex($1))/ge;
$laufmonth=~s/%(..)/pack("c",hex($1))/ge;
$laufday=~s/%(..)/pack("c",hex($1))/ge;
if(length($stitle)>$titellaenge){
$stitle=substr "$stitle","",$titellaenge;
$stitle.="";
}
if(length($stitle)<$titellaenge+1){
$stitle=substr "$stitle","",$titellaenge;
$stitle.="";
}
if(length($url)>$urllaenge){
$lurl=substr "$url","",$urllaenge;
$lurl.="...";
}else{
$lurl=$url;
}
$surl=$url;
$surlm="$surl";
$url=~s/:/%3A/gi;
$url=~s/=/%3D/gi;
$url=~s/\//%2F/gi;
$url=~s/\?/%3F/gi;
$url=~s/\|/%7C/gi;
if(length($desc)>=$beschreibungslaenge){
$desc=substr "$desc","",$beschreibungslaenge;
$desc.="...";
}
$sitefound++;
$kwd1=$diesekategorie; $kwd1=~ s/ /+/g;
$kwd2=$back; $kwd2=~ s/ /+/g;
$dayofmonthneu=$dayofmonth;
$realmonthneu=$realmonth;
$realyearneu=$realyear;
if(($kwd1 eq "")||($kwd2 eq "")){
#print "<br><table cellSpacing=\"0\" cellPadding=\"0\" width=\"100%\" class=\"balkenfarbe\" border=\"0\"><tr><td width=\"100%\"></td></tr></table>";
print "<table cellSpacing=\"0\" cellPadding=\"0\" width=\"100%\"><tr><td width=\"100%\">&nbsp;</td></tr></table>";
&Resultkat;
}else{
#print "<table cellSpacing=\"0\" cellPadding=\"0\" width=\"100%\" class=\"balkenfarbe\" border=\"0\"><tr><td width=\"100%\"></td></tr></table><br>";
&Result;
}
}else{
print "@datenbank[$i]";
}
}
if($sitefound==0){
}
$kwd1=$diesekategorie; $kwd1=~ s/ /+/g;
$kwd2=$back; $kwd2=~ s/ /+/g;
$dayofmonthneu=$dayofmonth;
$realmonthneu=$realmonth;
$realyearneu=$realyear;
if(($kwd1 eq "")||($kwd2 eq "")){
print "<br>";
&Resultgog2;
}else{
&Resultgog;
}
##########################AMAZON####################################
if ($amazoncrawler1 eq "on"){
if (($erg eq "0")||($erg eq "")){
#require 'get.pl';
my $q = CGI->new;
open (FILE, "$termsfile");
my @terms = <FILE>;
close(FILE);
$count = @terms;
$randnum = rand($count);
$roundednum = int($randnum);
$results = "";
my $searchstring = $terms[$roundednum]; chomp($searchstring);
if ($diesekategorie eq ""){
$searchstring="$letztekategorie";
}else{
$searchstring="$diesekategorie";
}
$searchstring=~s/\+/\%20/gi;
$searchstring=~s/ /\%20/gi;
$searchstring=~s/\_/\%20/gi;
$searchstring=~s/\.de//gi;
$searchstring=~s/\.com//gi;
$searchstring=~s/\.ch//gi;
$searchstring=~s/\.at//gi;
$searchstring=~s/\.info//gi;
$searchstring=~s/\.net//gi;
$searchstring=~s/\.org//gi;
$searchstring=~s/\[//gi;
$searchstring=~s/\]//gi;
$searchstring=~s/\(//gi;
$searchstring=~s/\)//gi;
$searchstring=~s/\///gi;
$searchstring=~s/\.nl//gi;
$searchstring=~s/\./\%20/gi;
$url = "http://xml.amazon.de/onca/xml3?t=$amazonid&dev-t=D1PE754C56I3PM&KeywordSearch=$searchstring&mode=$produktecrawler1&type=lite&page=1&f=xml&locale=de";
$content = get($url);
$content =~ s/\n|\r/ /g;
$content=~s/¼//gi;
$content =~ /<ProductInfo (.*?)>(.*?)<\/ProductInfo>/;
my $blah = $1;
my $results = $2;
my $countr = $content;
$countr =~ /<TotalResults>(.*)<\/TotalResults>/;
my $showrc = $1;
$x = 1;
while ($results =~ m/<Details url=\"(.*?)\">(.*?)<\/Details>/g) {
unless ($x > $ergebnisseamazoncrawler1) {
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=13></td><td><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">";
my $url = $1;
my $details = $2;
my $productname = $details;
$productname =~ /<ProductName>(.*)<\/ProductName>/;
$productname = $1;
$productname2 = $1;
my $length = length($productname);
$productname =~ m/(.{1,75})/;
$productname = $1;
my $newlength = length($productname);
$showpn = "$productname";
$showpn =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
my $manuf = $details;
$manuf =~ /<Manufacturer>(.*)<\/Manufacturer>/;
$manuf = $1;
$manuf =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
my $released = $details;
$released =~ /<ReleaseDate>(.*)<\/ReleaseDate>/;
$released = $1;
$released =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
my $price = $details;
$price =~ /<OurPrice>(.*)<\/OurPrice>/;
$price = $1;
$showpneu=$showpn;
$showpneu=~s/\[//gi;
$showpneu=~s/\]//gi;
$showpneu=~s/\(//gi;
$showpneu=~s/\)//gi;
$showpneu=~s/\//_/gi;
$showpneu=~s/\.//gi;
$showpneu=~s/\://gi;
$showpneu=~s/\,/_/gi;
$showpneu=~s/\?//gi;
$showpneu=~s/\'//gi;
$showpneu=~s/\!//gi;
$showpneu=~s/\ /_/gi;
$showpneu=~s/ä/ae/gi;
$showpneu=~s/ö/oe/gi;
$showpneu=~s/ü/ue/gi;
$showpneu=~s/Ä/Ae/gi;
$showpneu=~s/Ö/Oe/gi;
$showpneu=~s/Ü/Ue/gi;
$showpneu=~s/\ /_/gi;
$urlm="http://www.amazon.de/";
print <<HTML;
<tr><td class=amazonhintergrundfarbe><div><a onMouseOver=\"window.status='$urlm'; return true;\" onMouseOut=\"window.status=''; return true;\" href='$url' target=_blank title="$showpn"><font size=$titelgroesse color="$titelfarbe" face="$schriftart"><b>$showpn</b></font></a></div><div><font size=1 color="$schriftfarbe" face="$schriftart">
Titel: $showpn <br>
Verlag/Autor/Vertrieb: $manuf<br>
Datum Veröffentlichung: $released<br>
Preis: $price <br>
</font><font color=\"$urlfarbe\" size=\"1\" face=\"$schriftart\">$urlm</font></div>
</td></tr>
HTML
$x++;
print "</table></td></tr></table><br>";
}
}
if ($results eq ""){
print "";
}else{
print "";
}
}else{
print "<br>";
}
}else{
print "";
}
##########################AMAZON2####################################
if ($amazoncrawler2 eq "on"){
if (($erg eq "0")||($erg eq "")){
#require 'get.pl';
my $q = CGI->new;
open (FILE, "$termsfile");
my @terms = <FILE>;
close(FILE);
$count = @terms;
$randnum = rand($count);
$roundednum = int($randnum);
$results = "";
my $searchstring = $terms[$roundednum]; chomp($searchstring);
if ($diesekategorie eq ""){
$searchstring="$letztekategorie";
}else{
$searchstring="$diesekategorie";
}
$searchstring=~s/\+/\%20/gi;
$searchstring=~s/ /\%20/gi;
$searchstring=~s/\_/\%20/gi;
$searchstring=~s/\.de//gi;
$searchstring=~s/\.com//gi;
$searchstring=~s/\.ch//gi;
$searchstring=~s/\.at//gi;
$searchstring=~s/\.info//gi;
$searchstring=~s/\.net//gi;
$searchstring=~s/\.org//gi;
$searchstring=~s/\[//gi;
$searchstring=~s/\]//gi;
$searchstring=~s/\(//gi;
$searchstring=~s/\)//gi;
$searchstring=~s/\///gi;
$searchstring=~s/\.nl//gi;
$searchstring=~s/\./\%20/gi;
$url = "http://xml.amazon.de/onca/xml3?t=$amazonid&dev-t=D1PE754C56I3PM&KeywordSearch=$searchstring&mode=$produktecrawler2&type=lite&page=1&f=xml&locale=de";
$content = get($url);
$content =~ s/\n|\r/ /g;
$content=~s/¼//gi;
$content =~ /<ProductInfo (.*?)>(.*?)<\/ProductInfo>/;
my $blah = $1;
my $results = $2;
my $countr = $content;
$countr =~ /<TotalResults>(.*)<\/TotalResults>/;
my $showrc = $1;
$x = 1;
while ($results =~ m/<Details url=\"(.*?)\">(.*?)<\/Details>/g) {
unless ($x > $ergebnisseamazoncrawler1) {
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=13></td><td><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">";
my $url = $1;
my $details = $2;
my $productname = $details;
$productname =~ /<ProductName>(.*)<\/ProductName>/;
$productname = $1;
$productname2 = $1;
my $length = length($productname);
$productname =~ m/(.{1,75})/;
$productname = $1;
my $newlength = length($productname);
$showpn = "$productname";
$showpn =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
my $manuf = $details;
$manuf =~ /<Manufacturer>(.*)<\/Manufacturer>/;
$manuf = $1;
$manuf =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
my $released = $details;
$released =~ /<ReleaseDate>(.*)<\/ReleaseDate>/;
$released = $1;
$released =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
my $price = $details;
$price =~ /<OurPrice>(.*)<\/OurPrice>/;
$price = $1;
$showpneu=$showpn;
$showpneu=~s/\[//gi;
$showpneu=~s/\]//gi;
$showpneu=~s/\(//gi;
$showpneu=~s/\)//gi;
$showpneu=~s/\//_/gi;
$showpneu=~s/\.//gi;
$showpneu=~s/\://gi;
$showpneu=~s/\,/_/gi;
$showpneu=~s/\?//gi;
$showpneu=~s/\'//gi;
$showpneu=~s/\!//gi;
$showpneu=~s/\ /_/gi;
$showpneu=~s/ä/ae/gi;
$showpneu=~s/ö/oe/gi;
$showpneu=~s/ü/ue/gi;
$showpneu=~s/Ä/Ae/gi;
$showpneu=~s/Ö/Oe/gi;
$showpneu=~s/Ü/Ue/gi;
$showpneu=~s/\ /_/gi;
$urlm="http://www.amazon.de/";
print <<HTML;
<tr><td class=amazonhintergrundfarbe><div><a onMouseOver=\"window.status='$urlm'; return true;\" onMouseOut=\"window.status=''; return true;\" href='$url' target=_blank title="$showpn"><font size=$titelgroesse color="$titelfarbe" face="$schriftart"><b>$showpn</b></font></a></div><div><font size=1 color="$schriftfarbe" face="$schriftart">
Titel: $showpn <br>
Verlag/Autor/Vertrieb: $manuf<br>
Datum Veröffentlichung: $released<br>
Preis: $price <br>
</font><font color=\"$urlfarbe\" size=\"1\" face=\"$schriftart\">$urlm</font></div>
</td></tr>
HTML
$x++;
print "</table></td></tr></table><br>";
}
}
if ($results eq ""){
print "";
}else{
print "";
}
}else{
print "<br>";
}
}else{
print "";
}
########################## AMAZON2 ####################################
print "<table cellSpacing=\"0\" cellPadding=\"0\" width=\"100%\" class=\"headerfarbe\" border=\"0\"><tr><td width=\"100%\"></td></tr></table><br>";
print "<table width=\"100%\"><tr><td width=8></td><td align=left><div>$text{'anzeigenbannerunten'}</div></td></tr></table><br>";
print "<table cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>\n";
if($#datenbank>$anzahlergebnissaufkatalogseite){
$pg=0;
for($i=0;$i<=$#datenbank;$i=$i+$anzahlergebnissaufkatalogseite){
$pg++;
if($pg-1==int($erg/$anzahlergebnissaufkatalogseite)){
$last=$i-$anzahlergebnissaufkatalogseite;
$next=$i+$anzahlergebnissaufkatalogseite;
}else{
}
}
if(int($erg/$anzahlergebnissaufkatalogseite)!=0){
if($modre == 1){
if($last eq "0"){
print "<td width=\"50%\" height=\"10\" align=left>&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"$domain_name/$verzeichnis/$katlink.$endung_datei\" style=\"text-decoration: none\"><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\" class=q><<< zurück</font></a><br><br></td>";
}else{
print "<td width=\"50%\" height=\"10\" align=left>&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"$domain_name/$verzeichnis/$katlink-$last.htm\" style=\"text-decoration: none\"><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\" class=q><<< zurück</font></a><br><br></td>";
}
}else{
print "<td width=\"50%\" height=\"10\" align=left>&nbsp;&nbsp;&nbsp;&nbsp;<a href=\"$mehmetoruc.pl?action=kat&amp;suche=$katlink&erg=$last\" style=\"text-decoration: none\"><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\" class=q><<< zurück</font></a><br><br></td>";
}
}
if($erg+$anzahlergebnissaufkatalogseite<=$#datenbank){
if($modre == 1){
print "<td width=\"50%\" height=\"10\" align=right><a href=\"$domain_name/$verzeichnis/$katlink-$next.htm\" style=\"text-decoration: none\"><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\" class=q>weitere Links zu <i>$tkategorie</i></font></a><br><br></td>";
}else{
print "<td width=\"50%\" height=\"10\" align=right><a href=\"$mehmetoruc.pl?action=kat&amp;suche=$katlink&erg=$next\" style=\"text-decoration: none\"><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\" class=q>weitere Links zu <i>$tkategorie</i></font></a><br><br></td>";
}
}
}
print "<br></td></tr></table></td><td rowSpan=\"5\">&nbsp;&nbsp;</td><td width=\"1\" class=\"balkenfarbe\" rowSpan=\"5\"><img src=\"\" height=\"1\" alt=\"\" width=\"1\"></td><td rowSpan=\"5\"></td><td valign=top align=center width=\"15%\"><br><table cellSpacing=\"0\" cellPadding=\"10\" width=\"100%\"><tr><td>";
print "$text{'anzeigenbannerrechts'}";
open(FILE,"<$datenbank2/$datenbankname_$katlink.txt");
flock(FILE,2);
@datenbank2=<FILE>;
close(FILE);
@datenbank2=sort{$b<=>$a}(@datenbank2);
sort(@datenbank2);
$c1=-1;
if($isunterkategorie ne "yes"){
$unterkategoriekatfound=0;
foreach $datenteil (@kategories){
$c1++;
($ukat,$unterkategoriekats)=split(/\|/,$datenteil);
chomp($ukat);
if($ukat eq $kategorie){
($junk,$unterkategoriekatsdesc)=split(/\|/,$katsdescs[$c1]);
@unterkategorien=split(/,/,$unterkategoriekats);
@unterkategoriendesc=split(/,/,$unterkategoriekatsdesc);
}
}
if($unterkategoriekatfound==0){
unshift(@datenbank2,"\n");
}else{
@datenbank2=(@subdatenbank,@datenbank2);
}
}
print"</table>\n";
if(($erg<0)||($erg eq "")){
$erg=0;
}
if($erg>$#datenbank2){
$erg=$#datenbank2;
}
$a2=$erg+100;
$a1=$erg;
if($a1<0){
$a1=0;
}
$sitefound=0;
for($i=$a1;$i<$a2;$i++){
if(@datenbank2[$i]=~/}{/gi){
($ranking,$url,$stitle,$image,$desc,$keys,$kat,$f{'$realyear'},$f{'$realmonth'},$f{'$dayofmonth'})=split(/}{/,@datenbank2[$i]);
$url=~s/%(..)/pack("c",hex($1))/ge;
$stitle=~s/%(..)/pack("c",hex($1))/ge;
$desc=~s/%(..)/pack("c",hex($1))/ge;
$image=~s/%(..)/pack("c",hex($1))/ge;
$ranking=~s/%(..)/pack("c",hex($1))/ge;
$keys=~s/%(..)/pack("c",hex($1))/ge;
if(length($stitle)>$titellaenge){
$stitle=substr "$stitle","",$titellaenge-3;
$stitle.="";
}
if(length($url)>$urllaenge){
$lurl=substr "$url","",$urllaenge;
$lurl.="...";
}else{
$lurl=$url;
}
$surl=$url;
$surlm="$surl";
$url=~s/:/%3A/gi;
$url=~s/=/%3D/gi;
$url=~s/\//%2F/gi;
$url=~s/\?/%3F/gi;
$url=~s/\|/%7C/gi;
if(length($desc)>=$beschreibungslaenge){
$desc=substr "$desc","",$beschreibungslaenge;
$desc.="...";
}
$sitefound++;
if($erg>0){
}else{
&Result3;
}
}else{
}
}
$letztekat="$letztekategorie";
$tkategorie=~s/ /\+/gi;
#print "</td></tr></table></td></tr>";
print "</td></tr></table>";
if($modre == 1){
print "<table cellSpacing=\"0\" bgcolor=\"$feldhintergrundfarbe\" cellPadding=\"1\" width=\"750\" border=\"0\"><tr><td>&nbsp;&nbsp;<font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\" class=q>Finden Sie hier weitere Informtionen zum Thema <a href=\"$domain_name/$tkategorie-$mehmetoruc.html\" class=q>\"$tkategorie\"</a>:</font></td></tr></table>";
}else{
print "<table cellSpacing=\"0\" bgcolor=\"$feldhintergrundfarbe\" cellPadding=\"0\" width=\"750\" border=\"0\"><tr><td>&nbsp;&nbsp;<font size=\"1\" face=\"$schriftart\" color=\"$schriftfarbe\" class=q>Finden Sie hier weitere Informtionen zum Thema <a href=\"$domain_name/cgi-bin/sehen.pl?suchworte=$tkategorie\" class=q>\"$tkategorie\"</a>:</font></td></tr></table>";
}
print "<table cellSpacing=\"0\" cellPadding=\"0\" width=\"750\" class=\"headerfarbe\" border=\"0\"><tr><td width=\"100%\"></td></tr></table>";
print "<table border=0 width=\"750\" bgcolor=\"$feldhintergrundfarbe\" cellspacing=0 cellpadding=0><tr><td width=\"96%\" align=left>";
open(FILE,"<$datenbank4/$datenbankname_$katlink.txt");
flock(FILE,2);
@datenbank4=<FILE>;
close(FILE);
@datenbank4=sort{$b<=>$a}(@datenbank4);
sort(@datenbank4);
$c1=-1;
if($isunterkategorie ne "yes"){
$unterkategoriekatfound=0;
foreach $datenteil (@kategories){
$c1++;
($ukat,$unterkategoriekats)=split(/\|/,$datenteil);
chomp($ukat);
if($ukat eq $kategorie){
($junk,$unterkategoriekatsdesc)=split(/\|/,$katsdescs[$c1]);
@unterkategorien=split(/,/,$unterkategoriekats);
@unterkategoriendesc=split(/,/,$unterkategoriekatsdesc);
}
}
if($unterkategoriekatfound==0){
unshift(@datenbank4,"\n");
}else{
@datenbank4=(@subdatenbank,@datenbank4);
}
}
if(($erg<0)||($erg eq "")){
$erg=0;
}
if($erg>$#datenbank4){
$erg=$#datenbank4;
}
$a2=$erg+100;
$a1=$erg;
if($a1<0){
$a1=0;
}
$sitefound=0;
for($i=$a1;$i<$a2;$i++){
if(@datenbank4[$i]=~/}{/gi){
($ranking,$url,$stitle,$image,$desc,$keys,$kat)=split(/}{/,@datenbank4[$i]);
$url=~s/%(..)/pack("c",hex($1))/ge;
$stitle=~s/%(..)/pack("c",hex($1))/ge;
$desc=~s/%(..)/pack("c",hex($1))/ge;
$image=~s/%(..)/pack("c",hex($1))/ge;
$ranking=~s/%(..)/pack("c",hex($1))/ge;
$keys=~s/%(..)/pack("c",hex($1))/ge;
if(length($stitle)>$titellaenge){
$stitle=substr "$stitle","",$titellaenge-3;
$stitle.="";
}
if(length($url)>$urllaenge){
$lurl=substr "$url","",$urllaenge;
$lurl.="...";
}else{
$lurl=$url;
}
$surl=$url;
$surlm="$surl";
$sitefound++;
if(($erg eq "0")||($erg eq "")){
if (($image ne "")||($desc ne "")){
&Result4;
}elsif ($url ne ""){
setup();
getFeedList();
getAndFormatFeeds();

sub setup {
  $maxDescriptionLength = 500;
}

sub getFeedList {
  @feeds = "$url";
}

sub getAndFormatFeeds {
  foreach $url (@feeds) {
    $xml  = get($url);
    $rss  = XMLin($xml);
    $html = &formatFeed;
    print $html;
  }
}

sub formatFeed {
  my @items = ();
  if (ref($rss->{channel}->{item}) eq "HASH") {
    @items = $rss->{channel}->{item};
  }
  elsif (ref($rss->{channel}->{item}) eq "ARRAY") {
    @items = @{$rss->{channel}->{item}};
  }
  else { return ""; }
  my $feed =   "<br><ul>\n";
  foreach $item (@items) {
    $feed .=   "  <li>"
             . &formatTitle($item->{title},$item->{link},$item->{pubDate})
             . &formatDescription($item->{description})
             . "</li>\n";
  }
  $feed .= "</ul>\n";
  return $feed;
}

sub formatTitle {
  my ($title,$url,$date) = @_;
  if (&elementIsEmpty($title) || ($title eq '')) {
    $title = '[untitled]';
  }
  if (&elementIsEmpty($url) || ($url eq '')) {
    $url = $rss->{channel}->{link};
  }
  $date =   (&elementIsEmpty($date) || ($date eq ''))
          ? ''
          : " <span><font size=2>[$date]</font></span>";
  $title=~s/\...//gi;
  $title=~s/\Ü/Ue/gi;
  $title=~s/\ü/ue/gi;
  $title=~s/\|/ue/gi;
  $title=~s/\‹/Ue/gi;
  $title=~s/\ß/ss/gi;
  $title=~s/\ä/ae/gi;
  $title=~s/\é/Ae/gi;
  $title=~s/\Ö/Oe/gi;
  $title=~s/\ö/oe/gi;
  $title=~s/Â//gi;
  $titlesuche="$title";
  $titlesuche=~s/ /\+/gi;
  return "<div><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><a href=\"$url\" title=\"$title\" target=_blank>$title</a> <a href=\"$domain_name/$titlesuche-$mehmetoruc.html\" title=\"Finden Sie mehr zu $title auf $seitenname.\" target=_blank class=q>>>></a></font></div> ";
}

sub formatDescription {
  my ($description) = @_;
  return if &elementIsEmpty($description);
  $description = &removeHtmlTags($description);
  my $tag = &shorten($description);
  $tag=~s/\...//gi;
  $tag=~s/  / /gi;
  $tag=~s/\Ü/Ue/gi;
  $tag=~s/\ü/ue/gi;
  $tag=~s/\|/ue/gi;
  $tag=~s/\‹/Ue/gi;
  $tag=~s/\ß/ss/gi;
  $tag=~s/\ä/ae/gi;
  $tag=~s/\é/Ae/gi;
  $tag=~s/\Ö/Oe/gi;
  $tag=~s/\ö/oe/gi;
  $tag=~s/Â//gi;
  $tag =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  return "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\">$tag</font><br>";
}

sub removeHtmlTags {
  my ($tag) = @_;
  $tag =~ s/<[^>]*?>//g;
  return $tag;
}

sub shorten {
  my ($text) = @_;
  return $text if ($maxDescriptionLength < 0);
  return $text;
}

sub elementIsEmpty {
  my ($element) = @_;
  return (ref($element) eq "HASH");
}

}
}else{
}
}
}
print "</td><td width=10></td></tr></table>";
open(FILE,"<$header95");
flock(FILE,2);
@datenbank=<FILE>;
close(FILE);
foreach $line (@datenbank){
chomp($line);
if ($tkategorie eq ""){
$line=~s/<!--#mehmetoruc-->//gi;
}else{
$line=~s/<!--#mehmetoruc-->/$letztekategorie$diesekategorie/gi;
}
print "$line\n";
}
exit;
}

# Anzeige der Suchergebnisse 1
#########################################################
sub Result{
if ($surl eq ""){}else{
$hauptadresse = URI->new($surl);
$this_path= $hauptadresse->path_query();
$hauptadresse =~ s/\Q$this_path\E$//;
$sites=$hauptadresse;
$sites=~s/http\:\/\/www\.//gi;
$sites=~s/http\:\/\/www2\.//gi;
$sites=~s/http\:\/\/de\.//gi;
$sites=~s/http\:\/\/www//gi;
$sites=~s/http\:\/\///gi;
$keys=~s/\<br\>/\ /gi;
$keys=~s/.\.\./ \+\+\+/gi;
#$desc=~s/$letzekategorie $diesekategorie11/\<i\> $letztekategorie $diesekategorie11\<\/i\>/gi;
#$desc=~s/$diesekategorie11/ /gi;
$desc=~s/\]//gi;
$desc=~s/\[//gi;
$desc=~s/\]//gi;
$desc=~s/\<nobr\>//gi;
$desc=~s/\<\/nobr\>//gi;
$desc=~s/\<blockquote\>//gi;
$desc=~s/\<\/blockquote\>//gi;
$desc=~s/\<p\>//gi;
$desc=~s/\&/\&amp\;/gi;
$stitle=~s/\&/\&amp\;/gi;
$surl=~s/\&/\&amp\;/gi;
$lurl=~s/\&/\&amp\;/gi;
if ($shotanzeigen eq "ja"){
if (($ranking eq "0")&&($fat eq "0")&&($color eq "0")){
if ($image eq "") {
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\">";
&Shot;
}else{
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\"><a href=\"$surl\" target=\"blank\"><img src=\"$image\" border=\"0\" alt=\"$surl\"></a>";
}
}else{
if ($image eq ""){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\">";
&Shot;
}else{
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\"><a href=\"$surl\" target=\"blank\"><img src=\"$image\" border=\"0\" alt=\"$surl\"></a>";
}
}
}else{
if (($ranking eq "0")&&($fat eq "0")&&($color eq "0")){
if ($image eq ""){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\">";
}else{
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\"><a href=\"$surl\" target=\"blank\"><img src=\"$image\" border=\"0\" alt=\"$surl\"></a>";
}
}else{
if ($image eq ""){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\">";
}else{
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\"><a href=\"$surl\" target=\"blank\"><img src=\"$image\" border=\"0\" alt=\"$surl\"></a>";
}
}
}
print "</td><td width=\"12\"></td><td>";
if(($laufday ne "")||($laufmonth ne "")||($laufyear ne "")){
$zeit = timelocal(0,0,0,$dayofmonth1,$realmonth1-1,$realyear1);
$zeit2 = timelocal(0,0,0,$laufday,$laufmonth-1,$laufyear);
if($zeit <= $zeit2){
if($color eq "0"){
if($image eq ""){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}else{
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
if($fat eq "0"){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}
print "</tr><tr><td colspan=2 valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\">";
}else{
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\">";
}
print "$desc";
print "</font></td></tr>";
if($urlanzeigen eq "0"){
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
}else{
$surl=~s/\=/ /gi;
$surl=~s/\://gi;
$surl=~s/\// /gi;
$surl=~s/\?/ /gi;
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
if(($fat eq "0")||($fat eq "1")){
print "<font color=\"$urlfarbe\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}else{
print "<font color=\"$fat\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}
$surl=~s/ /\=/gi;
$surl=~s//\:/gi;
$surl=~s/ /\//gi;
$surl=~s/ /\?/gi;
}
}else{
if($image eq ""){
if(($color eq "0")||($color eq "")||($color eq " ")){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}else{
print "<table bgcolor=\"$color\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}else{
if(($color eq "0")||($color eq "")||($color eq " ")){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}else{
print "<table bgcolor=\"$color\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}
print "</tr><tr><td colspan=2 valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\">";
}else{
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\">";
}
print "$desc";
print "</font></td></tr>";
if($urlanzeigen eq "0"){
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
}else{
$surl=~s/\=/ /gi;
$surl=~s/\://gi;
$surl=~s/\// /gi;
$surl=~s/\?/ /gi;
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
if(($fat eq "0")||($fat eq "1")){
print "<font color=\"$urlfarbe\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}else{
print "<font color=\"$fat\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}
$surl=~s/ /\=/gi;
$surl=~s//\:/gi;
$surl=~s/ /\//gi;
$surl=~s/ /\?/gi;
}
}
print "</td></tr></table></td></tr></table>";
print "</td></tr></table><br>";
}
}else{
if($color eq "0"){
if($image eq ""){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}else{
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}
print "</tr><tr><td colspan=2 valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\">";
}else{
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\">";
}
print "$desc";
print "</font></td></tr>";
if($urlanzeigen eq "0"){
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
}else{
$surl=~s/\=/ /gi;
$surl=~s/\://gi;
$surl=~s/\// /gi;
$surl=~s/\?/ /gi;
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
if(($fat eq "0")||($fat eq "1")){
print "<font color=\"$urlfarbe\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}else{
print "<font color=\"$fat\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}
$surl=~s/ /\=/gi;
$surl=~s//\:/gi;
$surl=~s/ /\//gi;
$surl=~s/ /\?/gi;
}
}else{
if($image eq ""){
if(($color eq "0")||($color eq "")||($color eq " ")){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}else{
print "<table bgcolor=\"$color\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}else{
if(($color eq "0")||($color eq "")||($color eq " ")){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}else{
print "<table bgcolor=\"$color\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}
print "</tr><tr><td colspan=2 valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\">";
}else{
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\">";
}
print "$desc";
print "</font></td></tr>";
if($urlanzeigen eq "0"){
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
}else{
$surl=~s/\=/ /gi;
$surl=~s/\://gi;
$surl=~s/\// /gi;
$surl=~s/\?/ /gi;
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
if(($fat eq "0")||($fat eq "1")){
print "<font color=\"$urlfarbe\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}else{
print "<font color=\"$fat\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}
$surl=~s/ /\=/gi;
$surl=~s//\:/gi;
$surl=~s/ /\//gi;
$surl=~s/ /\?/gi;
}
}
if(($dayofmonthneu ne "")||($realmonthneu ne "")||($realyearneu ne "")){
if(($fat eq "0")||($fat eq "1")){
print "<font size=1 color=\"$schriftfarbe\" face=\"$schriftart\">&nbsp;- [$dayofmonthneu.$realmonthneu.$realyearneu]</font>";
}else{
print "<font size=1 color=\"$fat\" face=\"$schriftart\">&nbsp;- [$dayofmonthneu.$realmonthneu.$realyearneu]</font>";
}
}else{
if(($fat eq "0")||($fat eq "1")){
print "<font size=1 color=\"$schriftfarbe\" face=\"$schriftart\">&nbsp;- [$dayofmonth1.$realmonth1.$realyear1]</font>";
}else{
print "<font size=1 color=\"$fat\" face=\"$schriftart\">&nbsp;- [$dayofmonth1.$realmonth1.$realyear1]</font>";
}
}
print "</td></tr></table></td></tr></table>";
print "</td></tr></table><br>";
}
}
}

# Anzeige der Suchergebnisse 2
#########################################################
sub Resultkat{
$hauptadresse = URI->new($surl);
$this_path= $hauptadresse->path_query();
$hauptadresse =~ s/\Q$this_path\E$//;
$sites=$hauptadresse;
$sites=~s/http\:\/\/www\.//gi;
$sites=~s/http\:\/\/www2\.//gi;
$sites=~s/http\:\/\/de\.//gi;
$sites=~s/http\:\/\/www//gi;
$sites=~s/http\:\/\///gi;
$keys=~s/\<br\>/\ /gi;
$keys=~s/.\.\./ \+\+\+/gi;
#$desc=~s/$letztekategorie/\<i\>$letztekategorie\<\/i\>/gi;
#$desc=~s/$letztekategorie/ /gi;
$desc=~s/\]//gi;
$desc=~s/\[//gi;
$desc=~s/\]//gi;
$desc=~s/\<nobr\>//gi;
$desc=~s/\<\/nobr\>//gi;
$desc=~s/\<blockquote\>//gi;
$desc=~s/\<\/blockquote\>//gi;
$desc=~s/\<p\>//gi;
$desc=~s/\&/\&amp\;/gi;
$stitle=~s/\&/\&amp\;/gi;
$surl=~s/\&/\&amp\;/gi;
$lurl=~s/\&/\&amp\;/gi;
if ($shotanzeigen eq "ja"){
if (($ranking eq "0")&&($fat eq "0")&&($color eq "0")){
if ($image eq "") {
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\">";
&Shot;
}else{
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\"><a href=\"$surlm\" target=\"blank\"><img src=\"$image\" border=\"0\" alt=\"$surl\"></a>";
}
}else{
if ($image eq ""){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\">";
&Shot;
}else{
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\"><a href=\"$surlm\" target=\"blank\"><img src=\"$image\" border=\"0\" alt=\"$surl\"></a>";
}
}
}else{
if (($ranking eq "0")&&($fat eq "0")&&($color eq "0")){
if ($image eq ""){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\">";
}else{
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\"><a href=\"$surlm\" target=\"blank\"><img src=\"$image\" border=\"0\" alt=\"$surl\"></a>";
}
}else{
if ($image eq ""){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\">";
}else{
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td width=\"1\"><a href=\"$surlm\" target=\"blank\"><img src=\"$image\" border=\"0\" alt=\"$surl\"></a>";
}
}
}
print "</td><td width=\"12\"></td><td>";
if(($laufday ne "")||($laufmonth ne "")||($laufyear ne "")){
$zeit = timelocal(0,0,0,$dayofmonth1,$realmonth1-1,$realyear1);
$zeit2 = timelocal(0,0,0,$laufday,$laufmonth-1,$laufyear);
if($zeit <= $zeit2){
if($color eq "0"){
if($image eq ""){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}else{
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}
print "</tr><tr><td colspan=2 valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\">";
}else{
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\">";
}
print "$desc";
print "</font></td></tr>";
if($urlanzeigen eq "0"){
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
}else{
$surl=~s/\=/ /gi;
$surl=~s/\://gi;
$surl=~s/\// /gi;
$surl=~s/\?/ /gi;
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
if(($fat eq "0")||($fat eq "1")){
print "<font color=\"$urlfarbe\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}else{
print "<font color=\"$fat\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}
$surl=~s/ /\=/gi;
$surl=~s//\:/gi;
$surl=~s/ /\//gi;
$surl=~s/ /\?/gi;
}
}else{
if($image eq ""){
if(($color eq "0")||($color eq "")||($color eq " ")){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}else{
print "<table bgcolor=\"$color\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}else{
if(($color eq "0")||($color eq "")||($color eq " ")){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}else{
print "<table bgcolor=\"$color\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}
print "</tr><tr><td colspan=2 valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\">";
}else{
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\">";
}
print "$desc";
print "</font></td></tr>";
if($urlanzeigen eq "0"){
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
}else{
$surl=~s/\=/ /gi;
$surl=~s/\://gi;
$surl=~s/\// /gi;
$surl=~s/\?/ /gi;
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
if(($fat eq "0")||($fat eq "1")){
print "<font color=\"$urlfarbe\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}else{
print "<font color=\"$fat\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}
$surl=~s/ /\=/gi;
$surl=~s//\:/gi;
$surl=~s/ /\//gi;
$surl=~s/ /\?/gi;
}
}
print "</td></tr></table></td></tr></table>";
print "</td></tr></table>";
}
}else{
if($color eq "0"){
if($image eq ""){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}else{
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}
print "</tr><tr><td colspan=2 valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\">";
}else{
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\">";
}
print "$desc";
print "</font></td></tr>";
if($urlanzeigen eq "0"){
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
}else{
$surl=~s/\=/ /gi;
$surl=~s/\://gi;
$surl=~s/\// /gi;
$surl=~s/\?/ /gi;
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
if(($fat eq "0")||($fat eq "1")){
print "<font color=\"$urlfarbe\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}else{
print "<font color=\"$fat\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}
$surl=~s/ /\=/gi;
$surl=~s//\:/gi;
$surl=~s/ /\//gi;
$surl=~s/ /\?/gi;
}
}else{
if($image eq ""){
if(($color eq "0")||($color eq "")||($color eq " ")){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}else{
print "<table bgcolor=\"$color\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlmm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}else{
if(($color eq "0")||($color eq "")||($color eq " ")){
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}else{
print "<table bgcolor=\"$color\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td valign=top>";
}
if(($fat eq "0")||($fat eq "1")){
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$titelfarbe\"><b>$stitle</b></font></a>";
}else{
print "<a onMouseOver=\"window.status='$surl'; return true;\" onMouseOut=\"window.status=''; return true;\" href=\"$surlm\" title=\"$stitle\" target=_blank><font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\"><b>$stitle</b></font></a>";
}
print "<br></td>";
}
print "</tr><tr><td colspan=2 valign=top>";
if(($fat eq "0")||($fat eq "1")){
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$schriftfarbe\">";
}else{
print "<font size=\"$titelgroesse\" face=\"$schriftart\" color=\"$fat\">";
}
print "$desc";
print "</font></td></tr>";
if($urlanzeigen eq "0"){
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
}else{
$surl=~s/\=/ /gi;
$surl=~s/\://gi;
$surl=~s/\// /gi;
$surl=~s/\?/ /gi;
print "<tr><td colspan=2 valign=top><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"100%\"><tr><td>";
if(($fat eq "0")||($fat eq "1")){
print "<font color=\"$urlfarbe\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}else{
print "<font color=\"$fat\" face=\"$schriftart\" size=\"1\">$lurl</font>";
}
$surl=~s/ /\=/gi;
$surl=~s//\:/gi;
$surl=~s/ /\//gi;
$surl=~s/ /\?/gi;
}
}
if(($dayofmonthneu ne "")||($realmonthneu ne "")||($realyearneu ne "")){
if(($fat eq "0")||($fat eq "1")){
print "<font size=1 color=\"$schriftfarbe\" face=\"$schriftart\">&nbsp;- [$dayofmonthneu.$realmonthneu.$realyearneu]</font>";
}else{
print "<font size=1 color=\"$fat\" face=\"$schriftart\">&nbsp;- [$dayofmonthneu.$realmonthneu.$realyearneu]</font>";
}
}else{
if(($fat eq "0")||($fat eq "1")){
print "<font size=1 color=\"$schriftfarbe\" face=\"$schriftart\">&nbsp;- [$dayofmonth1.$realmonth1.$realyear1]</font>";
}else{
print "<font size=1 color=\"$fat\" face=\"$schriftart\">&nbsp;- [$dayofmonth1.$realmonth1.$realyear1]</font>";
}
}
print "</td></tr></table></td></tr></table>";
print "</td></tr></table>";
}
}

# Bilderanzeigen
#########################################################
sub Shot{
if ($shotnurbeibezahlung eq "yes"){
if ($ranking>0){
$img_uri = URI->new($surl);
$this_path= $img_uri->path_query();
$img_uri =~ s/\Q$this_path\E$//;
if ($img_uri eq "http://www.eBay.de"){
}else{
print <<EOF;
<a href="$img_uri" target="blank"><img src="${thumbs}$img_uri" border="0" alt="$surl"></a>
EOF
}
}
}else{
$img_uri = URI->new($surl);
$this_path= $img_uri->path_query();
$img_uri =~ s/\Q$this_path\E$//;
if ($img_uri eq "http://www.eBay.de"){
}else{
print <<EOF;
<a href="$img_uri" target="blank"><img src="${thumbs}$img_uri" border="0" alt="$surl"></a>
EOF
}
}
}

# Anzeige der Kontent rechts
#########################################################
sub Result3{
if($image eq ""){
print "<br><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td><font size=\"$titelgroesse\" face=\"$schriftart\">$desc</font></td></tr><tr><td>&nbsp;</td></tr></table>";
}else{
print "<br><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"><tr><td align=center><a href=\"$surl\" target=_blank><img src=$image border=0></a></td></tr><tr><td>&nbsp;</td></tr></table>";
}
}

# Anzeige der Webtipps unten
#########################################################
sub Result4{
if($image eq ""){
print "<table border=\"0\" cellpadding=\"5\" cellspacing=\"8\" width=\"100%\"><tr><td><font size=\"$titelgroesse\" face=\"$schriftart\">$desc</font></td></tr><tr></tr></table>";
}else{
print "<table border=\"0\" cellpadding=\"5\" cellspacing=\"8\" width=\"100%\"><tr><td align=\"center\"><a href=\"$surl\" target=_blank><img src=$image border=0></a></td></tr></table>";
}
}

# Berrechung der Suchergebnisse mit suman
#########################################################
sub Resultgog{
if($sitefound<=$auffuellenab){
if ($crawler eq "off"){
}elsif ($webcrawler eq "1"){
$kwd1=$diesekategorie; $kwd1=~ s/ /+/g;
$kwd2=$back; $kwd2=~ s/ /+/g;
if ($websuche eq "1"){
$url="http://www.google.de/search?q=$kwd1+$text{'sumaworte'}+$nichtaufnehmen&hl=de&meta=lr%3Dlang_de&num=$ergebnisse";
}elsif ($websuche eq "2"){
#Google-Suche mit Oberkategorie und Kategorie Deutsch
$url="http://www.google.de/search?q=$letztekategorie+$kwd1+$text{'sumaworte'}+$nichtaufnehmen+-%22$letztekategorie+$kwd1%22+-%22$kwd1+$letztekategorie%22&hl=de&meta=lr%3Dlang_de&num=$ergebnisse";
}else{
#Google-Suche mit Oberkategorie und Kategorie International
$url="http://www.google.com/search?num=$ergebnisse&hl=en&lr=&ie=UTF-8&as_qdr=all&q=$letztekategorie+$kwd1+$text{'sumaworte'}+$nichtaufnehmen&btnG=Search";
}
#print "<meta name=\"content-type\" content=\"text/html; charset=iso-8859-1\">\n";
 use LWP::UserAgent;
 $ua = new LWP::UserAgent;
 $ua->timeout($timeout);
 $ua->agent('Mozilla/4.0');
 $req = new HTTP::Request GET => "$url";
 $res = $ua->request($req);
 if ($res->is_success) {
 $html = $res->content;
 }
$format=0;
if ($html=~ /class\=k/gis) {$format=1;}
if ($html =~ m#keine Ergebnisse gefunden#is) {
exit;
}
$html=~ s/<b>//gis;
$html=~ s/<\/b>//gis;
$html=~ s/<br>//gis;
$html=~ s/\n/<br>/gis;
$html=~ s/"//gis;
$how=0;
$links="";
if ($parser == 0) {
while ($html =~ m#<p><A HREF\=(.*?)>(.*?)<\/A>(.*?)<font c#gsi) {
$url1=$1;
$title=$2;
$descr=$3;
$descr=~ s/<font(.*?)>//gis;
$descr=~ s/<\/font>//gis;
$desrc=~ s/<br>//gis;
$descr=~ s/<b>//gis;
$descr=~ s/<\/b>//gis;
$descr=~ s/<a(.*?)<\/a>//gis;
$descr=~s/Kategorie://gis;
$link=$url1;
$stitle=$title;
$fat="0";
$keys="";
$surl=$url1;
$surlm="$surl";
$url=$url1;
$desc=$descr;
if(length($url1)>$urllaenge){
$lurl=substr "$url1","",$urllaenge;
$lurl.="...";
}else{
$lurl=$url1;
}

if ($specialcrawler eq "on"){
if ($nurtoplevel eq "on"){
$url1 = URI->new($url1);
$this_path= $url1->path_query();
$url1 =~ s/\Q$this_path\E$//;
}
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
$ua = LWP::UserAgent->new();
$request = HTTP::Request->new(GET => $url1);
$response = $ua->request($request);
$dolwp=$response->is_error();
$page=$response->content();
$page=~s/\n/ /gi;
$page=~s/\r/ /gi;
$page=~s/<script.*\/script>//gi;
$page=~s/<style.*\/style>//gi;
while($page=~//){
$page=~s// /gi;
}
$nometa=$page;
$page=~s/>/\>*brkhre\*/gi;
@tags=split(/\*brkhre\*/,$page);
foreach $tag (@tags){
if($tag=~/<meta name=\"?description\"? content=\".*\">/gi){
$tag=~s/<meta name=\"?description\"? content="//gi;
$tag=~s/">//gi;
$tag=~s/</&lt;/gi;
$tag=~s/>/&gt;/gi;
$descc=$tag;
}
}
if ($descc ne ""){
$descr="$descc";
}else{
$descr="$descr";
}
&Spider;
}else{
&Result;
}
}
}
}elsif ($webcrawler eq "3"){
&Parse;
sub Parse {
local (*in) = @_ if @_;
local ($i, $key, $val); if ( $ENV{'REQUEST_METHOD'} eq "GET" )
{
$in = $ENV{'QUERY_STRING'};
}
elsif ($ENV{'REQUEST_METHOD'} eq "POST")
{
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
    @pairs = split(/&/, $input);
    foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $name =~ tr/+/ /;
    $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    #$value =~ s/<([^>]|\n)*>//g;
    $in{$name} = $value;
    }
}
else
{
$in = ( grep( !/^-/, @ARGV )) [0];
$in =~ s/\\&/&/g; } @in = split(/&/,$in);
foreach $i (0 .. $#in) {
$in[$i] =~ s/\+/ /g;
($key, $val) = split(/=/,$in[$i],2);
$key =~ s/%(..)/pack("c",hex($1))/ge;
$val =~ s/%(..)/pack("c",hex($1))/ge;
$in{$key} .= "\0" if (defined($in{$key}));
$in{$key} .= $val; } return length($in);
}
my @a;
$kwd1=$diesekategorie; $kwd1=~ s/ /+/g;
$kwd2=$letztekategorie; $kwd2=~ s/ /+/g;
if ($websuche eq "1"){
$suchworte="$kwd1";
}else{
$suchworte="$kwd1+$kwd2";
}
$qry ="$suchworte+$text{'sumaworte'}+$nichtaufnehmen";
$qry=~ s/ /%20/ig;
$html=get("http://api.search.yahoo.com/WebSearchService/V1/webSearch?appid=$yahooapikey&start=$yahoostart&query=$qry&results=$ergebnisse&language=de");
($trash,$ergebnisse) = split(/totalResultsAvailable=\"/,$html);
($ergebnisse,$trash) = split(/\"/, $ergebnisse);
foreach $line(split(/<Result>/, $html)) {
($trash, $titel) = split(/<Title>/, $line);
($titel, $trash) = split(/<\/Title>/, $titel);
($trash, $summary) = split(/<Summary>/, $line);
($summary, $trash) = split(/<\/Summary>/, $summary);
($trash, $Url) = split(/<Url>/, $line);
($Url, $trash) = split(/<\/Url>/, $Url);
#($trash, $NewsSource) = split(/<NewsSource>/, $line);
#($NewsSource, $trash) = split(/<\/NewsSource>/, $NewsSource);
$nummer = $zzz + $yahoostart - 1;
$surl="$Url";
$surlm="$Url";
$stitle="$titel";
$stitle=~s/\ü/ue/gi;
$stitle=~s/\|/ue/gi;
$stitle=~s/\‹/Ue/gi;
$stitle=~s/\ß/ss/gi;
$stitle=~s/\ä/ae/gi;
$stitle=~s/\é/Ae/gi;
$stitle=~s/\Ö/Oe/gi;
$stitle=~s/\ö/oe/gi;
$stitle=~s/\Ãœ/Ü/gi;
$stitle=~s/\ö/ö/gi;
$stitle=~s/\ä/ä/gi;
$stitle=~s/\Ö/Ö/gi;
$stitle=~s/\�/Ü/gi;
$stitle=~s/\Ãœ/Ü/gi;
$stitle=~s/\Ä/Ä/gi;
$stitle=~s/Â//gi;
$desc="$summary";
$desc=~s/\ü/ue/gi;
$desc=~s/\|/ue/gi;
$desc=~s/\‹/Ue/gi;
$desc=~s/\ß/ss/gi;
$desc=~s/\ä/ae/gi;
$desc=~s/\é/Ae/gi;
$desc=~s/\Ö/Oe/gi;
$desc=~s/\ö/oe/gi;
$desc=~s/\Ãœ/Ü/gi;
$desc=~s/\ö/ö/gi;
$desc=~s/\ä/ä/gi;
$desc=~s/\Ö/Ö/gi;
$desc=~s/\�/Ü/gi;
$desc=~s/\Ãœ/Ü/gi;
$desc=~s/\Ä/Ä/gi;
$desc=~s/Â//gi;
if (length($Url)>$urllaenge){
$lurl=substr "$Url","",$urllaenge;
$lurl.="...";
}else{
$lurl=$Url;
}
if (length($desc)>=$beschreibungslaenge){
$desc=substr "$desc","",$beschreibungslaenge;
$desc.="...";
}
if(length($stitle)>$titellaenge){
$stitle=substr "$stitle","",$titellaenge;
$stitle.="...";
}
$color="0";
$image="";
$fat="0";
$keys="";
$descr="$desc";
$zzz++;
$url1="$surl";
if ($specialcrawler eq "on"){
if ($nurtoplevel eq "on"){
$url1 = URI->new($url1);
$this_path= $url1->path_query();
$url1 =~ s/\Q$this_path\E$//;
}
&Spider;
}else{
&Result;
}
}
}elsif ($webcrawler eq "2"){
$kwd1=$diesekategorie; $kwd1=~ s/ /+/g;
$kwd2=$letztekategorie; $kwd2=~ s/ /+/g;
my @a;
if ($websuche eq "1"){
$suchworte="$kwd1";
}else{
$suchworte="$kwd1+$kwd2";
}
$suchworte=~s/ä/ae/gi;
$suchworte=~s/ö/oe/gi;
$suchworte=~s/ü/ue/gi;
$suchworte=~s/Ä/Ae/gi;
$suchworte=~s/Ö/Oe/gi;
$suchworte=~s/Ü/Ue/gi;
$suchworte=~s/ /+/gi;
$suchworte=~s/_/+/gi;
$suchworte=~s/\+\+\+\+\+\+/+/gi;
$suchworte=~s/\+\+\+\+/+/gi;
$suchworte=~s/\+\+\+/+/gi;
$suchworte=~s/\+\+/+/gi;
$suchworte=~s/\-\-/-/gi;
my $resultid;
my $title;
my $url;
my $abstract;
my $redir;
my $imgurl;
my $imgalt;
my $img;
my $alternate;
my $FSCOUNT;
$qry ="$suchworte+$text{'sumaworte'}+$nichtaufnehmen";
my $pagelink = "$ENV{'SCRIPT_NAME'}?qry=$qry";

sub dCode($) {
my $stringval = $_[0];
my $pos = index $stringval,"\xc3";
while ($pos >= 0){
my $newchar = chr(ord (substr $stringval,$pos+1,1) + 64);
substr $stringval,$pos,2,$newchar;
$pos = index $stringval,"\xc3";
}
return $stringval;
}

sub encode($) {
my $stringval = $_[0];
my $pos = -1;
if (length $stringval > 0) { $pos = 0;}
while ($pos >= 0){
if (ord (substr $stringval,$pos,1) > 128) {
  my $newchar = "\xc3".chr(ord (substr $stringval,$pos,1) - 64);
substr $stringval,$pos,0,$newchar;
}
$pos = $pos + 1;
if ($pos > 20) {$pos = -1;}
}
return $stringval;
}

my $xml_feed = "http://www.mirago.de/scripts/xmlhandler.aspx?";
$xml_feed .= "&nRes=".$ergebnisse;
$xml_feed .= "&fsonly=".$nurbezahllinks;
$xml_feed .= "&qry=".$qry;
#$xml_feed .= "&ip=$ENV{'REMOTE_ADDR'}";
$xml_feed .= "&ass=$miragopartnercode";
my $currenttag = "";
my $parenttag = "";
my $document ='';
my %resultset;

sub displayResult() {
$url =~ s/\xc2//g;
$url =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$redir =~ s/\xc2//g;
$redir =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$title =~ s/\xc2//g;
$title =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$title=~s/\ü/ue/gi;
$title=~s/\|/ue/gi;
$title=~s/\‹/Ue/gi;
$title=~s/\ß/ss/gi;
$title=~s/\ä/ae/gi;
$title=~s/\é/Ae/gi;
$title=~s/\Ö/Oe/gi;
$title=~s/\ö/oe/gi;
$title=~s/Â//gi;
$abstract =~ s/\xc2//g;
$abstract =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$abstract=~s/\ü/ue/gi;
$abstract=~s/\|/ue/gi;
$abstract=~s/\‹/Ue/gi;
$abstract=~s/\ß/ss/gi;
$abstract=~s/\ä/ae/gi;
$abstract=~s/\é/Ae/gi;
$abstract=~s/\Ö/Oe/gi;
$abstract=~s/\ö/oe/gi;
$abstract=~s/Â//gi;
$surl =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$stitle=$title;
$stitle =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$desc=$abstract;
$desc =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$link=$url;
$stitle=$title;
$fat="0";
$keys="";
$surl=$url;
$surlm="$redir";
$color="0";
$image="";
if (length($url)>$urllaenge){
$lurl=substr "$url","",$urllaenge;
$lurl.="...";
}else{
$lurl=$url;
}
if (length($desc)>=$beschreibungslaenge){
$desc=substr "$desc","",$beschreibungslaenge;
$desc.="...";
}
if(length($stitle)>$titellaenge){
$stitle=substr "$stitle","",$titellaenge;
$stitle.="...";
}
$url1="$url";
if ($specialcrawler eq "on"){
if ($nurtoplevel eq "on"){
$url1 = URI->new($url1);
$this_path= $url1->path_query();
$url1 =~ s/\Q$this_path\E$//;
}
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
$ua = LWP::UserAgent->new();
$request = HTTP::Request->new(GET => $url1);
$response = $ua->request($request);
$dolwp=$response->is_error();
$page=$response->content();
$page=~s/\n/ /gi;
$page=~s/\r/ /gi;
$page=~s/<script.*\/script>//gi;
$page=~s/<style.*\/style>//gi;
while($page=~//){
$page=~s// /gi;
}
$nometa=$page;
$page=~s/>/\>*brkhre\*/gi;
@tags=split(/\*brkhre\*/,$page);
foreach $tag (@tags){
if($tag=~/<meta name=\"?description\"? content=\".*\">/gi){
$tag=~s/<meta name=\"?description\"? content="//gi;
$tag=~s/">//gi;
$tag=~s/</&lt;/gi;
$tag=~s/>/&gt;/gi;
$descc=$tag;
}
}
if ($descc ne ""){
$descr="$descc";
}else{
$descr="$descr";
}
&Spider;
}else{
&Result;
}
}

sub xmlStartTag() {
my ($parser, $name, %attr) = @_;
if ($currenttag ne "") { $parenttag = $currenttag; }
$currenttag = $name;
if ((int (scalar(keys %attr))) > 0) {

for (keys %attr) {
if ($name eq "RESULTSET") {
%resultset = %attr;
}
if ($name eq "RESULT") {
$resultid = $attr{$_}+1;
print " ";
}
}
}
}

sub xmlEndTag() {
my ($parser, $name, %attr) = @_;
if ($name eq "RESULT") {
displayResult();
$title = "";
$abstract = "";
$redir = "";
$url = "";
$imgurl = "";
$imgalt = "";
}
$currenttag = "";
}

sub xmlCharTag() {
my ($parser, $name) = @_;
if ($currenttag eq "ALT" && $name ne "\n") { $alternate = $alternate . $name; }
if ($currenttag eq "TITLE" && $name ne "\n") { $title = $title . $name; }
if ($currenttag eq "ABSTRACT" && $name ne "\n") { $abstract = $abstract . $name; }
if ($currenttag eq "URL" && $name ne "\n") { $url = $url . $name; }
if ($currenttag eq "REDIR" && $name ne "\n") { $redir = $redir . $name; }
if ($currenttag eq "IMGURL" && $name ne "\n") { $imgurl = $imgurl . $name; }
if ($currenttag eq "IMGALT" && $name ne "\n") { $imgalt = $imgalt . $name; }
}

if ($qry ne "") {
my $ua = new LWP::UserAgent;
$ua->agent("xml-fetch/1.0");
$ua->max_size([1000000]);
my $request = new HTTP::Request GET => $xml_feed;
my $resp = $ua->request($request);
$document = $resp->content;
my $xmlParser = new XML::Parser();
$xmlParser->setHandlers(Start => \&xmlStartTag, End => \&xmlEndTag, Char => \&xmlCharTag);
$xmlParser->parse($document);
}
}
}
}

# Berrechung der Suchergebnisse mit suman
#########################################################
sub Resultgog2{
$ent=0;
$katlink=~s/ /._./gi;
$katink=~s/\&/.jj./gi;
open(FILE,"<$datenbank/$datenbankname_$katlink.txt");
flock(FILE,2);
@num=<FILE>;
close(FILE);
$katcon=$#num;
$katcon++;
$entdiese=$ent+$katcon;
if($entdiese<=$auffuellenab){
if ($crawler eq "off"){
}elsif ($webcrawler eq "1"){
$kwd1=$letztekategorie; $kwd1=~ s/ /+/g;
$kwd2=$back; $kwd2=~ s/ /+/g;
if ($websuche eq "1"){
$url="http://www.google.de/search?q=$kwd1+$text{'sumaworte'}+$nichtaufnehmen&hl=de&meta=lr%3Dlang_de&num=$ergebnisse";
}elsif ($websuche eq "2"){
$url="http://www.google.de/search?q=$kwd1+$text{'sumaworte'}+$nichtaufnehmen&hl=de&meta=lr%3Dlang_de&num=$ergebnisse";
}else{
$url="http://www.google.com/search?num=$ergebnisse&hl=en&lr=&ie=UTF-8&as_qdr=all&q=$kwd1+$text{'sumaworte'}+$nichtaufnehmen&btnG=Search";
}
#print "<meta name=\"content-type\" content=\"text/html; charset=iso-8859-1\">\n";
use LWP::UserAgent;
 $ua = new LWP::UserAgent;
 $ua->timeout($timeout);
 $ua->agent('Mozilla/4.0');
 $req = new HTTP::Request GET => "$url";
 $res = $ua->request($req);
 if ($res->is_success) {
 $html = $res->content;
 }
$format=0;
if ($html=~ /class\=k/is) {$format=1;}
if ($html =~ m#keine Ergebnisse gefunden#is) {
exit;
}
$html=~ s/<b>//gis;
$html=~ s/<\/b>//gis;
$html=~ s/<br>//gis;
$html=~ s/\n/<br>/gis;
$html=~ s/"//gis;
$how=0;
$links="";
if ($parser ==0) {
while ($html =~ m#<p><A HREF\=(.*?)>(.*?)<\/A>(.*?)<font c#gsi) {
$url1=$1;
$title=$2;
$descr=$3;
$descr=~ s/<font(.*?)>//gis;
$descr=~ s/<\/font>//gis;
$descr=~ s/<br>//gis;
$descr=~ s/<b>//gis;
$descr=~ s/<\/b>//gis;
$descr=~ s/<a(.*?)<\/a>//gis;
$descr=~s/Kategorie://gis;
$link=$url1;
$stitle=$title;
$fat="0";
$keys="";
$surl=$url1;
$surlm="$surl";
$url=$url1;
$desc=$descr;
if(length($url1)>$urllaenge){
$lurl=substr "$url1","",$urllaenge;
$lurl.="...";
}else{
$lurl=$url1;
}
if ($specialcrawler eq "on"){
if ($nurtoplevel eq "on"){
$url1 = URI->new($url1);
$this_path= $url1->path_query();
$url1 =~ s/\Q$this_path\E$//;
}
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
$ua = LWP::UserAgent->new();
$request = HTTP::Request->new(GET => $url1);
$response = $ua->request($request);
$dolwp=$response->is_error();
$page=$response->content();
$page=~s/\n/ /gi;
$page=~s/\r/ /gi;
$page=~s/<script.*\/script>//gi;
$page=~s/<style.*\/style>//gi;
while($page=~//){
$page=~s// /gi;
}
$nometa=$page;
$page=~s/>/\>*brkhre\*/gi;
@tags=split(/\*brkhre\*/,$page);
foreach $tag (@tags){
if($tag=~/<meta name=\"?description\"? content=\".*\">/gi){
$tag=~s/<meta name=\"?description\"? content="//gi;
$tag=~s/">//gi;
$tag=~s/</&lt;/gi;
$tag=~s/>/&gt;/gi;
$descc=$tag;
}
}
if ($descc ne ""){
$descr="$descc";
}else{
$descr="$descr";
}
&Spider;
}else{
&Result;
}
}
}
}elsif ($webcrawler eq "3"){
&Parse;
sub Parse {
local (*in) = @_ if @_;
local ($i, $key, $val); if ( $ENV{'REQUEST_METHOD'} eq "GET" )
{
$in = $ENV{'QUERY_STRING'};
}
elsif ($ENV{'REQUEST_METHOD'} eq "POST")
{
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
    @pairs = split(/&/, $input);
    foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $name =~ tr/+/ /;
    $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    #$value =~ s/<([^>]|\n)*>//g;
    $in{$name} = $value;
    }
}
else
{
$in = ( grep( !/^-/, @ARGV )) [0];
$in =~ s/\\&/&/g; } @in = split(/&/,$in);
foreach $i (0 .. $#in) {
$in[$i] =~ s/\+/ /g;
($key, $val) = split(/=/,$in[$i],2);
$key =~ s/%(..)/pack("c",hex($1))/ge;
$val =~ s/%(..)/pack("c",hex($1))/ge;
$in{$key} .= "\0" if (defined($in{$key}));
$in{$key} .= $val; } return length($in);
}
my @a;
$kwd1="$letztekategorie"; $kwd1=~ s/ /+/g;
$suchworte="$kwd1";
$qry ="$suchworte+$text{'sumaworte'}+$nichtaufnehmen";
$qry=~ s/ /%20/ig;
$html=get("http://api.search.yahoo.com/WebSearchService/V1/webSearch?appid=$yahooapikey&start=$yahoostart&query=$qry&results=$ergebnisse&language=de");
($trash,$ergebnisse) = split(/totalResultsAvailable=\"/,$html);
($ergebnisse,$trash) = split(/\"/, $ergebnisse);
foreach $line(split(/<Result>/, $html)) {
($trash, $titel) = split(/<Title>/, $line);
($titel, $trash) = split(/<\/Title>/, $titel);
($trash, $summary) = split(/<Summary>/, $line);
($summary, $trash) = split(/<\/Summary>/, $summary);
($trash, $Url) = split(/<Url>/, $line);
($Url, $trash) = split(/<\/Url>/, $Url);
#($trash, $NewsSource) = split(/<NewsSource>/, $line);
#($NewsSource, $trash) = split(/<\/NewsSource>/, $NewsSource);
$nummer = $zzz + $yahoostart - 1;
$surl="$Url";
$surlm="$Url";
$stitle="$titel";
$stitle=~s/\ü/ue/gi;
$stitle=~s/\|/ue/gi;
$stitle=~s/\‹/Ue/gi;
$stitle=~s/\ß/ss/gi;
$stitle=~s/\ä/ae/gi;
$stitle=~s/\é/Ae/gi;
$stitle=~s/\Ö/Oe/gi;
$stitle=~s/\ö/oe/gi;
$stitle=~s/\Ãœ/Ü/gi;
$stitle=~s/\ö/ö/gi;
$stitle=~s/\ä/ä/gi;
$stitle=~s/\Ö/Ö/gi;
$stitle=~s/\�/Ü/gi;
$stitle=~s/\Ä/Ä/gi;
$stitle=~s/\Ãœ/Ü/gi;
$stitle=~s/Â//gi;
$desc="$summary";
$desc=~s/\ü/ue/gi;
$desc=~s/\|/ue/gi;
$desc=~s/\‹/Ue/gi;
$desc=~s/\ß/ss/gi;
$desc=~s/\ä/ae/gi;
$desc=~s/\é/Ae/gi;
$desc=~s/\Ö/Oe/gi;
$desc=~s/\ö/oe/gi;
$desc=~s/\Ãœ/Ü/gi;
$desc=~s/\ö/ö/gi;
$desc=~s/\ä/ä/gi;
$desc=~s/\Ö/Ö/gi;
$desc=~s/\�/Ü/gi;
$desc=~s/\Ãœ/Ü/gi;
$desc=~s/\Ä/Ä/gi;
$desc=~s/Â//gi;
if (length($Url)>$urllaenge){
$lurl=substr "$Url","",$urllaenge;
$lurl.="...";
}else{
$lurl=$Url;
}
if (length($desc)>=$beschreibungslaenge){
$desc=substr "$desc","",$beschreibungslaenge;
$desc.="...";
}
if(length($stitle)>$titellaenge){
$stitle=substr "$stitle","",$titellaenge;
$stitle.="...";
}
$color="0";
$image="";
$fat="0";
$keys="";
$descr="$desc";
$zzz++;
$url1="$surl";
if ($specialcrawler eq "on"){
if ($nurtoplevel eq "on"){
$url1 = URI->new($url1);
$this_path= $url1->path_query();
$url1 =~ s/\Q$this_path\E$//;
}
&Spider;
}else{
&Result;
}
}
}elsif ($webcrawler eq "2"){
$kwd1=$letztekategorie; $kwd1=~ s/ /+/g;
my @a;
$suchworte="$kwd1";
$suchworte=~s/ä/ae/gi;
$suchworte=~s/ö/oe/gi;
$suchworte=~s/ü/ue/gi;
$suchworte=~s/Ä/Ae/gi;
$suchworte=~s/Ö/Oe/gi;
$suchworte=~s/Ü/Ue/gi;
$suchworte=~s/ /+/gi;
$suchworte=~s/_/+/gi;
$suchworte=~s/\+\+\+\+\+\+/+/gi;
$suchworte=~s/\+\+\+\+/+/gi;
$suchworte=~s/\+\+\+/+/gi;
$suchworte=~s/\+\+/+/gi;
$suchworte=~s/\-\-/-/gi;
my $resultid;
my $title;
my $url;
my $abstract;
my $redir;
my $imgurl;
my $imgalt;
my $img;
my $alternate;
my $FSCOUNT;

$qry ="$suchworte+$text{'sumaworte'}+$nichtaufnehmen";

my $pagelink = "$ENV{'SCRIPT_NAME'}?qry=$qry";

sub dCode($) {
my $stringval = $_[0];
my $pos = index $stringval,"\xc3";
while ($pos >= 0){
my $newchar = chr(ord (substr $stringval,$pos+1,1) + 64);
substr $stringval,$pos,2,$newchar;
$pos = index $stringval,"\xc3";
}
return $stringval;
}

sub encode($) {
my $stringval = $_[0];
my $pos = -1;
if (length $stringval > 0) { $pos = 0;}
while ($pos >= 0){
if (ord (substr $stringval,$pos,1) > 128) {
  my $newchar = "\xc3".chr(ord (substr $stringval,$pos,1) - 64);
substr $stringval,$pos,0,$newchar;
}
$pos = $pos + 1;
if ($pos > 20) {$pos = -1;}
}
return $stringval;
}

my $xml_feed = "http://www.mirago.de/scripts/xmlhandler.aspx?";
$xml_feed .= "&nRes=".$ergebnisse;
$xml_feed .= "&fsonly=".$nurbezahllinks;
$xml_feed .= "&qry=".$suchworte;
#$xml_feed .= "&ip=$ENV{'REMOTE_ADDR'}";
$xml_feed .= "&ass=$miragopartnercode";
my $currenttag = "";
my $parenttag = "";
my $document ='';
my %resultset;

sub displayResult() {
$url =~ s/\xc2//g;
$url =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$redir =~ s/\xc2//g;
$redir =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$title =~ s/\xc2//g;
$title =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$title=~s/\ü/ue/gi;
$title=~s/\|/ue/gi;
$title=~s/\‹/Ue/gi;
$title=~s/\ß/ss/gi;
$title=~s/\ä/ae/gi;
$title=~s/\é/Ae/gi;
$title=~s/\Ö/Oe/gi;
$title=~s/\ö/oe/gi;
$title=~s/Â//gi;
$abstract =~ s/\xc2//g;
$abstract =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$abstract=~s/\ü/ue/gi;
$abstract=~s/\|/ue/gi;
$abstract=~s/\‹/Ue/gi;
$abstract=~s/\ß/ss/gi;
$abstract=~s/\ä/ae/gi;
$abstract=~s/\é/Ae/gi;
$abstract=~s/\Ö/Oe/gi;
$abstract=~s/\ö/oe/gi;
$abstract=~s/Â//gi;
$surl =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$stitle=$title;
$stitle =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$desc=$abstract;
$desc =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$link=$url;
$stitle=$title;
$fat="0";
$keys="";
$surl=$url;
$surlm="$redir";
$color="0";
$image="";
if (length($url)>$urllaenge){
$lurl=substr "$url","",$urllaenge;
$lurl.="...";
}else{
$lurl=$url;
}
if (length($desc)>=$beschreibungslaenge){
$desc=substr "$desc","",$beschreibungslaenge;
$desc.="...";
}
if(length($stitle)>$titellaenge){
$stitle=substr "$stitle","",$titellaenge;
$stitle.="...";
}
$url1="$url";
if ($specialcrawler eq "on"){
if ($nurtoplevel eq "on"){
$url1 = URI->new($url1);
$this_path= $url1->path_query();
$url1 =~ s/\Q$this_path\E$//;
}
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
$ua = LWP::UserAgent->new();
$request = HTTP::Request->new(GET => $url1);
$response = $ua->request($request);
$dolwp=$response->is_error();
$page=$response->content();
$page=~s/\n/ /gi;
$page=~s/\r/ /gi;
$page=~s/<script.*\/script>//gi;
$page=~s/<style.*\/style>//gi;
while($page=~//){
$page=~s// /gi;
}
$nometa=$page;
$page=~s/>/\>*brkhre\*/gi;
@tags=split(/\*brkhre\*/,$page);
foreach $tag (@tags){
if($tag=~/<meta name=\"?description\"? content=\".*\">/gi){
$tag=~s/<meta name=\"?description\"? content="//gi;
$tag=~s/">//gi;
$tag=~s/</&lt;/gi;
$tag=~s/>/&gt;/gi;
$descc=$tag;
}
}
if ($descc ne ""){
$descr="$descc";
}else{
$descr="$descr";
}
&Spider;
}else{
&Result;
}
}

sub xmlStartTag() {
my ($parser, $name, %attr) = @_;
if ($currenttag ne "") { $parenttag = $currenttag; }
$currenttag = $name;
if ((int (scalar(keys %attr))) > 0) {

for (keys %attr) {
if ($name eq "RESULTSET") {
%resultset = %attr;
}
if ($name eq "RESULT") {
$resultid = $attr{$_}+1;
print " ";
}
}
}
}

sub xmlEndTag() {
my ($parser, $name, %attr) = @_;

if ($name eq "RESULT") {
displayResult();
$title = "";
$abstract = "";
$redir = "";
$url = "";
$imgurl = "";
$imgalt = "";
}
$currenttag = "";
}

sub xmlCharTag() {
my ($parser, $name) = @_;
# $name =~ s/£/£/;
# $name = encode($name);
if ($currenttag eq "ALT" && $name ne "\n") { $alternate = $alternate . $name; }
if ($currenttag eq "TITLE" && $name ne "\n") { $title = $title . $name; }
if ($currenttag eq "ABSTRACT" && $name ne "\n") { $abstract = $abstract . $name; }
if ($currenttag eq "URL" && $name ne "\n") { $url = $url . $name; }
if ($currenttag eq "REDIR" && $name ne "\n") { $redir = $redir . $name; }
if ($currenttag eq "IMGURL" && $name ne "\n") { $imgurl = $imgurl . $name; }
if ($currenttag eq "IMGALT" && $name ne "\n") { $imgalt = $imgalt . $name; }
}

if ($qry ne "") {
my $ua = new LWP::UserAgent;
$ua->agent("xml-fetch/1.0");
$ua->max_size([1000000]);
my $request = new HTTP::Request GET => $xml_feed;
my $resp = $ua->request($request);
$document = $resp->content;
my $xmlParser = new XML::Parser();
$xmlParser->setHandlers(Start => \&xmlStartTag, End => \&xmlEndTag, Char => \&xmlCharTag);
$xmlParser->parse($document);
}
}
}
}

# Spider
#########################################################
sub Spider{
if ($url1 eq ""){}else{
$url=$url1;
$url=~s/%(..)/pack("c",hex($1))/ge;
$title=$stitle;
$title=~s/%(..)/pack("c",hex($1))/ge;
$desc=$descr;
$desc=~s/%(..)/pack("c",hex($1))/ge;
$desc =~ s/\xc2//g;
$desc =~ s/\xc3(.)/chr(ord($1) + 0x40)/eg;
$keys="";
$keys=~s/%(..)/pack("c",hex($1))/ge;
$image="";
$image=~s/%(..)/pack("c",hex($1))/ge;
$pass="";
$pass=~s/%(..)/pack("c",hex($1))/ge;
$ranking="";
$ranking=~s/%(..)/pack("c",hex($1))/ge;
$fat="0";
$fat=~s/%(..)/pack("c",hex($1))/ge;
$color="0";
$color=~s/%(..)/pack("c",hex($1))/ge;
$email="";
$email=~s/%(..)/pack("c",hex($1))/ge;
$f{'realyear'}=~s/%(..)/pack("c",hex($1))/ge;
$f{'realmonth'}=~s/%(..)/pack("c",hex($1))/ge;
$f{'dayofmonth'}=~s/%(..)/pack("c",hex($1))/ge;
$f{'laufyear'}=~s/%(..)/pack("c",hex($1))/ge;
$f{'laufmonth'}=~s/%(..)/pack("c",hex($1))/ge;
$f{'laufday'}=~s/%(..)/pack("c",hex($1))/ge;
my $osuchwort=$url;
my $hit=0;
$uls=~s/%(..)/pack("c",hex($1))/ge;
$diesekatgeorie=~s/ /._./gi;
$diesekatgeorie=~s/\&/.jj./gi;
$diesekatgeorie=~s/\|/.$mehmetoruc./gi;
$katlink=~s/ /._./gi;
$katlink=~s/\&/.jj./gi;
if ($diesekatgeorie ne ""){
open(FILE,"<$datenbank/$datenbankname_$katlink.$mehmetoruc.$diesekatgeorie.txt");
chmod(0644, "$datenbank/$datenbankname_$katlink.$mehmetoruc.$diesekatgeorie.txt");
}else{
open(FILE,"<$datenbank/$datenbankname_$katlink.txt");
chmod(0644, "$datenbank/$datenbankname_$katlink.txt");
}
flock(FILE,2);
@urls=<FILE>;
close(FILE);
foreach $datenteil (@urls){
@splt=split(/}{/,$datenteil);
$uls=@splt[4];
chomp($uls);
chomp($url);
if (($url eq $uls)||($desc eq " ")){
$url="0";
}else{
$uls=~s/%(..)/pack("c",hex($1))/ge;
 opendir(DIR,$datenbank);
 @files=readdir(DIR);
 closedir(DIR);
 foreach $line (@files){
 chomp($line);
 if(($line ne ".")&&($line ne "..")){
 open(FILE,"<$datenbank/$line");
 flock(FILE,2);
 @urls=<FILE>;
 close(FILE);
 foreach $datenteil (@urls){
 @splt=split(/}{/,$datenteil);
 $uls=@splt[4];
 chomp($uls);
 chomp($url);
if($url eq $uls){
$url="0";
}
}
}
}
}
}
if ($url ne "0"){
$desc=$descr;
$stitle=$title;
$keys="";
$desc=~s/}{//gi;
chomp($desc);
$image=~s/}{//gi;
chomp($image);
$pass=~s/}{//gi;
chomp($pass);
$keys=~s/}{//gi;
chomp($keys);
$stitle=~s/}{//gi;
chomp($stitle);
$ranking=~s/}{//gi;
chomp($ranking);
$fat=~s/}{//gi;
chomp($fat);
$color=~s/}{//gi;
chomp($color);
$color=~s/}{//gi;
chomp($color);
$f{'category'}="$kategorie";
chomp($f{'category'});
$kategorie=$f{'category'};
if ($kategorie eq ""){
$f{'category'}="Sonstige";}
$f{'category'}=~s/ /._./gi;
$f{'category'}=~s/\&/.jj./gi;
$f{'category'}=~s/\|/.$mehmetoruc./gi;
$ranking="0";
$color="0";
$fat="0";
my $second=my $minute=my $hour=my $dayofmonth=my $month=my $year=my $weekday=my $dayofyear=my $isdst="";
($second,$minute,$hour,$dayofmonth,$month,$year,$weekday,$dayofyear,$isdst)=localtime(time);
if($dayofmonth<10){$dayofmonth="0$dayofmonth";};
my $realmonth=$month+1;
if($realmonth<10){$realmonth="0$realmonth";};
my $realyear=$year+1900;
open(FILE,">>$datenbank/$datenbankname_$f{'category'}.txt");
chmod(0644, "$datenbank/$datenbankname_$f{'category'}.txt");
flock(FILE,2);
print FILE "$ranking}{$fat}{$color}{$email}{$url}{$stitle}{$image}{$desc}{$keys}{$f{'category'}}{$realyear}{$realmonth}{$dayofmonth}{$laufyear}{$laufmonth}{$laufday}{$pass}{0\n";
close(FILE);
$f{'category'}=~s/._./ /gi;
$f{'category'}=~s/\.jj./&/gi;
$f{'category'}=~s/\.$mehmetoruc./>/gi;
}
$descc=' ';
}
}