File: test_perl_lines.html

package info (click to toggle)
source-highlight 3.1.8-1.2~deb9u1
links: PTS
area: main
in suites: stretch
size: 10,224 kB
sloc: sh: 11,709; cpp: 10,226; ansic: 9,521; makefile: 1,902; lex: 1,200; yacc: 1,021; php: 213; perl: 211; awk: 98; erlang: 94; lisp: 90; java: 75; ruby: 69; python: 61; asm: 43; ada: 36; ml: 29; haskell: 27; xml: 23; cs: 11; sql: 8; tcl: 7; sed: 4
file content (267 lines) | stat: -rw-r--r-- 40,158 bytes
parent folder | download | duplicates (8)
<!-- Generator: GNU source-highlight 
by Lorenzo Bettini
http://www.lorenzobettini.it
http://www.gnu.org/software/src-highlite -->
<pre><tt><font color="#000000">001:</font> <i><font color="#9A1900"># Here an extract of package MIME::Lite::HTML</font></i>
<font color="#000000">002:</font> 
<font color="#000000">003:</font> <b><font color="#0000FF">package</font></b> MIME<font color="#990000">::</font>Lite<font color="#990000">::</font>HTML<font color="#990000">;</font>
<font color="#000000">004:</font> 
<font color="#000000">005:</font> <i><font color="#9A1900"># module MIME::Lite::HTML : Provide routine to transform a HTML page in </font></i>
<font color="#000000">006:</font> <i><font color="#9A1900"># a MIME::Lite mail</font></i>
<font color="#000000">007:</font> <i><font color="#9A1900"># Copyright 2001 A.Barbet alian@alianwebserver.com.  All rights reserved.</font></i>
<font color="#000000">008:</font> 
<font color="#000000">009:</font> <i><font color="#9A1900"># Revision 1.1  2002/02/07 15:58:35  bettini</font></i>
<font color="#000000">010:</font> <i><font color="#9A1900"># added scanner for perl</font></i>
<font color="#000000">011:</font> <i><font color="#9A1900">#</font></i>
<font color="#000000">012:</font> <i><font color="#9A1900"># Revision 1.12  2002/01/07 20:18:53  alian</font></i>
<font color="#000000">013:</font> <i><font color="#9A1900"># - Add replace links for frame &amp; iframe</font></i>
<font color="#000000">014:</font> <i><font color="#9A1900"># - Correct incorrect parsing in include_css for &lt;LINK REL="SHORTCUT ICON"&gt;</font></i>
<font color="#000000">015:</font> <i><font color="#9A1900"># tag. Tks to doggy@miniasp.com for idea and patch</font></i>
<font color="#000000">016:</font> <i><font color="#9A1900">#</font></i>
<font color="#000000">017:</font> <i><font color="#9A1900"># Revision 1.11  2001/12/13 22:42:33  alian</font></i>
<font color="#000000">018:</font> <i><font color="#9A1900"># - Correct a bug with relative anchor</font></i>
<font color="#000000">019:</font> <i><font color="#9A1900">#</font></i>
<font color="#000000">020:</font> <i><font color="#9A1900"># Revision 1.10  2001/11/07 10:52:43  alian</font></i>
<font color="#000000">021:</font> <i><font color="#9A1900"># - Add feature for get restricted url. Add LoginDetails parameter for that</font></i>
<font color="#000000">022:</font> <i><font color="#9A1900"># (tks to Leon.Halford@ing-barings.com for idea)</font></i>
<font color="#000000">023:</font> <i><font color="#9A1900"># - Change error in POD doc rfc2257 =&gt; rfc2557 (tks to</font></i>
<font color="#000000">024:</font> <i><font color="#9A1900"># justin.zaglio@morganstanley.com)</font></i>
<font color="#000000">025:</font> <i><font color="#9A1900"># - Correct warning when $url_html is undef</font></i>
<font color="#000000">026:</font> 
<font color="#000000">027:</font> <b><font color="#0000FF">use</font></b> LWP<font color="#990000">::</font>UserAgent<font color="#990000">;</font>
<font color="#000000">028:</font> <b><font color="#0000FF">use</font></b> HTML<font color="#990000">::</font>LinkExtor<font color="#990000">;</font>
<font color="#000000">029:</font> <b><font color="#0000FF">use</font></b> URI<font color="#990000">::</font>URL<font color="#990000">;</font>
<font color="#000000">030:</font> <b><font color="#0000FF">use</font></b> MIME<font color="#990000">::</font>Lite<font color="#990000">;</font>
<font color="#000000">031:</font> <b><font color="#0000FF">use</font></b> strict<font color="#990000">;</font>
<font color="#000000">032:</font> <b><font color="#0000FF">use</font></b> vars <b><font color="#0000FF">qw</font></b><font color="#990000">(</font><font color="#009900">$VERSION</font> <font color="#009900">@ISA</font> <font color="#009900">@EXPORT</font> <font color="#009900">@EXPORT_OK</font><font color="#990000">);</font>
<font color="#000000">033:</font> 
<font color="#000000">034:</font> <b><font color="#0000FF">require</font></b> Exporter<font color="#990000">;</font>
<font color="#000000">035:</font> 
<font color="#000000">036:</font> <font color="#009900">@ISA</font> <font color="#990000">=</font> <b><font color="#0000FF">qw</font></b><font color="#990000">(</font>Exporter<font color="#990000">);</font>
<font color="#000000">037:</font> <font color="#009900">@EXPORT</font> <font color="#990000">=</font> <b><font color="#0000FF">qw</font></b><font color="#990000">();</font>
<font color="#000000">038:</font> 
<font color="#000000">039:</font> <b><font color="#0000FF">my</font></b> <font color="#009900">$LOGINDETAILS</font><font color="#990000">;</font>
<font color="#000000">040:</font> 
<font color="#000000">041:</font> <i><font color="#9A1900">#------------------------------------------------------------------------------</font></i>
<font color="#000000">042:</font> <i><font color="#9A1900"># redefine get_basic_credentials</font></i>
<font color="#000000">043:</font> <i><font color="#9A1900">#------------------------------------------------------------------------------</font></i>
<font color="#000000">044:</font> <font color="#FF0000">{</font>
<font color="#000000">045:</font>     <b><font color="#0000FF">package</font></b> RequestAgent<font color="#990000">;</font>
<font color="#000000">046:</font>     <b><font color="#0000FF">use</font></b> vars <b><font color="#0000FF">qw</font></b><font color="#990000">(</font><font color="#009900">@ISA</font><font color="#990000">);</font>
<font color="#000000">047:</font>     <font color="#009900">@ISA</font> <font color="#990000">=</font> <b><font color="#0000FF">qw</font></b><font color="#990000">(</font>LWP<font color="#990000">::</font>UserAgent<font color="#990000">);</font>
<font color="#000000">048:</font> 
<font color="#000000">049:</font>     <b><font color="#0000FF">sub</font></b> new
<font color="#000000">050:</font>     <font color="#FF0000">{</font> 
<font color="#000000">051:</font>         <b><font color="#0000FF">my</font></b> <font color="#009900">$self</font> <font color="#990000">=</font> LWP<font color="#990000">::</font>UserAgent<font color="#990000">::</font><b><font color="#000000">new</font></b><font color="#990000">(</font><font color="#009900">@_</font><font color="#990000">);</font>
<font color="#000000">052:</font>         <font color="#009900">$self</font><font color="#990000">;</font>
<font color="#000000">053:</font>     <font color="#FF0000">}</font>
<font color="#000000">054:</font> 
<font color="#000000">055:</font>     <b><font color="#0000FF">sub</font></b> get_basic_credentials
<font color="#000000">056:</font>         <font color="#FF0000">{</font>       
<font color="#000000">057:</font>           <b><font color="#0000FF">my</font></b><font color="#990000">(</font><font color="#009900">$self</font><font color="#990000">,</font> <font color="#009900">$realm</font><font color="#990000">,</font> <font color="#009900">$uri</font><font color="#990000">)</font> <font color="#990000">=</font> <font color="#009900">@_</font><font color="#990000">;</font>
<font color="#000000">058:</font>           <i><font color="#9A1900"># Use parameter of MIME-Lite-HTML, key LoginDetails</font></i>
<font color="#000000">059:</font>           <b><font color="#0000FF">if</font></b> <font color="#990000">(</font><b><font color="#0000FF">defined</font></b> <font color="#009900">$LOGINDETAILS</font><font color="#990000">)</font> <font color="#FF0000">{</font> <b><font color="#0000FF">return</font></b> <b><font color="#0000FF">split</font></b><font color="#990000">(</font><font color="#FF0000">':'</font><font color="#990000">,</font> <font color="#009900">$LOGINDETAILS</font><font color="#990000">,</font> <font color="#993399">2</font><font color="#990000">);</font> <font color="#FF0000">}</font> 
<font color="#000000">060:</font>           <i><font color="#9A1900"># Ask user on STDIN</font></i>
<font color="#000000">061:</font>           <b><font color="#0000FF">elsif</font></b> <font color="#990000">(-</font>t<font color="#990000">)</font> 
<font color="#000000">062:</font>             <font color="#FF0000">{</font>
<font color="#000000">063:</font>                 <b><font color="#0000FF">my</font></b> <font color="#009900">$netloc</font> <font color="#990000">=</font> <font color="#009900">$uri</font><font color="#990000">-&gt;</font>host_port<font color="#990000">;</font>
<font color="#000000">064:</font>                 <b><font color="#0000FF">print</font></b> <font color="#FF0000">"Enter username for $realm at $netloc: "</font><font color="#990000">;</font>
<font color="#000000">065:</font>                 <b><font color="#0000FF">my</font></b> <font color="#009900">$user</font> <font color="#990000">=</font> <font color="#FF0000">&lt;STDIN&gt;</font><font color="#990000">;</font>
<font color="#000000">066:</font>                 <b><font color="#0000FF">chomp</font></b><font color="#990000">(</font><font color="#009900">$user</font><font color="#990000">);</font>
<font color="#000000">067:</font>                 <i><font color="#9A1900"># 403 if no user given</font></i>
<font color="#000000">068:</font>                 <b><font color="#0000FF">return</font></b> <font color="#990000">(</font><b><font color="#0000FF">undef</font></b><font color="#990000">,</font> <b><font color="#0000FF">undef</font></b><font color="#990000">)</font> <b><font color="#0000FF">unless</font></b> <b><font color="#0000FF">length</font></b> <font color="#009900">$user</font><font color="#990000">;</font>
<font color="#000000">069:</font>                 <b><font color="#0000FF">print</font></b> <font color="#FF0000">"Password: "</font><font color="#990000">;</font>
<font color="#000000">070:</font>                 <b><font color="#0000FF">system</font></b><font color="#990000">(</font><font color="#FF0000">"stty -echo"</font><font color="#990000">);</font>
<font color="#000000">071:</font>                 <b><font color="#0000FF">my</font></b> <font color="#009900">$password</font> <font color="#990000">=</font> <font color="#FF0000">&lt;STDIN&gt;</font><font color="#990000">;</font>
<font color="#000000">072:</font>                 <b><font color="#0000FF">system</font></b><font color="#990000">(</font><font color="#FF0000">"stty echo"</font><font color="#990000">);</font>
<font color="#000000">073:</font>                 <b><font color="#0000FF">print</font></b> <font color="#FF0000">"\n"</font><font color="#990000">;</font>  <i><font color="#9A1900"># because we disabled echo</font></i>
<font color="#000000">074:</font>                 <b><font color="#0000FF">chomp</font></b><font color="#990000">(</font><font color="#009900">$password</font><font color="#990000">);</font>
<font color="#000000">075:</font>                 <b><font color="#0000FF">return</font></b> <font color="#990000">(</font><font color="#009900">$user</font><font color="#990000">,</font> <font color="#009900">$password</font><font color="#990000">);</font>
<font color="#000000">076:</font>             <font color="#FF0000">}</font>
<font color="#000000">077:</font>           <i><font color="#9A1900"># Damm we got 403 with CGI (use param LoginDetails)  ...</font></i>
<font color="#000000">078:</font>           <b><font color="#0000FF">else</font></b> <font color="#FF0000">{</font> <b><font color="#0000FF">return</font></b> <font color="#990000">(</font><b><font color="#0000FF">undef</font></b><font color="#990000">,</font> <b><font color="#0000FF">undef</font></b><font color="#990000">)</font> <font color="#FF0000">}</font>
<font color="#000000">079:</font>         <font color="#FF0000">}</font>
<font color="#000000">080:</font>   <font color="#FF0000">}</font>
<font color="#000000">081:</font> 
<font color="#000000">082:</font> <i><font color="#9A1900">#------------------------------------------------------------------------------</font></i>
<font color="#000000">083:</font> <i><font color="#9A1900"># new</font></i>
<font color="#000000">084:</font> <i><font color="#9A1900">#------------------------------------------------------------------------------</font></i>
<font color="#000000">085:</font> <b><font color="#0000FF">sub</font></b> new
<font color="#000000">086:</font>   <font color="#FF0000">{</font>
<font color="#000000">087:</font>     <b><font color="#0000FF">my</font></b> <font color="#009900">$class</font> <font color="#990000">=</font> <b><font color="#0000FF">shift</font></b><font color="#990000">;</font>
<font color="#000000">088:</font>     <b><font color="#0000FF">my</font></b> <font color="#009900">$self</font> <font color="#990000">=</font> <font color="#FF0000">{}</font><font color="#990000">;</font>
<font color="#000000">089:</font>     <b><font color="#0000FF">bless</font></b> <font color="#009900">$self</font><font color="#990000">,</font> <font color="#009900">$class</font><font color="#990000">;</font>
<font color="#000000">090:</font>     <b><font color="#0000FF">my</font></b> <font color="#009900">%param</font> <font color="#990000">=</font> <font color="#009900">@_</font><font color="#990000">;</font>
<font color="#000000">091:</font>     <i><font color="#9A1900"># Agent name</font></i>
<font color="#000000">092:</font>     <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_AGENT<font color="#FF0000">}</font> <font color="#990000">=</font> new RequestAgent<font color="#990000">;</font>
<font color="#000000">093:</font>     <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_AGENT<font color="#FF0000">}</font><font color="#990000">-&gt;</font><b><font color="#000000">agent</font></b><font color="#990000">(</font><font color="#FF0000">"MIME-Lite-HTML $VERSION"</font><font color="#990000">);</font>
<font color="#000000">094:</font>     <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_AGENT<font color="#FF0000">}</font><font color="#990000">-&gt;</font><b><font color="#000000">from</font></b><font color="#990000">(</font><font color="#FF0000">'mime-lite-html@alianwebserver.com'</font> <font color="#990000">);</font>
<font color="#000000">095:</font>     <i><font color="#9A1900"># Set debug level</font></i>
<font color="#000000">096:</font>     <b><font color="#0000FF">if</font></b> <font color="#990000">(</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'Debug'</font><font color="#FF0000">}</font><font color="#990000">)</font>
<font color="#000000">097:</font>       <font color="#FF0000">{</font>
<font color="#000000">098:</font>         <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_DEBUG<font color="#FF0000">}</font> <font color="#990000">=</font> <font color="#993399">1</font><font color="#990000">;</font>
<font color="#000000">099:</font>         <b><font color="#0000FF">delete</font></b> <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'Debug'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">100:</font>       <font color="#FF0000">}</font>
<font color="#000000">101:</font>     <i><font color="#9A1900"># Set Login information</font></i>
<font color="#000000">102:</font>     <b><font color="#0000FF">if</font></b> <font color="#990000">(</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'LoginDetails'</font><font color="#FF0000">}</font><font color="#990000">)</font>
<font color="#000000">103:</font>       <font color="#FF0000">{</font>
<font color="#000000">104:</font>           <font color="#009900">$LOGINDETAILS</font> <font color="#990000">=</font> <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'LoginDetails'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">105:</font>           <b><font color="#0000FF">delete</font></b> <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'LoginDetails'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">106:</font>       <font color="#FF0000">}</font>
<font color="#000000">107:</font>     <i><font color="#9A1900"># Set type of include to do</font></i>
<font color="#000000">108:</font>     <b><font color="#0000FF">if</font></b> <font color="#990000">(</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'IncludeType'</font><font color="#FF0000">}</font><font color="#990000">)</font>
<font color="#000000">109:</font>       <font color="#FF0000">{</font>
<font color="#000000">110:</font>         <b><font color="#0000FF">die</font></b> <font color="#FF0000">"IncludeType must be in 'extern', 'cid' or 'location'\n"</font> <b><font color="#0000FF">if</font></b>
<font color="#000000">111:</font>           <font color="#990000">(</font> <font color="#990000">(</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'IncludeType'</font><font color="#FF0000">}</font> ne <font color="#FF0000">'extern'</font><font color="#990000">)</font> <b><font color="#0000FF">and</font></b>
<font color="#000000">112:</font>             <font color="#990000">(</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'IncludeType'</font><font color="#FF0000">}</font> ne <font color="#FF0000">'cid'</font><font color="#990000">)</font> <b><font color="#0000FF">and</font></b>
<font color="#000000">113:</font>             <font color="#990000">(</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'IncludeType'</font><font color="#FF0000">}</font> ne <font color="#FF0000">'location'</font><font color="#990000">));</font>     
<font color="#000000">114:</font>         <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_include<font color="#FF0000">}</font> <font color="#990000">=</font> <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'IncludeType'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">115:</font>         <b><font color="#0000FF">delete</font></b> <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'IncludeType'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">116:</font>       <font color="#FF0000">}</font>
<font color="#000000">117:</font>     <i><font color="#9A1900"># Defaut type: use a Content-Location field</font></i>
<font color="#000000">118:</font>     <b><font color="#0000FF">else</font></b> <font color="#FF0000">{</font><font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_include<font color="#FF0000">}</font><font color="#990000">=</font><font color="#FF0000">'location'</font><font color="#990000">;</font><font color="#FF0000">}</font>
<font color="#000000">119:</font> 
<font color="#000000">120:</font> <i><font color="#9A1900">## Added by Michalis@linuxmail.org to manipulate non-us mails</font></i>
<font color="#000000">121:</font>    <b><font color="#0000FF">if</font></b> <font color="#990000">(</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'TextCharset'</font><font color="#FF0000">}</font><font color="#990000">)</font> <font color="#FF0000">{</font>
<font color="#000000">122:</font>      <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_textcharset<font color="#FF0000">}</font><font color="#990000">=</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'TextCharset'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">123:</font>      <b><font color="#0000FF">delete</font></b> <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'TextCharset'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">124:</font>    <font color="#FF0000">}</font>
<font color="#000000">125:</font>    <b><font color="#0000FF">else</font></b> <font color="#FF0000">{</font> <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_textcharset<font color="#FF0000">}</font><font color="#990000">=</font><font color="#FF0000">'iso-8859-1'</font><font color="#990000">;</font> <font color="#FF0000">}</font>
<font color="#000000">126:</font>    <b><font color="#0000FF">if</font></b> <font color="#990000">(</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'HTMLCharset'</font><font color="#FF0000">}</font><font color="#990000">)</font> <font color="#FF0000">{</font>
<font color="#000000">127:</font>      <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_htmlcharset<font color="#FF0000">}</font><font color="#990000">=</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'HTMLCharset'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">128:</font>      <b><font color="#0000FF">delete</font></b> <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'HTMLCharset'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">129:</font>     <font color="#FF0000">}</font>
<font color="#000000">130:</font>    <b><font color="#0000FF">else</font></b> <font color="#FF0000">{</font> <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_htmlcharset<font color="#FF0000">}</font><font color="#990000">=</font><font color="#FF0000">'iso-8859-1'</font><font color="#990000">;</font> <font color="#FF0000">}</font>
<font color="#000000">131:</font> 
<font color="#000000">132:</font>    <b><font color="#0000FF">if</font></b> <font color="#990000">(</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'TextEncoding'</font><font color="#FF0000">}</font><font color="#990000">)</font> <font color="#FF0000">{</font>
<font color="#000000">133:</font>      <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_textencoding<font color="#FF0000">}</font><font color="#990000">=</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'TextEncoding'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">134:</font>      <b><font color="#0000FF">delete</font></b> <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'TextEncoding'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">135:</font>     <font color="#FF0000">}</font>
<font color="#000000">136:</font>    <b><font color="#0000FF">else</font></b> <font color="#FF0000">{</font> <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_textencoding<font color="#FF0000">}</font><font color="#990000">=</font><font color="#FF0000">'7bit'</font><font color="#990000">;</font> <font color="#FF0000">}</font>
<font color="#000000">137:</font> 
<font color="#000000">138:</font>    <b><font color="#0000FF">if</font></b> <font color="#990000">(</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'HTMLEncoding'</font><font color="#FF0000">}</font><font color="#990000">)</font> <font color="#FF0000">{</font>
<font color="#000000">139:</font>      <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_htmlencoding<font color="#FF0000">}</font><font color="#990000">=</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'HTMLEncoding'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">140:</font>      <b><font color="#0000FF">delete</font></b> <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'HTMLEncoding'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">141:</font>     <font color="#FF0000">}</font>
<font color="#000000">142:</font>    <b><font color="#0000FF">else</font></b> <font color="#FF0000">{</font> <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_htmlencoding<font color="#FF0000">}</font><font color="#990000">=</font><font color="#FF0000">'quoted-printable'</font><font color="#990000">;</font> <font color="#FF0000">}</font>
<font color="#000000">143:</font> <i><font color="#9A1900">## End. Default values remain as they were initially set.</font></i>
<font color="#000000">144:</font> <i><font color="#9A1900">## No need to change existing scripts if you send US-ASCII. </font></i>
<font color="#000000">145:</font> <i><font color="#9A1900">## If you DON't send us-ascii, you wouldn't be able to use </font></i>
<font color="#000000">146:</font> <i><font color="#9A1900">## MIME::Lite::HTML anyway :-)</font></i>
<font color="#000000">147:</font> 
<font color="#000000">148:</font>     <i><font color="#9A1900"># Set proxy to use to get file</font></i>
<font color="#000000">149:</font>     <b><font color="#0000FF">if</font></b> <font color="#990000">(</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'Proxy'</font><font color="#FF0000">}</font><font color="#990000">)</font>
<font color="#000000">150:</font>       <font color="#FF0000">{</font>
<font color="#000000">151:</font>         <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_AGENT<font color="#FF0000">}</font><font color="#990000">-&gt;</font><b><font color="#000000">proxy</font></b><font color="#990000">(</font><font color="#FF0000">'http'</font><font color="#990000">,</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'Proxy'</font><font color="#FF0000">}</font><font color="#990000">)</font> <font color="#990000">;</font>
<font color="#000000">152:</font>         <b><font color="#0000FF">print</font></b> <font color="#FF0000">"Set proxy for http : "</font><font color="#990000">,</font> <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'Proxy'</font><font color="#FF0000">}</font><font color="#990000">,</font><font color="#FF0000">"\n"</font> 
<font color="#000000">153:</font>           <b><font color="#0000FF">if</font></b> <font color="#990000">(</font><font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_DEBUG<font color="#FF0000">}</font><font color="#990000">);</font>
<font color="#000000">154:</font>         <b><font color="#0000FF">delete</font></b> <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'Proxy'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">155:</font>       <font color="#FF0000">}</font>
<font color="#000000">156:</font>     <i><font color="#9A1900"># Set hash to use with template</font></i>
<font color="#000000">157:</font>     <b><font color="#0000FF">if</font></b> <font color="#990000">(</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'HashTemplate'</font><font color="#FF0000">}</font><font color="#990000">)</font>
<font color="#000000">158:</font>       <font color="#FF0000">{</font>
<font color="#000000">159:</font>         <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'HashTemplate'</font><font color="#FF0000">}</font> <font color="#990000">=</font> <b><font color="#0000FF">ref</font></b><font color="#990000">(</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'HashTemplate'</font><font color="#FF0000">}</font><font color="#990000">)</font> <b><font color="#0000FF">eq</font></b> <font color="#FF0000">"HASH"</font> 
<font color="#000000">160:</font>           <font color="#990000">?</font> <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'HashTemplate'</font><font color="#FF0000">}</font> <font color="#990000">:</font> <font color="#990000">%</font><font color="#FF0000">{</font><font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'HashTemplate'</font><font color="#FF0000">}}</font><font color="#990000">;</font>
<font color="#000000">161:</font>         <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_HASH_TEMPLATE<font color="#FF0000">}</font><font color="#990000">=</font> <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'HashTemplate'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">162:</font>         <b><font color="#0000FF">delete</font></b> <font color="#009900">$param</font><font color="#FF0000">{</font><font color="#FF0000">'HashTemplate'</font><font color="#FF0000">}</font><font color="#990000">;</font>
<font color="#000000">163:</font>       <font color="#FF0000">}</font>
<font color="#000000">164:</font>     <font color="#009900">$self</font><font color="#990000">-&gt;</font><font color="#FF0000">{</font>_param<font color="#FF0000">}</font> <font color="#990000">=</font> <font color="#990000">\</font><font color="#009900">%param</font><font color="#990000">;</font>
<font color="#000000">165:</font>     <i><font color="#9A1900"># Ok I hope I known what I do ;-)</font></i>
<font color="#000000">166:</font>     MIME<font color="#990000">::</font>Lite<font color="#990000">-&gt;</font><b><font color="#000000">quiet</font></b><font color="#990000">(</font><font color="#993399">1</font><font color="#990000">);</font>
<font color="#000000">167:</font>     <b><font color="#0000FF">return</font></b> <font color="#009900">$self</font><font color="#990000">;</font>
<font color="#000000">168:</font>   <font color="#FF0000">}</font>
<font color="#000000">169:</font> 
<font color="#000000">170:</font> <i><font color="#9A1900">#------------------------------------------------------------------------------</font></i>
<font color="#000000">171:</font> <i><font color="#9A1900"># POD Documentation</font></i>
<font color="#000000">172:</font> <i><font color="#9A1900">#------------------------------------------------------------------------------</font></i>
<font color="#000000">173:</font> 
<font color="#000000">174:</font> <i><font color="#9A1900">=head1 NAME</font></i>
<font color="#000000">175:</font> 
<font color="#000000">176:</font> <i><font color="#9A1900">MIME::Lite::HTML - Provide routine to transform a HTML page in a MIME-Lite mail</font></i>
<font color="#000000">177:</font> 
<font color="#000000">178:</font> <i><font color="#9A1900">=head1 SYNOPSIS</font></i>
<font color="#000000">179:</font> 
<font color="#000000">180:</font> <i><font color="#9A1900">  #!/usr/bin/perl -w </font></i>
<font color="#000000">181:</font> <i><font color="#9A1900">  # A cgi program that do "Mail this page to a friend";</font></i>
<font color="#000000">182:</font> <i><font color="#9A1900">  # Call this script like this :</font></i>
<font color="#000000">183:</font> <i><font color="#9A1900">  # script.cgi?email=myfriend@isp.com&amp;url=http://www.go.com</font></i>
<font color="#000000">184:</font> <i><font color="#9A1900">  use strict;</font></i>
<font color="#000000">185:</font> <i><font color="#9A1900">  use CGI qw/:standard/;</font></i>
<font color="#000000">186:</font> <i><font color="#9A1900">  use CGI::Carp qw/fatalsToBrowser/;</font></i>
<font color="#000000">187:</font> <i><font color="#9A1900">  use MIME::Lite::HTML;</font></i>
<font color="#000000">188:</font> <i><font color="#9A1900">  </font></i>
<font color="#000000">189:</font> <i><font color="#9A1900">  my $mailHTML = new MIME::Lite::HTML</font></i>
<font color="#000000">190:</font> <i><font color="#9A1900">     From     =&gt; 'MIME-Lite@alianwebserver.com',</font></i>
<font color="#000000">191:</font> <i><font color="#9A1900">     To       =&gt; param('email'),</font></i>
<font color="#000000">192:</font> <i><font color="#9A1900">     Subject =&gt; 'Your url: '.param('url');</font></i>
<font color="#000000">193:</font> <i><font color="#9A1900">  </font></i>
<font color="#000000">194:</font> <i><font color="#9A1900">  my $MIMEmail = $mailHTML-&gt;parse(param('url'));</font></i>
<font color="#000000">195:</font> <i><font color="#9A1900">  $MIMEmail-&gt;send; # or for win user : $mail-&gt;send_by_smtp('smtp.fai.com');</font></i>
<font color="#000000">196:</font> <i><font color="#9A1900">  print header,"Mail envoye (", param('url'), " to ", param('email'),")&lt;br&gt;\n";</font></i>
<font color="#000000">197:</font> 
<font color="#000000">198:</font> <i><font color="#9A1900">=head1 DESCRIPTION</font></i>
<font color="#000000">199:</font> 
<font color="#000000">200:</font> <i><font color="#9A1900">This module is a Perl mail client interface for sending message that </font></i>
<font color="#000000">201:</font> <i><font color="#9A1900">support HTML format and build them for you..</font></i>
<font color="#000000">202:</font> <i><font color="#9A1900">This module provide routine to transform a HTML page in MIME::Lite mail.</font></i>
<font color="#000000">203:</font> <i><font color="#9A1900">So you need this module to use MIME-Lite-HTML possibilities</font></i>
<font color="#000000">204:</font> 
<font color="#000000">205:</font> <i><font color="#9A1900">=head2 What's happen ?</font></i>
<font color="#000000">206:</font> 
<font color="#000000">207:</font> <i><font color="#9A1900">The job done is:</font></i>
<font color="#000000">208:</font> 
<font color="#000000">209:</font> <i><font color="#9A1900">=over</font></i>
<font color="#000000">210:</font> 
<font color="#000000">211:</font> <i><font color="#9A1900">=item *</font></i>
<font color="#000000">212:</font> 
<font color="#000000">213:</font> <i><font color="#9A1900">Get the file (LWP) if needed</font></i>
<font color="#000000">214:</font> 
<font color="#000000">215:</font> <i><font color="#9A1900">=item *</font></i>
<font color="#000000">216:</font> 
<font color="#000000">217:</font> <i><font color="#9A1900">Parse page to find include images (gif, jpg, flash)</font></i>
<font color="#000000">218:</font> 
<font color="#000000">219:</font> <i><font color="#9A1900">=item *</font></i>
<font color="#000000">220:</font> 
<font color="#000000">221:</font> <i><font color="#9A1900">Attach them to mail with adequat header if asked (default)</font></i>
<font color="#000000">222:</font> 
<font color="#000000">223:</font> <i><font color="#9A1900">=item *</font></i>
<font color="#000000">224:</font> 
<font color="#000000">225:</font> <i><font color="#9A1900">Include external CSS,Javascript file</font></i>
<font color="#000000">226:</font> 
<font color="#000000">227:</font> <i><font color="#9A1900">=item *</font></i>
<font color="#000000">228:</font> 
<font color="#000000">229:</font> <i><font color="#9A1900">Replace relative url with absolute one</font></i>
<font color="#000000">230:</font> 
<font color="#000000">231:</font> <i><font color="#9A1900">=item *</font></i>
<font color="#000000">232:</font> 
<font color="#000000">233:</font> <i><font color="#9A1900">Build the final MIME-Lite object with each part found</font></i>
<font color="#000000">234:</font> 
<font color="#000000">235:</font> <i><font color="#9A1900">=back</font></i>
<font color="#000000">236:</font> 
<font color="#000000">237:</font> <i><font color="#9A1900">=cut</font></i>
<font color="#000000">238:</font> 
<font color="#000000">239:</font> <i><font color="#9A1900">## the next one is just to see if =cut is recognized</font></i>
<font color="#000000">240:</font> <b><font color="#0000FF">sub</font></b> foo
<font color="#000000">241:</font>   <font color="#FF0000">{</font>
<font color="#000000">242:</font>     <b><font color="#0000FF">my</font></b> <font color="#009900">$class</font> <font color="#990000">=</font> <b><font color="#0000FF">shift</font></b><font color="#990000">;</font>
<font color="#000000">243:</font>     <b><font color="#0000FF">my</font></b> <font color="#009900">$self</font> <font color="#990000">=</font> <font color="#FF0000">{}</font><font color="#990000">;</font>
<font color="#000000">244:</font>     <b><font color="#0000FF">bless</font></b> <font color="#009900">$self</font><font color="#990000">,</font> <font color="#009900">$class</font><font color="#990000">;</font>
<font color="#000000">245:</font>     <font color="#009900">$content</font> <font color="#990000">=~</font> <b><font color="#0000FF">s</font></b><font color="#FF6600">/^.*content:.*?\"//</font><b><font color="#0000FF">i</font></b><font color="#990000">;</font>
<font color="#000000">246:</font>   <font color="#FF0000">}</font>
<font color="#000000">247:</font> 
<font color="#000000">248:</font> 
<font color="#000000">249:</font> <font color="#009900">$theline</font> <font color="#990000">=~</font> <b><font color="#0000FF">s</font></b><font color="#FF6600">/(&lt;=|=&gt;|=|\-|\+|\*|\/|\*\*|;|:|\\|\'|\"|,|\.|\(|\)|\[|\]|\{|\}|&lt;|&gt;)/\&lt;span class\=\"op\"\&gt;$1\&lt;\/span&gt;/</font><b><font color="#0000FF">g</font></b><font color="#990000">;</font>
<font color="#000000">250:</font> 
<font color="#000000">251:</font> <font color="#009900">$theline</font> <font color="#990000">=~</font> <b><font color="#0000FF">s</font></b><font color="#FF6600">/(&lt;=|=&gt;|=|\-|\+|\*|\/|\*\*|;|:|\\|\'|\"|,|\.|\(|\)|\[|\]|\{|\}|&lt;|&gt;)/</font><b><font color="#0000FF">g</font></b><font color="#990000">;</font>
<font color="#000000">252:</font> 
<font color="#000000">253:</font> <b><font color="#0000FF">if</font></b><font color="#990000">(</font><font color="#009900">$#ARGV</font><font color="#990000">==</font><font color="#993399">2</font><font color="#990000">)</font><font color="#FF0000">{}</font>
<font color="#000000">254:</font> 
<font color="#000000">255:</font> <font color="#009900">$someString</font> <font color="#990000">=~</font> <b><font color="#0000FF">m</font></b><font color="#FF6600">/anything/</font>gix <font color="#990000">;</font>
<font color="#000000">256:</font> <font color="#009900">$someString</font> <font color="#990000">=~</font>  <font color="#FF0000">/anything/</font>    <font color="#990000">;</font>
<font color="#000000">257:</font> <b><font color="#0000FF">if</font></b><font color="#990000">(</font><font color="#009900">$someString</font> <font color="#990000">=~</font>  <font color="#FF0000">/anything/</font><b><font color="#0000FF">g</font></b>   <font color="#990000">)</font><font color="#FF0000">{}</font>
<font color="#000000">258:</font> <b><font color="#0000FF">if</font></b><font color="#990000">(</font>                <font color="#FF0000">/anything/</font>    <font color="#990000">)</font><font color="#FF0000">{}</font>
<font color="#000000">259:</font> 
<font color="#000000">260:</font> <b><font color="#0000FF">if</font></b><font color="#990000">(</font><font color="#009900">$somestring</font> <font color="#990000">=~</font>  <b><font color="#0000FF">s</font></b><font color="#FF6600">/something/something else/</font><b><font color="#0000FF">gi</font></b> <font color="#990000">)</font><font color="#FF0000">{}</font>
<font color="#000000">261:</font> <font color="#009900">$somestring</font> <font color="#990000">=~</font>   <font color="#FF0000">/something/something else/</font>   <font color="#990000">;</font>
<font color="#000000">262:</font> <font color="#009900">$somestring</font> <font color="#990000">=~</font> <b><font color="#0000FF">qr</font></b><font color="#FF6600">/something/</font>something <b><font color="#0000FF">else</font></b><font color="#990000">/</font>   <font color="#990000">;</font>
<font color="#000000">263:</font> </tt></pre>