[Netpass-devel] NetPass/www/components OSDetect,1.1.1.1,1.2

[jeff m. <jef...@us...>]

Update of /cvsroot/netpass/NetPass/www/components
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv4093/www/components

Modified Files:
	OSDetect 
Log Message:
enhances os detection

Index: OSDetect
===================================================================
RCS file: /cvsroot/netpass/NetPass/www/components/OSDetect,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- OSDetect	24 Sep 2004 01:05:20 -0000	1.1.1.1
+++ OSDetect	29 Aug 2007 17:34:25 -0000	1.2
@@ -13,16 +13,22 @@
 	my $ua = lc($ENV{'HTTP_USER_AGENT'});
         my $os = "Unknown";
 
+	my @os_list = ( 'linux', 'x11', 'mac',
+		'Windows NT 6.0', 'Windows NT 5.1', 'Windows',
+		'bsd' );
+
         my $os_map =    {
                          'linux' => 'Linux',
                          'x11'   => 'Unix',
                          'mac'   => 'Mac',
-                         'win'   => 'Windows',
+                         'Windows NT 6.0'   => 'Windows Vista',
+                         'Windows NT 5.1'   => 'Windows XP',
+                         'Windows'   => 'Windows Other',
                          'bsd'   => 'BSD'
                         };
 
-        foreach my $k (sort keys(%$os_map)) {
-                if($ua =~ /$k/) {
+        foreach my $k (@os_list)) {
+                if($ua =~ /$k/i) {
                         $os = $os_map->{$k};
                         last;
                 }