102 |
warn "got ",length($html), " bytes"; |
warn "got ",length($html), " bytes"; |
103 |
|
|
104 |
while ( $html =~ s{(<style.+?/style>)}{}gs ) { |
while ( $html =~ s{(<style.+?/style>)}{}gs ) { |
105 |
$self->add_head( $1 ); |
my $style = $1; |
106 |
|
$style =~ s[((?:body|html)\s+{[^}]+})][/\* $1 \*/]sg; # remove some styles |
107 |
|
$self->add_head( $style ); |
108 |
} |
} |
109 |
|
|
110 |
$self->add_head(qq| |
$self->add_head(qq| |
114 |
td.results:hover ul.test-out { display: block; } |
td.results:hover ul.test-out { display: block; } |
115 |
</style> |
</style> |
116 |
|); |
|); |
117 |
|
$html =~ s{<div id="menu">.+?</div>}{}sg; # remove menu which doesn't work without JavaScript |
118 |
|
|
119 |
$html =~ s{^.*<body>}{}s; |
$html =~ s{^.*<body>}{}s; |
120 |
$html =~ s{</body>.*$}{}s; |
$html =~ s{</body>.*$}{}s; |