#!/usr/bin/perl use strict; use warnings; use CGI; binmode(STDOUT,":utf8"); #it doesnt print right with it here or not my $t=qq(<img border="0px" src="http://server.com/T.png" alt="T.png" +/>); my $req = CGI->new(); use LWP::Simple; my $content= get($req->param('go')); $content=~s|<div id="jump-to-nav">.*?</div>||g; $content=~s|<div class="printfooter".*|</body></html>|msg; $content=~s|"(/tmpwiki/phase3)|"http://server.com$1|g; $content=~s|<head>.*</head>|<head><meta http-equiv="Content-Type" cont +ent="text/html;charset=utf-8" /><title>BTT</title></head>|msg; $content=~s|(\<img)|$1 border="0px" |msg; $content=~s|BTT400:||; $content=~s|$t.*?$t||msg; if ($req->param("f")){ print "Content-type: application/x-download\nContent-Disposition:attac +hment;filename=\"Business Requirement.doc\"\n\n".$content; }else{print $req->header().$content;}
In reply to Unicode With LWP by zer
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |