# $Id: Tools.pm,v 1.3.2.1 2002/03/28 14:00:55 kenji Exp $
package CGI::Tools;

=head1 NAME

  CGI::Tools - CGI ツール群

=cut

use strict;
use Exporter;
use vars qw(@ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(Escape);



=head2 Escape($str);

$str をエスケープする

=cut

sub Escape($)
{
    my $str = shift;
    $str =~ s/&/&/g;
    $str =~ s/</&lt;/g;
    $str =~ s/>/&gt;/g;
    $str =~ s/\"/&quot;/g;
    $str;
}
1;
################################################################