Gecko [ lostrivercommunitycenter.com ]

Name	Size	Permission	Date
examples	[ DIR ]	drwxr-xr-x	2026-09-29 03:01
COPYING	34.32 KB	-rw-r--r--	2024-08-13 19:55
CREDITS	2.72 KB	-rw-r--r--	2024-08-13 19:55
ChangeLog	56.06 KB	-rw-r--r--	2024-08-13 19:55
Hello.css	284 B	-rw-r--r--	2024-08-13 19:55
Hello.java	1.26 KB	-rw-r--r--	2024-08-13 19:55
Hello.java.html	5.79 KB	-rw-r--r--	2024-08-13 19:55
Hello1.html	5.58 KB	-rw-r--r--	2024-08-13 19:55
Hello2.css	273 B	-rw-r--r--	2024-08-13 19:55
Hello2.html	5.79 KB	-rw-r--r--	2024-08-13 19:55
Hello3.html	5.82 KB	-rw-r--r--	2024-08-13 19:55
Hello4.html	7.47 KB	-rw-r--r--	2024-08-13 19:55
Hello5.html	7.48 KB	-rw-r--r--	2024-08-13 19:55
Hello_h_f.html	8.58 KB	-rw-r--r--	2024-08-13 19:55
Hello_lines.html	7.45 KB	-rw-r--r--	2024-08-13 19:55
Hello_notfixed.html	6.37 KB	-rw-r--r--	2024-08-13 19:55
Hello_xhtml.html	7.54 KB	-rw-r--r--	2024-08-13 19:55
Hello_xhtml2.html	8.57 KB	-rw-r--r--	2024-08-13 19:55
INSTALL	12.24 KB	-rw-r--r--	2024-08-13 19:55
NEWS	21.44 KB	-rw-r--r--	2024-08-13 19:55
README	4.52 KB	-rw-r--r--	2024-08-13 19:55
SimpleClass-doc.html	8.96 KB	-rw-r--r--	2024-08-13 19:55
SimpleClass.html	11.9 KB	-rw-r--r--	2024-08-13 19:55
SimpleClass.java	1.76 KB	-rw-r--r--	2024-08-13 19:55
THANKS	2.46 KB	-rw-r--r--	2024-08-13 19:55
TODO.txt	3.85 KB	-rw-r--r--	2024-08-13 19:55
UsageExample.html	1.81 KB	-rw-r--r--	2024-08-13 19:55
UsageExample.java	309 B	-rw-r--r--	2024-08-13 19:55
access.log.html	42.12 KB	-rw-r--r--	2024-08-13 19:55
auth.log.html	4.21 KB	-rw-r--r--	2024-08-13 19:55
c.lang.html	3.55 KB	-rw-r--r--	2024-08-13 19:55
cmdline.h.html	88.01 KB	-rw-r--r--	2024-08-13 19:55
colors.html	1.46 KB	-rw-r--r--	2024-08-13 19:55
cpp2html.css	467 B	-rw-r--r--	2024-08-13 19:55
default.css	1.45 KB	-rw-r--r--	2024-08-13 19:55
default.style.html	8.7 KB	-rw-r--r--	2024-08-13 19:55
error.log.html	29.98 KB	-rw-r--r--	2024-08-13 19:55
examples.html	8.8 KB	-rw-r--r--	2024-08-13 19:55
flex_scanner.ll.html	27.41 KB	-rw-r--r--	2024-08-13 19:55
footer.html	619 B	-rw-r--r--	2024-08-13 19:55
header.html	517 B	-rw-r--r--	2024-08-13 19:55
index.html	19.39 KB	-rw-r--r--	2024-08-13 19:55
langdef.lang.html	2.16 KB	-rw-r--r--	2024-08-13 19:55
log.lang.html	7.04 KB	-rw-r--r--	2024-08-13 19:55
mono-alt.css	315 B	-rw-r--r--	2024-08-13 19:55
mono.css	299 B	-rw-r--r--	2024-08-13 19:55
sh_acid.css	858 B	-rw-r--r--	2024-08-13 19:55
sh_berries-dark.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_berries-light.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_bipolar.css	866 B	-rw-r--r--	2024-08-13 19:55
sh_blacknblue.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_bright.css	870 B	-rw-r--r--	2024-08-13 19:55
sh_contrast.css	862 B	-rw-r--r--	2024-08-13 19:55
sh_darkblue.css	866 B	-rw-r--r--	2024-08-13 19:55
sh_darkness.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_desert.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_dull.css	870 B	-rw-r--r--	2024-08-13 19:55
sh_easter.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_emacs.css	716 B	-rw-r--r--	2024-08-13 19:55
sh_golden.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_greenlcd.css	870 B	-rw-r--r--	2024-08-13 19:55
sh_ide-anjuta.css	716 B	-rw-r--r--	2024-08-13 19:55
sh_ide-codewarrior.css	718 B	-rw-r--r--	2024-08-13 19:55
sh_ide-devcpp.css	716 B	-rw-r--r--	2024-08-13 19:55
sh_ide-eclipse.css	714 B	-rw-r--r--	2024-08-13 19:55
sh_ide-kdev.css	716 B	-rw-r--r--	2024-08-13 19:55
sh_ide-msvcpp.css	716 B	-rw-r--r--	2024-08-13 19:55
sh_kwrite.css	716 B	-rw-r--r--	2024-08-13 19:55
sh_matlab.css	564 B	-rw-r--r--	2024-08-13 19:55
sh_navy.css	870 B	-rw-r--r--	2024-08-13 19:55
sh_nedit.css	864 B	-rw-r--r--	2024-08-13 19:55
sh_neon.css	864 B	-rw-r--r--	2024-08-13 19:55
sh_night.css	862 B	-rw-r--r--	2024-08-13 19:55
sh_pablo.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_peachpuff.css	714 B	-rw-r--r--	2024-08-13 19:55
sh_print.css	784 B	-rw-r--r--	2024-08-13 19:55
sh_rand01.css	866 B	-rw-r--r--	2024-08-13 19:55
sh_the.css	718 B	-rw-r--r--	2024-08-13 19:55
sh_typical.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_vampire.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_vim-dark.css	718 B	-rw-r--r--	2024-08-13 19:55
sh_vim.css	795 B	-rw-r--r--	2024-08-13 19:55
sh_whatis.css	868 B	-rw-r--r--	2024-08-13 19:55
sh_whitengrey.css	716 B	-rw-r--r--	2024-08-13 19:55
sh_zellner.css	716 B	-rw-r--r--	2024-08-13 19:55
source-highlight.cc.html	70.23 KB	-rw-r--r--	2024-08-13 19:55
source-highlight.html	367.57 KB	-rw-r--r--	2024-08-13 19:55
style_examples.html	460.42 KB	-rw-r--r--	2024-08-13 19:55
syslog.log.html	38.27 KB	-rw-r--r--	2024-08-13 19:55
syslog.style.html	2.22 KB	-rw-r--r--	2024-08-13 19:55
test.htm.html	38.38 KB	-rw-r--r--	2024-08-13 19:55
test.java.html	6.26 KB	-rw-r--r--	2024-08-13 19:55
test.java.tex.html	31.18 KB	-rw-r--r--	2024-08-13 19:55
test.js.html	61.47 KB	-rw-r--r--	2024-08-13 19:55
test.log.html	4 KB	-rw-r--r--	2024-08-13 19:55
test.lua.html	21.87 KB	-rw-r--r--	2024-08-13 19:55
test.ml.html	5.35 KB	-rw-r--r--	2024-08-13 19:55
test.php3.html	57.26 KB	-rw-r--r--	2024-08-13 19:55
test.pl.html	7 KB	-rw-r--r--	2024-08-13 19:55
test.pm.html	30.08 KB	-rw-r--r--	2024-08-13 19:55
test.py.html	4 KB	-rw-r--r--	2024-08-13 19:55
test.rb.html	6.64 KB	-rw-r--r--	2024-08-13 19:55
test.sml.html	8.15 KB	-rw-r--r--	2024-08-13 19:55
test_linerange_sep.html	2.7 KB	-rw-r--r--	2024-08-13 19:55
test_refs.cpp.html	12.6 KB	-rw-r--r--	2024-08-13 19:55
test_refs.h.html	10.85 KB	-rw-r--r--	2024-08-13 19:55
test_regexrange4.html	2.7 KB	-rw-r--r--	2024-08-13 19:55
xhtml.css	397 B	-rw-r--r--	2024-08-13 19:55

Rename

<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>