Herzlich willkommen im Archiv vom ABAKUS Online Marketing Forum
Du befindest Dich im Archiv vom ABAKUS Online Marketing Forum. Hier kannst Du Dich für das Forum mit den aktuellen Beiträgen registrieren.
Code: Alles auswählen
$sstr = &getparam ($ref, "(p|q|qr|qt|qry|query|query.?string|question|qkw|k|kw|key|keyword|[Kk]eywords|general|search|searchfor|s?string|su|w|word|words|ask|MT|suche|suchstr|suchbegriff|plz|title|terms?|swords?|searchval)=");
sub getparam {
my $result = shift;
my $parn = shift;
$result =~ s/.*\?//;
my @params = split ("&", $result);
$result = "";
foreach my $param (@params) {
if ($param =~ s/^$parn//) {
$result = $param;
}
}
$result = &decodeencodedstring ($result);
$result = &utf8_to_latin1 ($result);
return $result;
}
sub utf8_to_latin1 {
my $string = shift;
my $format = $ENV{"UCFORMAT"}||('%lx');
use bytes;
$string =~ s/([\xC0-\xDF])([\x80-\xBF])/sprintf ("%c", hex(sprintf($format,unpack("c",$1)<<6&0x07C0|unpack("c",$2)&0x003F)))/ge;
$string =~ s/([\xE0-\xEF])([\x80-\xBF])([\x80-\xBF])/sprintf ("%c", hex(sprintf($format,unpack("c",$1)<<12&0xF000|unpack("c",$2)<<6&0x0FC0|unpack("c",$3)&0x003F)))/ge;
$string =~ s/([\xF0-\xF7])([\x80-\xBF])([\x80-\xBF])([\x80-\xBF])/sprintf ("%c", hex(sprintf($format,unpack("c",$1)<<18&0x1C0000|unpack("c",$2)<<12&0x3F000|unpack("c",$3)<<6&0x0FC0|unpack("c",$4)&0x003F)))/ge;
no bytes;
return $string;
}
sub decodeencodedstring {
my $stringtodecode = shift;
$stringtodecode =~ tr/\+/ /s;
$stringtodecode =~ s/%([A-F0-9][A-F0-9])/pack("C", hex($1))/ieg;
$stringtodecode =~ s/\\x([A-F0-9][A-F0-9])/pack("C", hex($1))/ieg;
return $stringtodecode;
}
