Handle hostnames with upper-case letters

[webmin.git] / rpc.cgi

diff --git a/rpc.cgi b/rpc.cgi
index daed9c3..c2de740 100755 (executable)
--- a/rpc.cgi
+++ b/rpc.cgi
@@ -17,6 +17,7 @@ if ($ENV{'REQUEST_METHOD'} eq 'POST') {
        while($left > 0) {
                read(STDIN, $got, $left) > 0 || last;
                $rawarg .= $got;
+               $left = $ENV{'CONTENT_LENGTH'} - length($rawarg);
                }
        }
 else {