Yu1709$!%yuyu!$%wutu!5=126+

                
____  ___       .__                 
\   \/  /  _____|  |   ______  _  __
 \     /  /  ___/  |  /  _ \ \/ \/ /
 /     \  \___ \|  |_(  <_> )     / 
/___/\  \/____  >____/\____/ \/\_/  
      \_/     \/    @ligmakokz

Editing: test.pm.html

<pre><tt># Here an extract of package MIME::Lite::HTML

package MIME::Lite::HTML;

# module MIME::Lite::HTML : Provide routine to transform a HTML page in 
# a MIME::Lite mail
# Copyright 2001 A.Barbet alian@alianwebserver.com. All rights reserved.

# Revision 1.1 2002/02/07 15:58:35 bettini
# added scanner for perl
#
# Revision 1.12 2002/01/07 20:18:53 alian
# - Add replace links for frame &amp; iframe
# - Correct incorrect parsing in include_css for &lt;LINK REL="SHORTCUT ICON"&gt;
# tag. Tks to doggy@miniasp.com for idea and patch
#
# Revision 1.11 2001/12/13 22:42:33 alian
# - Correct a bug with relative anchor
#
# Revision 1.10 2001/11/07 10:52:43 alian
# - Add feature for get restricted url. Add LoginDetails parameter for that
# (tks to Leon.Halford@ing-barings.com for idea)
# - Change error in POD doc rfc2257 =&gt; rfc2557 (tks to
# justin.zaglio@morganstanley.com)
# - Correct warning when $url_html is undef

use LWP::UserAgent;
use HTML::LinkExtor;
use URI::URL;
use MIME::Lite;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

require Exporter;

@ISA = qw(Exporter);
@EXPORT = qw();

my $LOGINDETAILS;

#------------------------------------------------------------------------------
# redefine get_basic_credentials
#------------------------------------------------------------------------------
{
 package RequestAgent;
 use vars qw(@ISA);
 @ISA = qw(LWP::UserAgent);

sub new
 { 
	my $self = LWP::UserAgent::new(@_);
	$self;
 }

sub get_basic_credentials
	{	
	 my($self, $realm, $uri) = @_;
	 # Use parameter of MIME-Lite-HTML, key LoginDetails
	 if (defined $LOGINDETAILS) { return split(':', $LOGINDETAILS, 2); } 
	 # Ask user on STDIN
	 elsif (-t) 
	 {
		my $netloc = $uri-&gt;host_port;
		print "Enter username for $realm at $netloc: ";
		my $user = &lt;STDIN&gt;;
		chomp($user);
		# 403 if no user given
		return (undef, undef) unless length $user;
		print "Password: ";
		system("stty -echo");
		my $password = &lt;STDIN&gt;;
		system("stty echo");
		print "\n"; # because we disabled echo
		chomp($password);
		return ($user, $password);
	 }
	 # Damm we got 403 with CGI (use param LoginDetails) ...
	 else { return (undef, undef) }
	}
 }

#------------------------------------------------------------------------------
# new
#------------------------------------------------------------------------------
sub new
 {
 my $class = shift;
 my $self = {};
 bless $self, $class;
 my %param = @_;
 # Agent name
 $self-&gt;{_AGENT} = new RequestAgent;
 $self-&gt;{_AGENT}-&gt;agent("MIME-Lite-HTML $VERSION");
 $self-&gt;{_AGENT}-&gt;from('mime-lite-html@alianwebserver.com' );
 # Set debug level
 if ($param{'Debug'})
 {
	$self-&gt;{_DEBUG} = 1;
	delete $param{'Debug'};
 }
 # Set Login information
 if ($param{'LoginDetails'})
 {
	 $LOGINDETAILS = $param{'LoginDetails'};
	 delete $param{'LoginDetails'};
 }
 # Set type of include to do
 if ($param{'IncludeType'})
 {
	die "IncludeType must be in 'extern', 'cid' or 'location'\n" if
	 ( ($param{'IncludeType'} ne 'extern') and
	 ($param{'IncludeType'} ne 'cid') and
	 ($param{'IncludeType'} ne 'location'));	
	$self-&gt;{_include} = $param{'IncludeType'};
	delete $param{'IncludeType'};
 }
 # Defaut type: use a Content-Location field
 else {$self-&gt;{_include}='location';}

## Added by Michalis@linuxmail.org to manipulate non-us mails
 if ($param{'TextCharset'}) {
 $self-&gt;{_textcharset}=$param{'TextCharset'};
 delete $param{'TextCharset'};
 }
 else { $self-&gt;{_textcharset}='iso-8859-1'; }
 if ($param{'HTMLCharset'}) {
 $self-&gt;{_htmlcharset}=$param{'HTMLCharset'};
 delete $param{'HTMLCharset'};
 }
 else { $self-&gt;{_htmlcharset}='iso-8859-1'; }

if ($param{'TextEncoding'}) {
 $self-&gt;{_textencoding}=$param{'TextEncoding'};
 delete $param{'TextEncoding'};
 }
 else { $self-&gt;{_textencoding}='7bit'; }

if ($param{'HTMLEncoding'}) {
 $self-&gt;{_htmlencoding}=$param{'HTMLEncoding'};
 delete $param{'HTMLEncoding'};
 }
 else { $self-&gt;{_htmlencoding}='quoted-printable'; }
## End. Default values remain as they were initially set.
## No need to change existing scripts if you send US-ASCII. 
## If you DON't send us-ascii, you wouldn't be able to use 
## MIME::Lite::HTML anyway :-)

# Set proxy to use to get file
 if ($param{'Proxy'})
 {
	$self-&gt;{_AGENT}-&gt;proxy('http',$param{'Proxy'}) ;
	print "Set proxy for http : ", $param{'Proxy'},"\n" 
	 if ($self-&gt;{_DEBUG});
	delete $param{'Proxy'};
 }
 # Set hash to use with template
 if ($param{'HashTemplate'})
 {
	$param{'HashTemplate'} = ref($param{'HashTemplate'}) eq "HASH" 
	 ? $param{'HashTemplate'} : %{$param{'HashTemplate'}};
	$self-&gt;{_HASH_TEMPLATE}= $param{'HashTemplate'};
	delete $param{'HashTemplate'};
 }
 $self-&gt;{_param} = \%param;
 # Ok I hope I known what I do ;-)
 MIME::Lite-&gt;quiet(1);
 return $self;
 }

#------------------------------------------------------------------------------
# POD Documentation
#------------------------------------------------------------------------------

=head1 NAME

MIME::Lite::HTML - Provide routine to transform a HTML page in a MIME-Lite mail

=head1 SYNOPSIS

#!/usr/bin/perl -w 
 # A cgi program that do "Mail this page to a friend";
 # Call this script like this :
 # script.cgi?email=myfriend@isp.com&amp;url=http://www.go.com
 use strict;
 use CGI qw/:standard/;
 use CGI::Carp qw/fatalsToBrowser/;
 use MIME::Lite::HTML;
 
 my $mailHTML = new MIME::Lite::HTML
 From =&gt; 'MIME-Lite@alianwebserver.com',
 To =&gt; param('email'),
 Subject =&gt; 'Your url: '.param('url');
 
 my $MIMEmail = $mailHTML-&gt;parse(param('url'));
 $MIMEmail-&gt;send; # or for win user : $mail-&gt;send_by_smtp('smtp.fai.com');
 print header,"Mail envoye (", param('url'), " to ", param('email'),")&lt;br&gt;\n";

=head1 DESCRIPTION

This module is a Perl mail client interface for sending message that 
support HTML format and build them for you..
This module provide routine to transform a HTML page in MIME::Lite mail.
So you need this module to use MIME-Lite-HTML possibilities

=head2 What's happen ?

The job done is:

=over

=item *

Get the file (LWP) if needed

=item *

Parse page to find include images (gif, jpg, flash)

=item *

Attach them to mail with adequat header if asked (default)

=item *

Include external CSS,Javascript file

=item *

Replace relative url with absolute one

=item *

Build the final MIME-Lite object with each part found

=back

=cut

## the next one is just to see if =cut is recognized
sub foo
 {
 my $class = shift;
 my $self = {};
 bless $self, $class;
 $content =~ s/^.*content:.*?\"//i;
 }

$theline =~ s/(&lt;=|=&gt;|=|\-|\+|\*|\/|\*\*|;|:|\\|\'|\"|,|\.|$|$|\[|\]|\{|\}|&lt;|&gt;)/\&lt;span class\=\"op\"\&gt;$1\&lt;\/span&gt;/g;

$theline =~ s/(&lt;=|=&gt;|=|\-|\+|\*|\/|\*\*|;|:|\\|\'|\"|,|\.|$|$|\[|\]|\{|\}|&lt;|&gt;)/g;

if($#ARGV==2){}

$someString =~ m/anything/gix ;
$someString =~ /anything/ ;
if($someString =~ /anything/g ){}
if( /anything/ ){}

if($somestring =~ s/something/something else/gi ){}
$somestring =~ /something/something else/ ;
$somestring =~ qr/something/something else/ ;
</tt></pre>

Name	Type	Actions
examples	Directory
COPYING	File
CREDITS	File
ChangeLog	File
Hello.css	File
Hello.java	File
Hello.java.html	File
Hello1.html	File
Hello2.css	File
Hello2.html	File
Hello3.html	File
Hello4.html	File
Hello5.html	File
Hello_h_f.html	File
Hello_lines.html	File
Hello_notfixed.html	File
Hello_xhtml.html	File
Hello_xhtml2.html	File
INSTALL	File
NEWS	File
README	File
SimpleClass-doc.html	File
SimpleClass.html	File
SimpleClass.java	File
THANKS	File
TODO.txt	File
UsageExample.html	File
UsageExample.java	File
access.log.html	File
auth.log.html	File
c.lang.html	File
cmdline.h.html	File
colors.html	File
cpp2html.css	File
default.css	File
default.style.html	File
error.log.html	File
examples.html	File
flex_scanner.ll.html	File
footer.html	File
header.html	File
index.html	File
langdef.lang.html	File
log.lang.html	File
mono-alt.css	File
mono.css	File
sh_acid.css	File
sh_berries-dark.css	File
sh_berries-light.css	File
sh_bipolar.css	File
sh_blacknblue.css	File
sh_bright.css	File
sh_contrast.css	File
sh_darkblue.css	File
sh_darkness.css	File
sh_desert.css	File
sh_dull.css	File
sh_easter.css	File
sh_emacs.css	File
sh_golden.css	File
sh_greenlcd.css	File
sh_ide-anjuta.css	File
sh_ide-codewarrior.css	File
sh_ide-devcpp.css	File
sh_ide-eclipse.css	File
sh_ide-kdev.css	File
sh_ide-msvcpp.css	File
sh_kwrite.css	File
sh_matlab.css	File
sh_navy.css	File
sh_nedit.css	File
sh_neon.css	File
sh_night.css	File
sh_pablo.css	File
sh_peachpuff.css	File
sh_print.css	File
sh_rand01.css	File
sh_the.css	File
sh_typical.css	File
sh_vampire.css	File
sh_vim-dark.css	File
sh_vim.css	File
sh_whatis.css	File
sh_whitengrey.css	File
sh_zellner.css	File
source-highlight.cc.html	File
source-highlight.html	File
style_examples.html	File
syslog.log.html	File
syslog.style.html	File
test.htm.html	File
test.java.html	File
test.java.tex.html	File
test.js.html	File
test.log.html	File
test.lua.html	File
test.ml.html	File
test.php3.html	File
test.pl.html	File
test.pm.html	File
test.py.html	File
test.rb.html	File
test.sml.html	File
test_linerange_sep.html	File
test_refs.cpp.html	File
test_refs.h.html	File
test_regexrange4.html	File
xhtml.css	File