Handle hostnames with upper-case letters

[webmin.git] / miniserv.pl
diff --git a/miniserv.pl b/miniserv.pl

index 75b694b..2975c84 100755 (executable)
--- a/miniserv.pl
+++ b/miniserv.pl
@@ -1885,7 +1885,7 @@ if ($config{'userfile'}) {
                                 &write_data("WWW-authenticate: Basic ".
                                            "realm=\"$config{'realm'}\"\r\n");
                                 &write_keep_alive(0);
-                               &write_data("Content-type: text/html\r\n");
+                               &write_data("Content-type: text/html; Charset=iso-8859-1\r\n");
                                 &write_data("\r\n");
                                 &reset_byte_count();
                                 &write_data("<html>\n");
@@ -2142,7 +2142,7 @@ if (-d _) {
         local $resp = "HTTP/1.0 $ok_code $ok_message\r\n".
                       "Date: $datestr\r\n".
                       "Server: $config{server}\r\n".
-                     "Content-type: text/html\r\n";
+                     "Content-type: text/html; Charset=iso-8859-1\r\n";
         &write_data($resp);
         &write_keep_alive(0);
         &write_data("\r\n");
@@ -2555,7 +2555,7 @@ else {
         &write_data("HTTP/1.0 $_[0] $_[1]\r\n");
         &write_data("Server: $config{server}\r\n");
         &write_data("Date: $datestr\r\n");
-       &write_data("Content-type: text/html\r\n");
+       &write_data("Content-type: text/html; Charset=iso-8859-1\r\n");
         &write_keep_alive(0);
         &write_data("\r\n");
         &reset_byte_count();
@@ -5185,7 +5185,9 @@ if (!$pid) {
         close(STDIN); close(STDOUT); close(STDERR);
         untie(*STDIN); untie(*STDOUT); untie(*STDERR);
         close($PASSINw); close($PASSOUTr);
-       $( = $uinfo[3]; $) = "$uinfo[3] $uinfo[3]";
+       ($(, $)) = ( $uinfo[3],
+                     "$uinfo[3] ".join(" ", $uinfo[3],
+                                            &other_groups($uinfo[0])) );
         ($>, $<) = ($uinfo[2], $uinfo[2]);
  
         close(SUDOw);
@@ -5230,6 +5232,19 @@ if ($PASSINw) {
  return $ok;
  }
  
+sub other_groups
+{
+my ($user) = @_;
+my @rv;
+setgrent();
+while(my @g = getgrent()) {
+        my @m = split(/\s+/, $g[3]);
+        push(@rv, $g[2]) if (&indexof($user, @m) >= 0);
+        }
+endgrent();
+return @rv;
+}
+
  # is_mobile_useragent(agent)
  # Returns 1 if some user agent looks like a cellphone or other mobile device,
  # such as a treo.
@@ -5270,19 +5285,24 @@ local @substrings = (
      "iPhone",            # Apple iPhone KHTML browser
      "iPod",              # iPod touch browser
      "MobileSafari",      # HTTP client in iPhone
-    "Android",           # gPhone
      "Opera Mini",        # Opera Mini
      "HTC_P3700",         # HTC mobile device
      "Pre/",              # Palm Pre
      "webOS/",            # Palm WebOS
      "Nintendo DS",       # DSi / DSi-XL
      );
+local @regexps = (
+    "Android.*Mobile",   # Android phone
+    );
  foreach my $p (@prefixes) {
         return 1 if ($agent =~ /^\Q$p\E/);
         }
  foreach my $s (@substrings, @mobile_agents) {
         return 1 if ($agent =~ /\Q$s\E/);
         }
+foreach my $s (@regexps) {
+       return 1 if ($agent =~ /$s/);
+       }
  return 0;
  }