%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /proc/self/root/proc/self/root/usr/share/perl5/vendor_perl/
Upload File :
Create Path :
Current File : //proc/self/root/proc/self/root/usr/share/perl5/vendor_perl/Browserdata.pm

package Browserdata;

=head1

	#############################################################################
	#
	#	+-----------------------
	#	| Package Browserdata
	#	+-----------------------
	#
	#	Aufgabe:	Auswertung von Browserdaten und Senden einer e-Mail, falls
	#						neue Browserdaten auftreten, um diese analysieren zu k�nnen.
	#
	#	Betriebssystem des aufrufenden Clients : 
	#			L .. Linux,	W .. Windows, 
	#			U .. Unix,	S .. Solaris
	#
	#	Browsertyp des aufrufenden Clients :
	#			M .. Mozilla,	N .. Netscpae
	#			O .. Opera,		I .. InternetExplorer
	#			L .. Lynx,		K .. konquerer
	#
	#	Browserversion des aufrufenden Clients :
	#			ausgewertet wird nur der Wert vor dem Komma (Dot)
	#
	#	erstellt: Santana, Aug 2003
	#
	#	vorgesehener Einsatz: www0, webmail, jeweils in identischer Form
	#
	#############################################################################

=cut

use strict;
use warnings;

#__Daten des aufrufenden Browsers ermitteln und zur�ckgeben__
sub getBrowserdata() {
	return("","","") unless (defined($ENV{HTTP_USER_AGENT}));
	my $user_agent = $ENV{HTTP_USER_AGENT};
	my ($browser, $version, $system) = ("-","-","-");	
	$system="W" if ($user_agent =~ /win/i);
	$system="L" if ($user_agent =~ /linux/i);
	$system="U" if ($user_agent =~ /unix/i);
	$system="S" if ($user_agent =~ /solaris/i);
	if ($user_agent =~ /mozilla/i) {		
		$browser = "M";	
		my $test = $user_agent;		
		$test =~ /mozilla\/(\d)/i;
		$version = $1;		
	}
	if ($user_agent =~ /msie/i) {		
		$browser = "I";
		my $test = $user_agent;				
		$test =~ /MSIE\s(\d)/i;
		$version = $1;			
	}
	if ($user_agent =~ /netscape/i) {		
		$browser = "N";	
		my $test = $user_agent;		
		$test =~ /netscape\/(\d)/i;
		$version = $1;			
		unless (defined($1)) {
			$test =~ /Mozilla\/(\d)/i;
			$version = $1;			
		}
	}
	if ($user_agent =~ /opera/i) {		
		$browser = "O";	
		my $test = $user_agent;		
		$test =~ /Opera\s(\d)/i;
		$version = $1;	
	}
	if ($user_agent =~ /konquerer/i) {		
		$browser = "K";	
		my $test = $user_agent;		
		$test =~ /Version\s(\d)/i;
		$version = $1;	
	}
	if ($user_agent =~ /lynx/i) {		
		$browser = "L";	
		my $test = $user_agent;		
		$test =~ /lynx\/(\d)/i;
		$version = $1;	
	}
	$system = "-" unless(defined($system));
	$browser = "-" unless(defined($browser));
	$version = "-" unless(defined($version));
	return($system, $browser, $version);
}

#__Feststellen ob Browser aktuell__
sub getBrowseraktuell($$) {
	my ($typ, $version) = @_;
	return(1) if (lc $typ eq lc "M" and $version >= 5);
	return(1) if (lc $typ eq lc "I" and $version >= 6);	
	return(1) if (lc $typ eq lc "N" and $version >= 7);
	return(1) if (lc $typ eq lc "O" and $version >= 7);
	return;
}

1;
__DATA__

Zerion Mini Shell 1.0