Perl/\347\222\260\345\242\203\345\244\211\346\225\260.md
... ...
@@ -35,7 +35,7 @@ my $cginame = 'PrintEnv';
35 35
36 36
printHeader();
37 37
38
-print $q->start_table( { '-summary' => 'ENV', '-border' => 1 } );
38
+print $q->start_table( { '-summary' => 'ENV', '-border' => 1, '-style' => 'width: 100%;' } );
39 39
print $q->Tr( $q->th( [ 'Key', 'Value' ] ) );
40 40
foreach ( sort( keys(%ENV) ) ) {
41 41
if (/^(CONTENT_|GEOIP_|HTTPS|HTTP_|QUERY_|REMOTE_|REQUEST_|SERVER_(ADDR|NAME|PORT|PROTOCOL))/i)
... ...
@@ -62,6 +62,9 @@ sub printHeader {
62 62
'-head' => [
63 63
$q->meta( { '-http_equiv' => 'Content-style-type', '-content' => 'text/css' } ),
64 64
$q->meta( { '-http_equiv' => 'Content-script-type', '-content' => 'text/javascript' } ),
65
+ $q->meta(
66
+ { '-name' => 'viewport', '-content' => 'width=device-width, initial-scale=1' }
67
+ ),
65 68
],
66 69
'-style' => [ { 'src' => '/take.css' }, ],
67 70
);