use warnings;
use My::Web;
-require CGI;
Wrequire 'resume::ResumeJanKratochvil';
use Carp qw(confess cluck);
use warnings;
use My::Web;
-require CGI;
use URI::Escape;
require LWP::Simple;
@EXPORT=qw(%WebConfig);
use My::Web;
-require CGI;
my $resume_url="/resume/Resume-JanKratochvil.pm/Resume-JanKratochvil.html";
return My::Web::a_href("http://www.jankratochvil.net/","Jan Kratochvil") if 0
|| $name eq "short"
|| $name eq "lace";
- return CGI::escapeHTML($name);
+ return escapeHTML($name);
},
"viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/www/www.jankratochvil.net/",
"title_prefix"=>"Jan Kratochvil",
use warnings;
use My::Web;
-require CGI;
Wrequire 'project::Lib';
use warnings;
use My::Web;
-require CGI;
use Carp qw(cluck confess);
use Exporter;
return "Download".$_[0];
},
"format"=>sub ($) {
- return a_href($_[0],CGI::escapeHTML(File::Basename::basename($_[0])),"size"=>2);
+ return a_href($_[0],escapeHTML(File::Basename::basename($_[0])),"size"=>2);
}},
{"key"=>qr(^link\b),"text"=>sub ($) {
$_[0]=~s/^link-//;
return $_[0];
},
"format"=>sub ($) {
- return($_[0]=~/^<a\b/ ? $_[0] : a_href($_[0],CGI::escapeHTML($_[0])));
+ return($_[0]=~/^<a\b/ ? $_[0] : a_href($_[0],escapeHTML($_[0])));
}},
{"key"=>qr(^cvs\b),"text"=>sub ($) {
$_[0]=~s/^cvs//;
my $branch="";
$branch=$1 if $val=~s/:(.*)//;
return join("<br />\n\t\t",
- CGI::escapeHTML("cvs -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." -z3"
+ escapeHTML("cvs -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." -z3"
." checkout".(!$branch ? "" : " -r $branch -kk")
.($val!~m#/# ? "" : " -d ".File::Basename::basename($val))
." $val"),
{"key"=>"ownership","text"=>"Ownership"},
{"key"=>"sponsorship","text"=>"Sponsorship"},
{"key"=>"language","text"=>"Programming language","format"=>sub ($) {
- return a_href("http://java.sun.com/",CGI::escapeHTML($_[0]))
+ return a_href("http://java.sun.com/",escapeHTML($_[0]))
if $_[0]=~/^Java\b/;
- return a_href("http://www.php.net/",CGI::escapeHTML($_[0]))
+ return a_href("http://www.php.net/",escapeHTML($_[0]))
if $_[0]=~/^PHP\b/;
return undef();
}},
mobile SMS forwarding, @{[ a_href 'http://www.mutt.org/','Mutt' ]} integration,
@{[ a_href 'http://www.nokia.com/phones/9110i','Nokia Communicator' ]} contacts directory integration.</p>
<p>Use if you like: <span class="quote">
- @{[ CGI::escapeHTML(q{store "=spam" if ($_=mimehead(body_first())->mime_attr("Content-Type")) && m#text/html#i;}) ]}
+ @{[ escapeHTML(q{store "=spam" if ($_=mimehead(body_first())->mime_attr("Content-Type")) && m#text/html#i;}) ]}
</span></p>
HERE
);
for (my @URLa=@URLs;@URLa;) {
my $text=shift @URLa;
my $url=shift @URLa;
- print "\t<li>".a_href($url,CGI::escapeHTML($text))."</li>\n";
+ print "\t<li>".a_href($url,escapeHTML($text))."</li>\n";
}
print "</ul>\n";
use warnings;
use My::Web;
-require CGI;
sub handler
use warnings;
use My::Web;
-require CGI;
sub handler
use warnings;
use My::Web;
-require CGI;
sub handler
use warnings;
use My::Web;
-require CGI;
sub handler
use warnings;
use My::Web;
-require CGI;
sub handler
use warnings;
use My::Web;
-require CGI;
sub handler
use warnings;
use My::Web;
-require CGI;
sub handler
use warnings;
use My::Web;
-require CGI;
sub handler
use warnings;
use My::Web;
-require CGI;
sub handler
our @ISA=qw(Exporter);
use My::Web;
-require CGI;
Wrequire 'project::Lib';
{
my($url,$name)=@_;
- return '<span class="productname">'.a_href($url,CGI::escapeHTML($name)).'</span>';
+ return '<span class="productname">'.a_href($url,escapeHTML($name)).'</span>';
}
our($Wine,$ReactOS,$LinuxNTFS,$GnomeVFS,$GnomeVFSmodule,$gnulinux,$freespeech,$freebeer);
use warnings;
use My::Web;
-require CGI;
sub handler
use warnings;
use My::Web;
-require CGI;
sub handler
<blockquote class="command">
<p># Rename xpsp1sym_x86_chk.exe contents .pdb files for WinDbg<br />
- @{[ CGI::escapeHTML(q{for i in *.pdb*;do ext="`echo $i|sed 's/^.*\.pdb\.\(.*\)$/\1/'`";if [ "$i" = "$ext" ];then echo "BAD:$i";break;fi;base="`echo $i|sed 's/\(\.pdb\)\..*$/\1/'`";echo "md $ext";echo "move /-y $i $ext\\$base";done|sort -u|sed 's/$/'`echo -ne '\r'`'/g' >/tmp/rename.bat}) ]}</p>
+ @{[ escapeHTML(q{for i in *.pdb*;do ext="`echo $i|sed 's/^.*\.pdb\.\(.*\)$/\1/'`";if [ "$i" = "$ext" ];then echo "BAD:$i";break;fi;base="`echo $i|sed 's/\(\.pdb\)\..*$/\1/'`";echo "md $ext";echo "move /-y $i $ext\\$base";done|sort -u|sed 's/$/'`echo -ne '\r'`'/g' >/tmp/rename.bat}) ]}</p>
</blockquote>
<p>The resulting <span class="command">rename.bat</span> for
use warnings;
use My::Web;
-require CGI;
sub handler
</li>
<li>
<p>Bookmark the following @{[ a_href 'http://freshmeat.net/','Freshmeat' ]} URL:
- @{[ CGI::escapeHTML(q{http://localhost/~lace/cgi-bin/postget.php?_postget=http%3A%2F%2Ffreshmeat.net%2Flogin%2F&url=%2F&username=YOUR_USERNAME&password=_priv_postget.freshmeat.net.pwd&persistent=1}) ]}
+ @{[ escapeHTML(q{http://localhost/~lace/cgi-bin/postget.php?_postget=http%3A%2F%2Ffreshmeat.net%2Flogin%2F&url=%2F&username=YOUR_USERNAME&password=_priv_postget.freshmeat.net.pwd&persistent=1}) ]}
</p>
<p>(Replace <b>YOUR_USERNAME</b> with your @{[ a_href 'http://freshmeat.net/','Freshmeat' ]}
account name.</p>
my($file)=@_;
return a_href $W->{"project_viewcvs"}.'/*checkout*/ssht/hostintranet/etc-inittab?rev=HEAD',
- CGI::escapeHTML($file);
+ escapeHTML($file);
};
print <<"HERE";
use warnings;
use My::Web;
-require CGI;
require Crypt::Rot13;
Wrequire 'project::Lib';
<hr />
<form method="post" action="@{[ uri_escaped(path_web $W->{"resume_url"}) ]}">
<p>Enter the word '<b>referees</b>' (without quotes) to disclose e-mail addresses:<br />
- <input type="text" size="15" name="referees" value="@{[ CGI::escapeHTML($W->{"args"}{"referees"}) ]}" /><br />
+ <input type="text" size="15" name="referees" value="@{[ escapeHTML($W->{"args"}{"referees"}) ]}" /><br />
<input type="submit" value="Submit" /><br />
(spambot protection)</p>
</form>