#!/usr/bin/perl
# If platform is UNIX/Linux, correct the path above if necessary

###################################################################################################
## This software is copyright © 2006 Hibyte Software
## Use of the software indicates agreement to our Terms and Conditions
## To review the terms, please see http://www.hibyte.co.uk/software/terms.html
# This software is under license. You may use it provided that this header is left intact
# Users may may not resell this software, or any part of it, without the express permission of Hibyte.
#
# For more software by Hibyte please go to http://www.hibyte.co.uk/pages/catalogue.html
###################################################################################################


$| = 1;
#$db=1;
ps();
$cfgfile='hijobs.cfg';

$rdata=($ENV{'PATH_TRANSLATED'})?'PATH_TRANSLATED':'SCRIPT_FILENAME';

read(STDIN, $xbuffer, $ENV{'CONTENT_LENGTH'});mih($xbuffer,'INPUT');
$details=$ENV{'QUERY_STRING'};mih($details,'PROCESS');
sub mih{my($take,$tag)=@_;local($pair,$name,$contents,@pairs);@pairs=split(/&/,$take);
foreach $pair (@pairs) {($name, $contents) = split(/=/, $pair);$contents =~ tr/+/ /;
$contents =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $contents=~s!\|!|!gs;
$$tag{$name}=($$tag{$name}) ? $$tag{$name}.','.$contents : $contents; } }
$isMac=($ENV{HTTP_USER_AGENT}=~/mac/i)?1:0; $isIE=($ENV{HTTP_USER_AGENT}=~/msie/i)?1:0;
$ds=($ENV{'SERVER_SOFTWARE'}=~/microsoft/i)?"\\":"\/";

############################################################################################
@INIT=(SERVER_ADDR,HTTP_HOST,SCRIPT_NAME,SERVER_NAME,DOCUMENT_ROOT,$rdata);
foreach $init(@INIT){$$init=$ENV{$init};} $SCRIPT_NAME=~m!([A-Za-z0-9]+\.[plcgiPLCGI]+$)!;
$this_prog=$1;$$rdata=~m!(.*?)$this_prog!; $my_base_loc=$1; $my_base_loc=~s!\/+!\/!g;db(my_base_loc,$my_base_loc);
$siteloc=('http://'.$HTTP_HOST);    db(siteloc,$siteloc);
$cgiloc=('http://'.$HTTP_HOST.'/cgi-bin');     db(cgiloc,$cgiloc);
$my_http=('http://'.$HTTP_HOST.$SCRIPT_NAME); db(my_http,$my_http);
$tloc=($my_base_loc . 'templates'.$ds);   db(tloc,$tloc);
$dloc=($my_base_loc.'data'.$ds);db(dloc,$dloc); $cfgfile=($my_base_loc.$cfgfile);
$| = 0;
#############################################################################################
@processes=('logon','log2','pbox','pbox2','edit','add_item','witem','re','de','htip','sn','si');
$test_it=0;$gnum=0;
while ($test_it < 1) { $val = $processes[$gnum];
if ($PROCESS{$val}) {$test_it=1; db("going",$val);} if ($gnum > $#processes) {$test_it=1;}
$gnum++;} if ($PROCESS{$val}) {defs();&$val;}
else {
defs();primary();
 }
##############################################################################################
sub dmake { my ($dir)=@_; my($rt,$rpt,$mkd,$oldmask);$oldmask=umask(000);
$rpt="Create Directory $dir<br>";
$mkd=mkdir($dir,0777);$rt=$!; $rpt.=($mkd==1)?"Successful":"Failure: $rt";
db("$rpt","$dir $rt"); $oldmask=umask($oldmask);  }
##############################################################################################
sub remend { my ($l)=@_;
while($l=~/[\r\n]$/){$l=~s![\r\n]$!!g;} return $l;  }
#############################################################################################
sub logon {pass(); db(xinpass,$INPUT{password});logonsub();}
sub log2 { pass(); log2sub(); }
sub sn { search(); searchsub(); }
sub si { search(); sisub(); }
sub pbox(;$) {my($p)=@_; pass(); pboxsub($p); exit;}
sub pbox2(;$) {my($p)=@_; pass(); pbox2sub($p);exit;}
sub pass {if(!$psubgot){subfile('pass');$psubgot=1;}}
sub search {if(!$ssubgot){subfile('search');$ssubgot=1;}}
sub  subfile {my($f)=@_;$f=($my_base_loc.'/subs/'.$f.'.sub');
@tt=use_this_file('',"$f");my $wen=file_text('tt');$#tt=-1; eval($wen); }
##############################################################################################
sub defs {   my($t,$te,$rnum,$def,$lx,$k,$grit,$val,$dummy,$name,$code,@grits,@vl,@tx);
@st=('header','price','intro','bullets','outro','jobr','cldt','hwer','outro2','cdet');
# Default configuration - overridden by definitions in .cfg file or query string
$kx='hawson';
$outpage='hijobs.html';
$pagebgcolour='FFFFFF';
$textcolour='333333';
$link='363B8D';
$vlink='363B8D';
$alink='B73B4D';
$hlink='B73B4D';
$font='Arial,Helvetica,sans-serif';
$tsize=12;
$hsize=16;
$ssize=11;
$footer=1;
$displaywidth=500;
$indextype=1;
$resperpage=1;
$showsearch=1;
$showdate=1;
$itemindex=1;
$sideindex=r;
$curlink='Current Vancanciess';
$pageheader='HiJob Demonstration';
$indexheader='Vacncies';
$sectname='Jobs Archive';
$sbheader='Search This Section:';



if($PROCESS{'def'}){  $cfgfile=($my_base_loc.$PROCESS{'def'}.'.cfg'); $dloc=($my_base_loc.$PROCESS{'def'}.$ds);$ptag="&def=$PROCESS{'def'}"; }
@vl=use_this_file('',$cfgfile);
foreach $lx(@vl){chomp $lx;$lx=remend($lx);if($lx && $lx !=~/^#/){$lx=~m!([A-z0-9\-\_]+)\|(.+)!;$mn=$1;$mm=$2;$$mn=$mm;db($mn,$$mn);}}

foreach $k(sort keys %PROCESS){$PROCESS{$k}.="\|1";}
@grits=('sbheader|sb','curlink|cl','sectname|se','indexheader|ih','pageheader|ph','outpage|op','itemindex|ii',
'sideindex|sm','indextype|it','showsearch|ss','resperpage|rp','displaywidth|dw','showdate|sd');
foreach $grit(@grits){($name,$code)=split(/\|/,$grit);
if($PROCESS{$code}){($val,$dummy)=split(/\|/,$PROCESS{$code});$$name=$val;$ptag.=qq~&$code\=$val~;}}
foreach $k(sort keys %PROCESS){$PROCESS{$k}=~s!\|1$!!;}
if(!(-d $dloc)){dmake($dloc);}
}
#############################################################################################
sub sbox {
my($sbox,$style,$fstyle); $style=qq~font-family:$font;font-size:11px;color:\#$link~;
$fstyle=qq~margin-top:2px;margin-bottom:2px;margin-left:2px;~;
$sbox=qq~
<tr><td><form name="dfx" action="$my_http?sn=1$ptag" method="POST" onSubmit="return keyW(this)">
<table border="0" cellpadding="1" cellspacing="0" width="100%"	bgcolor="\#$link"><tr><td>
<table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="\#$pagebgcolour">~;
if($sbheader){my $xh=($tsize+6);$sbox.=qq~
<tr bgcolor="\#$link" align="left" valign="middle"><td height="$xh" colspan="3" style="color:\#$pagebgcolour">&nbsp;<b>$sbheader</td></tr>
~;}
$sbox.=qq~
<tr align="left"><td style="color:\#$alink">&nbsp;Keyword(s):</td><td style="color:\#$alink">&nbsp;Search type:</td><td>&nbsp;</td></tr>
<tr align="left">
<td width="150"><input type="text" size="15" name="keywords" style="$style;$fstyle;width:150px"></td>
<td width="120"><select name="opts" style="$style;$fstyle;width:120px">
<option value="any">Any of these words</option>\n<option value="all">All of these words</option>
<option value="exact">Exact phrase</option>
</select>\n</td>
<td><input type="submit" name="submit" value="Search" style="$style;$fstyle;width:60px;margin-right:2px;color:\#$pagebgcolour;background:\#$alink"></td>
</tr></table></td></tr></table></form></td></tr>~;
$sbox=($showsearch)?$sbox:'&nbsp;';
return $sbox;
}
#############################################################################################
sub primary { $body=get_page("$tloc$outpage");
my($out,$lad,$ye,$sa,$se,$sae,$snum,$xsnum,$moretag,$totnum,$lstyle,$hstyle,$sstyle);
my($ynum,$ret,$as,$ae,$fsize,$xfsize,$xhsize,$phead,$ttop,$base,@gt,@xgt,@tt,@co,@head);
@head=xhead('',$pagebgcolour,$link,$vlink,$alink,$hlink,$textcolour,$font,$tsize);
my ($ttop,$base)=split(/content_here/,$body);
$ttop||="$head[0]$head[3]<br>"; $base||="$head[4]";$ttop=~s!title\_here!$sectname!gi;
$ttop=~s!\<\/head\>!$head[1]$head[2]\<\/head\>!i;print $ttop;

$fsize=($tsize.'px');$xfsize=($ssize.'px');$xhzize=($hsize.'px');$phead='&nbsp;'; footer();
$lstyle=qq~font-weight:bold;font-family:$font;font-size:$fsize;color:\#$textcolour;~;
$llstyle=qq~font-weight:normal;font-family:$font;font-size:$fsize;color:\#$textcolour;~;
$hstyle=qq~font-weight:bold;font-family:$font;font-size:$xhzize;color:\#$textcolour;~;

$sstyle=qq~font-family:$font;font-size:$xfsize;color:\#$link~;
$sbstyle=qq~font-family:$font;font-size:$xfsize;color:\#$textcolour~;
if($pageheader){$xhsize=$tsize+6;
$phead=qq~<span style="font-weight:bold;font-family:$font;font-size:$xhzize;color:\#$textcolour;">
$pageheader</span>~; }
footer(); $sbox=sbox();

my $sp=($indextype==2)?'sp=1&':'';
$resperpage=($resperpage=~/all/i)?0:$resperpage;

$sectname||='Latest Vacancies'; dirget($dloc); xtbits();
$toplink='Back to top';

$snum=($PROCESS{s})?$PROCESS{s}:$INPUT{s};  if($sideindex){$PROCESS{sp}||=1;}
$xsnum=($snum)?$snum:0;

my $moretag=moretag($snum,$sp);


my $sitop=sitop();
$out.=$sitop;

$out.= qq~$ts
<td style="line-height:2px" height="2"><a name="\#xtop">&nbsp;</a></td></tr>
$tr<td>$phead</td></tr>~;
$out.=	qq~$tr<td height="15">&nbsp;</td></tr>~;


$menbit=menbit($snum,$xsnum,$sp);


if(!$sideindex){$out.=	  $menbit;}

$out.=$moretag;


$#co=-1;
if(!($indextype==2 && $snum<1 && !$PROCESS{sp})){
while($xsnum<($resperpage+$snum)){$xnum=$xsnum+1;$el=$store[$xsnum]; chomp $el;$lx=remend($lx);@tt=split(/\|/,$el);
push @co,qq~$tt[0]\|$xnum~;$xsnum++; }	}

foreach $el(@co){ chomp $el;$lx=remend($lx);@xgt=split(/\|/,$el);if($xgt[0]){chomp $xgt[0];
edata($xgt[0]); @gt=(header,price,intro,bullets,outro,jobr,cldt,hwer,outro2,cdet);
foreach $l(@gt){chomp $l;chomp $$l;$$l=~s!\n!<br>!g;}
$rt=hblock($header,$price); $out.=  qq~$tr<td style="line-height:4px"><a name="tag$xgt[1]">&nbsp;</a></td></tr>$tr<td>$rt</td></tr>$blank~;
if($intro){$out.=  qq~$tr<td style="font-family:$font;font-size:$fsize;color:\#$textcolour">$intro</td></tr>$blank~; }
if($bullets){ $bullets=~s!\<br\>!\n!gi;$bullets=~s!\r!\n!gs;$bullets=~s!\n+!\n!gs;
@pl=split(/\n/,$bullets);
foreach $bit(@pl){chomp $bit;if($bit){$grab=brow($bit);$out.=  qq~$tr<td>$ts$grab$te</td></tr>~;}}
$out.=	$blank; }
if($outro){$out.=  qq~$tr<td style="font-family:$font;font-size:$fsize;color:\#$textcolour">$outro</td></tr>$blank~;  }
if($jobr){$out.=  qq~$tr<td style="font-family:$font;font-size:$fsize;color:\#$textcolour"><font color="#$link"><b>Job Ref: </b></font>$jobr</td></tr>$blank~;	}
if($cldt){$out.=  qq~$tr<td style="font-family:$font;font-size:$fsize;color:\#$textcolour"><font color="#$link"><b>Closing Date: </b></font>$cldt</td></tr>$blank~;  }
if($hwer){$out.=  qq~$tr<td style="font-family:$font;font-size:$fsize;color:\#$textcolour"><font color="#$link"><b>Hours Per Week: </b></font>$hwer</td></tr>$blank~;  }
$outro2=~s![\n\r\s]!!gs;
if($outro2){$out.=qq~$tr<td bgcolor="#EDEDED" style="color:#$link"><b>Contact Email : </b><a href="mailto:$outro2">$outro2</a></td></tr>$blank~;  }
if($cdet){$out.=  qq~$tr<td><table width="100%" cellpadding="0" border="0" cellspacing="0"><tr align="left" valign="top"><td style="font-family:$font;font-size:$fsize;color:\#$textcolour"  width="95"><font color="#$link"><b>Contact Details: </b></font></td><td style="font-family:$font;font-size:$fsize;color:\#$textcolour">$cdet</td></tr></table></td>$blank~;  }
if($showdate){
$now=nicedate($tt[1]);

 $out.=  qq~
$tr<td style="font-family:$font;font-size:$xfsize;color:\#$alink" align="right">Job last updated:&nbsp;&nbsp;&nbsp;$now</td></tr>~; }
$lad=($indextype==2 && !$sideindex)?qq~&nbsp;\|&nbsp;<a href="$my_http?s=0$ptag">Back to Jobs Index</a>~:'';
$out.=	qq~$blank$tr
<td valign="bottom" style="font-family:$font;font-size:$xfsize;line-height:$fsize" height="$tsize"><a href="\#xtop">$toplink</a>$lad</td></tr>
~;
$out.=	qq~$tr<td height="12">$hr</td></tr>~;
} }# end foreach $el(@store)

$out.=	qq~$sbox$moretag$tr<td></td>$te\n$footer~;

my ($sibase,$xmenbit)=sibase($menbit);
$out.=$sibase;
$out=~s!menbit\_here!$xmenbit!g;

print $out;
print $base;
}
##############################################################################################
sub moretag ($$;$){ my($snum,$sp,$all)=@_;
my($ynum,$xnum,$pnum,$ret,$as,$ae,$totnum,$se,$sae,$int,$sep,$xfsize,);
$xfsize=($ssize.'px');
$sstyle=qq~font-family:$font;font-size:$xfsize;color:\#$link~;
$sbstyle=qq~font-family:$font;font-size:$xfsize;color:\#$textcolour~;
my $qsnum = $snum;  $qsnum--;
$nexttag=$qsnum+$resperpage+1;$nexttag=(($snum+$resperpage)<($#store+1))?('&nbsp;&nbsp;<a href="'.$my_http.'?'.$sp.'s='.$nexttag.$ptag.'">Next</a>'):'';
$prevtag=$qsnum-$resperpage+1;$prevtag=($snum>0)?('&nbsp;&nbsp;<a href="'.$my_http.'?'.$sp.'s='.$prevtag.$ptag.'">Previous</a>'):'';
$nexttag=($sideindex=~/[lr]/i)?$nexttag:''; $prevtag=($sideindex=~/[lr]/i)?$prevtag:'';
$totnum=($#store+1);$resperpage||=$totnum; $moretag='';
$sa=($snum+1);$se=($snum+$resperpage); $se=($se>$totnum)?$totnum:$se;$sae=($se!=$sa)?qq~$sa \- $se~:qq~$sa~;

$xnum=0;$pnum=0; $int=($indextype==2)?qq~<b>$indexheader:&nbsp;&nbsp;</b>~:'';
$indexheader=($indextype == 0)?qq~~:$indexheader;

if($resperpage<$totnum){$moretag = qq~$tr<td style="$sstyle">
<span style="$sbstyle">$int~;
while($xnum<$totnum){ $ynum=($xnum+1);while($ynum<($xnum+($resperpage+1))){$ret="k$ynum";$l_ha{$ret}=qq~$xnum~;$ynum++;}
  $sa=($xnum+1);$se=($xnum+$resperpage); $se=($se>$totnum)?$totnum:$se;$sae=($se!=$sa)?qq~$sa\-$se~:qq~$sa~; $sep='&nbsp;|&nbsp;';

if(!($indextype==2)){$sae=('('.$pnum.')'); $sae=($xnum)?$sae:''; $htag=($xnum)?'&nbsp;':'<b>Jobs Archive:</b>&nbsp;&nbsp;'; $sep='';}

$as=($all || $xnum!=$snum || ($indextype==2 && !$PROCESS{sp}))?('<a href="'.$my_http.'?'.$sp.'s='.$xnum.$ptag.'">'):'';  $ae=($all || $xnum!=$snum || ($indextype==2 && !$sp))?'</a>':'';
$moretag.=qq~$sep$as$sae$ae$htag~; $pnum++;$xnum+=$resperpage;}
$moretag.=qq~$prevtag$nexttag blink_here$hralt</span></td></tr>~;
}
$blink=($snum<1 || ($indextype==2))?'':qq~&nbsp;<a href="$my_http?null=y$ptag\#xtop">$curlink</a>~;$moretag=~s!blink\_here!$blink!;

$moretag=($itemindex)?$moretag:'';
return($moretag);
}
##############################################################################################
sub menbit {	 my($snum,$xsnum,$sp)=@_; #print qq~dd $snum,$xsnum,$sp bb<br>~;
my($xfsize,$xhzize,$hstyle,$sbstyle,$xnum,$unum,$enum,$start,$end,$ret,$anchor);
$xfsize=($ssize.'px');$xhzize=($hsize.'px');
$hstyle=qq~font-weight:bold;font-family:$font;font-size:$xhzize;color:\#$textcolour;~;
$sbstyle=qq~font-family:$font;font-size:$xfsize;color:\#$textcolour~;

if($indextype){
if(!(($indextype==2 && $snum>0)||($indextype==2 && $PROCESS{sp}))||($sideindex)){
$xnum=1;$unum=0;$enum=($#store+1);  $end=qq~$tr<td height="15">&nbsp;</td></tr>~;
if($indextype==1){$xnum=$xsnum+1;$unum=$xsnum;
$enum=$resperpage+$snum;$enum=($enum>($#store+1))?($#store+1):$enum;
$end="$blank";$start=qq~<tr><td style="$hstyle">$hralt
In This Section:</td></tr>~;}
$menbit=$start;
while($unum<$enum){ $l=$store[$unum];chomp $l;
  @tt=split(/\|/,$l); chomp $tt[0]; chomp $tt[2];
$ret="k$xnum"; $lad=(($l_ha{$ret}!=$snum)||$indextype==2)?($my_http.'?'.$sp.'s='.$l_ha{$ret}.$ptag):'';
$anchor=($resperpage>1)?qq~\#tag$xnum~:'#';
$menbit.= qq~<tr><td style="$llstyle"><table cellpadding="0" cellspacing="0" border="0" width="200"><tr><td style="$fstyle;line-height:$fsize;" width="12">&#149;</td><td style="$llstyle">
<a href="$lad$anchor">$tt[2]</a>~;
if($showdate){$menbit.=qq~<br><span style="$sbstyle;font-weight:normal">$tt[3]</span>~;}
$menbit.=qq~</td>$te</td></tr>~;$unum++;$xnum++;}
$menbit.=  qq~$end~; } }
return($menbit);
}
##############################################################################################
sub sitop {   my($out,$lstyle,$fsize);	$fsize=($tsize.'px');
$lstyle=qq~font-weight:bold;font-family:$font;font-size:$fsize;color:\#$textcolour;~;
if($sideindex){ $siwidth=($displaywidth+220);
$out=qq~<table width="$siwidth" border="0" cellspacing="0" cellpadding="0">\n<tr valign="top" align="left">~;
if($sideindex=~/l/i){$out.=qq~
<td width="200" style="$lstyle">menbit_here</td>
<td style="$lstyle" width="20">&nbsp;</td>
<td style="$lstyle">~;}
elsif($sideindex=~/r/i){$out.=qq~\n<td style="$lstyle">\n~;}
}  # end if($sideindex)
return $out;
}
#############################################################################################
sub sibase {   my($menbit)=@_;	   my($xmenbit,$out,$nhstyle,$fsize); $fsize=($tsize.'px');
$nhstyle=qq~font-weight:bold;font-family:$font;font-size:$fsize;color:\#$alink;~;
if($sideindex=~/r/i){$out.=qq~
</td><td style="$lstyle" width="20">&nbsp;</td>
<td width="200" style="$lstyle">menbit_here</td>
</tr></table>~;}
elsif($sideindex=~/l/i){$out.=qq~\n</td></tr></table>\n~;}
if($sideindex){

$xmenbit=qq~<table cellpadding="0" cellspacing="0" border="0">
<tr valign="bottom"><td height="25" style="$nhstyle">$indexheader</td></tr>
<tr><td  style="font-sixe:8px;line-height:8px" height="10">&nbsp;</td></tr>
$menbit</table>~;
} # end if($sideindex)
return($out,$xmenbit);
}
#############################################################################################
sub htip { my(@head); xtbits();
my $lstyle=('font-size:12px;font-family:'.$font);
my $hi=qq~<span style="color:\#$alink">~; my $st=qq~$tr<td style="$lstyle"><b>&\#149;</b></td><td style="$lstyle"~;
@head=xhead('Using Hyperlinks in HiJob',$pagebgcolour,$link,$vlink,$alink,$hlink,$textcolour,$font,$tsize);
print qq~$head[0]\n$head[1]\n$head[2]\n$head[3]\n$head[4]<div style="line-height:6px">&nbsp</div>
<table border="0" cellpadding="3" cellspacing="0" width="330">
$st bgcolor="\#ececec"><b>Web addresses</b> of the form $hi<b>www.anaddress.com</b></span> and <b>email addresses</b> of the form$hi
<b>somename\@anaddress.co.uk</b></span> will be converted automatically to hyperlinks.</td></tr>
$st>Where a web address does not contain <b>www</b> then '<b>http://</b>' must precede it.<br>
E.g. $hi<b>ir.diageo.com</b></span> will not be converted to a hyperlink but $hi<b>http://ir.diageo.com</b></span> will be.</td></tr>
$st bgcolor="\#ececec">Besides	'<b>http://</b>' the protocols	'<b>https://</b>' and  '<b>ftp://</b>' are recognised.</td></tr>
$st>To provide a linked address behind a different label, the label required should be enclosed in double triangular brackets - &lt;&lt; &gt;&gt; (Greater than & less than signs)<br>
$hi<b>www.hibyte.co.uk&lt;&lt;Hibyte's Website&gt;&gt;</b></span> will produce a link of the form
<a href="#">Hibyte's Website</a><br> $hi<b>simon\@hibyte.co.uk&lt;&lt;Email Simon&gt;&gt;</b></span> will produce a link of the form
<a href="mailto:simon\@hibyte.co.uk">Email Simon</a></td></tr>
$st bgcolor="\#ececec">To open a link in a new window, specify the target like this: $hi <b>target:_blank</b></span> in single triangular brackets.<br>
$hi <b>www.hibyte.co.uk&lt;&lt;Hibyte's Website&gt;&gt;&lt;target:_blank&gt;</b></span> produces a link of the form
<a href="http://www.hibyte.co.uk" target="_blank">Hibyte's Website</a> opening in a new window.</td></tr>~;
$st=~s!\&\#149\;!\&nbsp\;!; print qq~ $st></td></tr>
$st bgcolor="\#ececec">&#167; <a href="\#" onClick="printMe();">Print this page</a>&nbsp;&nbsp;\|
&nbsp;&nbsp;<a href="javascript:window.close();">Close window</a>&nbsp;&nbsp;&nbsp;&nbsp;&copy; <a href="http://www.hibyte.co.uk" target="_blank">Hibyte</a> 2001</td></tr>
</table> ~; }
#############################################################################################
sub footer { my $fsize=($tsize.'px'); my $xfsize=$tsize-1;$xfsize.='px';
$hr=qq~<hr size="1" width="$displaywidth" color="\#$link" noshade align="left">~;
$hralt=qq~<hr size="1" width="100%" color="\#$alink" noshade align="left">~;
if($footer){$footer=qq~<div style="line-height:$fsize;font-family:$font;font-size:$xfsize;color:#$alink">
<span style="font-size:$fsize;font-weight:bold;color:\#$link">&#167; <a href="\#" onClick="printMe();">Print this page</a></span>
&nbsp;&nbsp;\|&nbsp;&nbsp;<b>expand recruitment Ltd</b> Brighton <a target="_blank" href="http://www.expandrecruitment.com">
Recruitment Consultants</a>&nbsp;&nbsp;UK - All Rights Reserved</div>$hr~;}else{$footer='';}}
#############################################################################################
sub xhead ($$$$$$$$$;$) {my($title,$bg,$link,$vis,$act,$hov,$txt,$font,$fsize,$range)=@_;
my($gtitle,$r,$rt,$sbit,$htop,$js,$bbit,$hend,@rn);$gtitle=($leg)?qq~HiJobss Editor - $title~:$title;
$fsize.='px';$htop=qq~<html>\n<head>\n<title>$title</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">~;
$hend=qq~</head>\n<body bgcolor="\#$bg"  text="#$txt" link="#$link" vlink="#$vis" alink="#$act" leftmargin="5" topmargin="5" marginwidth="0" marginheight="0">\n<ul>\n
~;$sbit=qq~ \n<style type="text/css">\n<!--\n~;
if($range){@rn=split(/\|/,$range);
foreach $r(@rn){$rt=($r.'px');$sbit.=qq~\.h$r\{font\-size\:$rt;font-family:$font}\n~;}}
$sbit.=qq~\nbody, td, p, span, ol, ul, dt, div { font-size:$fsize; font-family:$font; font-weight:normal;color:#$txt;}
body {background:$bg;}
input,select,textarea {  font-size:$fsize;font-family:$font;color:#$link;background-color: #$bg;border: 1 solid #$alink;}
A:link { COLOR:#$link; TEXT-DECORATION: underline}\nA:active { COLOR:#$act; TEXT-DECORATION: underline}
A:visited { COLOR:#$vis; TEXT-DECORATION:  underline}\nA:hover { COLOR:#$hov; TEXT-DECORATION: underline}
\-\-\>\n\<\/style\>\n~;
$js=js_bits();
$js.=qq~\nfunction printMe() { \nif(is.ie && is.mac) {
alert("Sorry, your browser does not support this function. \\nPlease select Print from your file menu.")
} else { \nwindow.print(); \n } \n return true;\n}\n\nfunction delMe(nRef,nURL){
if(confirm("Are you sure you want to delete\\n" +nRef+"?")){
window.location.href=nURL;\nreturn true;}else{return false;}\n}\n</script>~;
$bbit=qq~\n</ul>\n</body>\n</html>\n~;
return ($htop,$sbit,$js,$hend,$bbit);
}
#############################################################################################
sub leg_ck (;$) {my($p)=@_;
$leg=($INPUT{leg})?$INPUT{leg}:$PROCESS{leg};
#$fiy=crypt($ENV{'REMOTE_ADDR'},$kx);print qq~leg $leg pl $ENV{REMOTE_ADDR} cr $fiy<br>~;
if(!$leg||$leg ne crypt($ENV{'REMOTE_ADDR'},$kx)){pbox($p);}}
#############################################################################################
sub re {leg_ck('re');add_item('Edit Item',$PROCESS{'re'});}
sub de { leg_ck('de');my $file="$dloc$PROCESS{'de'}";unlink $file;edit();}
#############################################################################################
sub dirget ($;$){  my($psdata,$d)=@_; $#store=-1;
$open=opendir(DIR,$psdata); @dirlist=readdir(DIR); closedir(DIR);
foreach $l(@dirlist){if($l=~/[0-9]+/){edata($l); $ed=nicedate($fstats[9]); $ed=~s! !&nbsp;!g;
$tx= "$l\|$fstats[9]\|$header\|$ed"; if($d){$tx="$l\|$fstats[9]\|$ed"; }
unshift @store,$tx;}}
@store=sort {$a <=> $b;} @store; @store=reverse @store;}
#############################################################################################
sub edit { leg_ck(edit);  $ltag=($leg)?"&leg=$leg":''; $body=get_page("$tloc$outpage");
$title='HiJobs Editor - List';
@head=xhead($title,$pagebgcolour,$link,$vlink,$alink,$hlink,$textcolour,$font,$tsize);
my ($ttop,$base)=split(/content_here/,$body);
$ttop||="$head[0]$head[3]<br>"; $base||="$head[4]";
$ttop=~s!title\_here!$title!gi;
$ttop=~s!\<\/head\>!$head[1]$head[2]\<\/head\>!i;print $ttop;

my $links=qq~<span style="$ystyle"><a href="$my_http?add_item=y$ltag$ptag">Add job vacancies</a>
 \| <a href="#" onClick="ST_note(\'$my_http?null=y$ptag\',800,500,'Yes','Yes',10,10,'pWin');">Preview Jobs Page</a>
 \| <a href="$my_http?null=y$ptag">Leave Edit Mode</a></span>
~;

my $exfsize=$tsize+4;$exfsize.='px';
dirget($dloc); xtbits();footer(); my $fsize=($tsize.'px'); my $xfsize=$tsize-1;$xfsize.='px';
my $zstyle=qq~font-family:$font;font-size:$fsize;color:\#$alink;font-weight:bold~;
my $ystyle=qq~font-family:$font;font-size:$xfsize;color:\#$textcolour;font-weight:normal~;
print qq~<span style="font-family:$font;font-size:$exfsize;font-weight:bold;color:\#$textcolour">$title $indexheader</span><br>
$hr$links$hr<br>$ts
<td width="160" style="$zstyle">Headline</td>\n<td width="160"	style="$zstyle">Last Modified</td>
<td  style="$zstyle" width="35">Edit</td><td width="35"  style="$zstyle">Delete</td></tr>
~;
foreach $ln(@store){chomp $ln;@tt=split(/\|/,$ln);my $dx=$tt[2];
$dx=~s![\'\!\*\'\"\?\/\\\|\`\¬\+\-\_\{\[\]\}\@\#\~\:\;\>\<]*!!g;
print qq~$tr<td style="$ystyle">$tt[2]</td><td style="$ystyle">$tt[3]</td>
<td style="$ystyle"><a href="$my_http?re=$tt[0]$ltag$ptag">Edit</a></td>
<td style="$ystyle"><a href="$my_http?de=$tt[0]$ltag$ptag" onClick="return delMe\(\'$dx\',\'$my_http?de=$tt[0]$ltag\'\)">Delete</a></td></tr>
~;}
print qq~$tr<td></td>$te~;
print qq~<br><br>$links
<br><br>$hr\n$footer<br><br>~;

print $base;
}
#############################################################################################
sub witem { leg_ck(witem);
@fields=('header','price','intro','bullets','outro','jobr','cldt','hwer','outro2','cdet');
my $now=time();
if(!$INPUT{art_id}){$nfile=nfile($now);}
foreach $el(@fields){$$el=$INPUT{$el};}
my $fref=($INPUT{art_id})?$INPUT{art_id}:$nfile;
wdata($fref);
edit();
}
#############################################################################################
sub nfile {
my ($n)=@_; my $fnum=0;
while($fnum<1){my $file="$dloc$n";if(!(-e $file)){$fnum=1;}else{$n++;}}
return($n);
}
#############################################################################################
sub add_item (;$$){ leg_ck(add_item);  $body=get_page("$tloc$outpage");
my($op,$fref)=@_;   $op||='Add Item';	 db('add_item',"$op $fref");
$title="HiJobs - $op";
@head=xhead($title,$pagebgcolour,$link,$vlink,$alink,$hlink,$textcolour,$font,$tsize);
my ($ttop,$base)=split(/content_here/,$body);
$ttop||="$head[0]$head[3]<br>"; $base||="$head[4]";
$ttop=~s!title\_here!$sectname!gi;
$ttop=~s!\<\/head\>!$head[1]$head[2]\<\/head\>!i;print $ttop;

$ltag=($leg)?"&leg=$leg":'';
if($fref){$reset=1;edata($fref);}  my $exfsize=$tsize+4;$exfsize.='px';
my $fsize=($tsize.'px'); my $xfsize=$tsize-1;$xfsize.='px'; my $cw=$displaywidth-140;
my $zstyle=qq~font-family:$font;font-size:$xfsize;color:\#$link;font-weight:normal~;
my $xstyle=qq~font-family:$font;font-size:$fsize;color:\#$link;font-weight:bold~;
my $ystyle=qq~font-family:$font;font-size:$fsize;color:\#$textcolour;font-weight:normal~;
my $nl=int($displaywidth/11);my $ncw=int($cw/11);
$op=($op)?$op:'Add Item';  footer();
xtbits();  my $now=time();$nfile=($fref)?$fref:nfile($now);
$now=nicedate(time);
my $fx=hblock('Job Title','Salary<br><span class="h8">(optional)</span>');
my $ot='Optional intro text here';my $ol=lc($ot);
my $bpoint=brow('Bullet point text here');$bpoint=qq~$ts<span style="$ystyle">$bpoint</span>$te~;

my $hstrip=textb('header',$cw,$ncw); my $pstrip=textb('price',140,14);
my $fr=hblock("Job Title<br>$hstrip",qq~Salary<span class="h8"> (optional)</span><br>$pstrip~);
my $inb=textarea('intro',$displaywidth,$nl,3); my $oub=textarea('outro',$displaywidth,$nl,3);
my $jref=textb('jobr',$displaywidth,45); my $cdat=textb('cldt',$displaywidth,45);
my $hpw=textb('hwer',$displaywidth,45); my $oub2=textb('outro2',$displaywidth,45);
my $bul=textarea('bullets',$displaywidth,$nl,4); my $cdt=textarea('cdet',$displaywidth,$nl,3);

my $links=qq~$tr<td height="20"  style="$ystyle">$hr
<a href="$my_http?edit=y$ltag$ptag">Jobs Index</a>~;
if($fref){$links.=qq~ \| <a href="$my_http?add_item=y$ltag$ptag">Add Job Vacancies</a>~;}
$links.=qq~
<br><a href="#" onClick="ST_note(\'$my_http?null=y$ptag\',800,500,'Yes','Yes',10,10,'pWin');">Preview Jobs Page</a>
 \| <a href="$my_http?null=y$ptag">Leave Edit Mode</a>$hr</td></tr>~;


print qq~<form name="form1" action="$my_http?witem=y$ptag" method="POST">
<input type="hidden" name="leg" value="$leg">
<input type="hidden" name="art_id" value="$nfile">
$ts<td $hbk>$title:</td></tr>$links

$blank
$tr<td height="20" style="$ystyle"><b>Use the form below to enter data. This is how the various elements will appear:</b>$hr</td></tr>
$tr<td style="$ystyle">$fx</td></tr>
$blank$tr<td style="$ystyle">$ot $ol $ol $ol $ol $ol.</td></tr>
$blank$tr<td style="$ystyle">$bpoint</td></tr>\n$tr<td style="$ystyle">$bpoint</td></tr>~;
$ot='Optional tailer text here';my $ol=lc($ot);
print qq~
$blank$tr<td style="$ystyle">$ot $ol $ol $ol $ol $ol.</td></tr>
$blank$tr<td  style="$zstyle">Item last updated:&nbsp;&nbsp;&nbsp;Auto-entered date</td></tr>
$tr<td height="20" style="$ystyle">$hr
<b>Enter text in the boxes you wish to use below, and click 'Update Item'</b>$hr
<span style="$zstyle">
Tip: <a href="#" onClick="ST_note(\'$my_http?htip=y\',350,470,'No','No',10,10,'TipWin');">Using Email & Web Addresses</a>
</span>
$hr</td></tr>
$tr<td>$fr</td></tr>
$tr<td style="$xstyle">Intro text:<br>$inb</td></tr>
$tr<td style="$xstyle">Bullet Points: <span class="h8">(Optional - Hit return after each point)</span><br>$bul</td></tr>
$tr<td style="$xstyle">Tailer Text: <span class="h8">(Optional)</span><br>$oub</td></tr>
$tr<td style="$xstyle">Job Ref: <span class="h8">(Optional)</span><br>$jref</td></tr>
$tr<td style="$xstyle">Closing Date: <span class="h8">(Optional)</span><br>$cdat</td></tr>
$tr<td style="$xstyle">Hours Per Week : <span class="h8">(Optional)</span><br>$hpw</td></tr>
$tr<td style="$xstyle">Contact Email address:<br>$oub2</td></tr>
$tr<td style="$xstyle">Contact Details: <span class="h8">(Optional)</span><br>$cdt</td></tr>
$blank$tr<td  style="$zstyle">Item last updated:&nbsp;&nbsp;&nbsp;$now</td></tr>
$tr<td align="right"><input type="submit" name="submit" value="Update Item" style="font-family:Arial;font-size:12px;margin-top:4px"></td></tr>
$links~;
print "</table></form>"; print $footer; print $base; }
#############################################################################################
sub hblock ($;$){ my($hd,$pr)=@_;    my $fsize=$tsize+4; $fsize.='px';
my $cw=$displaywidth-140;my $hblock=qq~
<table width="$displaywidth" border="0" cellspacing="0" cellpadding="0">\n<tr align="left">
<td width="$cw" style="font-family:$font;font-size:$fsize;color:\#$alink;font-weight:bold">$hd</td>
<td align="right" width="140" style="font-family:$font;font-size:$fsize;color:\#$alink;font-weight:bold">$pr</td>
</tr></table>~; return ($hblock);}
#############################################################################################
sub brow { my($bp)=@_;	my $fsize=($tsize.'px'); my $gw=$displaywidth-65; my $ch=$tsize+4;my $xfsize=($ch.'px');
my $lh=($tsize.'px');my $brow=qq~
<td width="20">&nbsp;</td>\n<td valign="top" style="line-height:$lh;font-family:$font;font-size:$xfsize;color:\#$textcolour" width="15">&#149;</td>
<td width="$gw" height="$ch" valign="top" style="font-family:$font;font-size:$fsize;color:\#$textcolour">$bp</td>~;
return($brow); }
#############################################################################################
sub textarea { my($nm,$wd,$cl,$rw)=@_;	my $fsize=($tsize.'px');
my $ta=qq~
<textarea wrap="virtual" name="$nm" cols="$cl" rows="$rw" style="margin-top:4px;margin-bottom:4px;font-family:$font;font-size:$fsize;width:$wd">$$nm<\/textarea>
~;
return($ta); }
#############################################################################################
sub textb { my($nm,$wd,$cl)=@_;    my $fsize=($tsize.'px');
my $ta=qq~
<input type="text" name="$nm" value="$$nm" size="$cl" style="margin-top:4px;margin-bottom:4px;font-family:$font;font-size:$fsize;width:$wd">
~;
return($ta); }
#############################################################################################
sub xtbits { my $fsize=$tsize+4; $fsize.='px';
$ts=qq~\n<table width="$displaywidth" border="0" cellspacing="0" cellpadding="0">\n<tr align="left" valign="top">\n~;
$tr=qq~<tr align="left" valign="top">\n~;
$te=qq~</tr></table>~;
$hbl=qq~style="font-family:$font;font-size:$fsize;font-weight:bold;color:\#$alink;"~;
$hbk=qq~style="font-family:$font;font-size:$fsize;font-weight:bold;color:\#$textcolour;"~;
$hrd=qq~style="font-family:$font;font-size:$fsize;font-weight:bold;color:\#$link;"~;
$blank=qq~$tr<td height="6"></td></tr>~;
}
#############################################################################################
sub use_this_file ($$;$$$){
my($method,$file,$do_this,$print_this,$dummy) = @_;   my($teg,$rep,$met,@this_list);
$met='Read';$met=($method eq '>')?'Write':$met;$met=($method eq '>>')?'Append':$met;
$teg=open (INFILE, "$method$file"); $rep=($teg)?'OK':$!;db("utf $met $file",$rep);
@fstats=stat(INFILE);
if ($do_this) {&$do_this;}$do_this="";
if ($print_this||$dummy) {print INFILE $print_this;$print_this="";}
else {@this_list= <INFILE>; }close (INFILE); return(@this_list); }
#############################################################################################
sub file_text ($){my($aname) = @_;my($ftext,$lx);foreach $lx(@$aname){chomp $lx;$ftext.="$lx\n";}
return ($ftext);}
##############################################################################################
sub get_page { my($opener)=@_;my($body,$value,@page); open (INFILE,"$opener");
@page = <INFILE>;close (INFILE);foreach $value(@page) {$body .=$value;}
$body=~s!my_http!$my_http!igs; $body=pclean($body); $body=~s!html_loc!$siteloc!gis; $body=~s!cgi_loc!!gis;
return($body); }
#############################################################################################
sub pclean {my($out)=@_;
$out=~s!([\"\'])(\.\.\/)+!$1\/!gi; $out=~s!src([ ]*\=[ ]*[\"\']http)!sgc\1!gis;
$out=~s!href([ ]*\=[ ]*[\"\']http)!gref\1!gis;$out=~s!href([ ]*\=[ ]*[\"\']java)!gref\1!gis;
$out=~s!href([ ]*\=[ ]*[\"\']\#)!gref\1!gis; $out=~s!background([ ]*\=[ ]*[\"\']http)!gackground\1!gis;
$out=~s!src([ ]*\=[ ]*[\"\'])!src\1$siteloc\/!gis; $out=~s!href([ ]*\=[ ]*[\"\'])!href\1$siteloc\/!gis;
$out=~s!background([ ]*\=[ ]*[\"\'])!background\1$siteloc\/!gis;$out=~s!href=\"$siteloc\/http!href=\"http!gis;
$out=~s!$siteloc\/\#!\#!gis;$out=~s!$siteloc\/javascript!javascript!gis;
$out=~s!href=\"$siteloc\/mailto!href=\"mailto!gis;$out=~s!sgc[ ]*\=!src\=!gis;
$out=~s!gref[ ]*\=!href\=!gis;$out=~s!gackground[ ]*\=!background\=!gis;$out=~s!$siteloc$siteloc!$siteloc!gis;
$out=~s!([A-z0-9\:]+)/+([A-z0-9]+)!$1/$2!gi;$out=~s!http:/!http://!gis;return ($out); }
#############################################################################################
sub ascii_to_html {
my($word)=@_;  my $ret="";
my $len=length($word);
$vnum=0;
while($vnum<$len) {$x=substr($word,$vnum,1);
if(!($x=~/[A-z0-9\r\n\s\#\&\;\?\-\_\:\<\>\/\.]/)){$x=ord($x);$x="\&\#$x\;"; }
$ret.=$x; $vnum++;}
return($ret);
}
#############################################################################################
sub html_to_ascii {
my($word)=@_;  my $ret="";
while($word=~/\&\#([0-9]+)\;/){
$x=$1;$x=chr($x);
$word=~s!\&\#([0-9]+)\;!$x!; }
$word=~s!\'!\&\#39;!g; $word=~s!\"!\&\#34;!g;$word=~s![\<]!\&\#60\;!g;$word=~s![\>]!\&\#62\;!g;
return($word);
}
#############################################################################################
sub edata {
my ($fref)=@_; my $file="$dloc$fref"; db('edata',$file); my $dets="";
if (-e	$file) {@this_list=use_this_file('',$file);
foreach $line(@this_list) {$line=~s!\n$!!g; $line=~s!\r$!!g;$dets.="$line\n";}
($header,$price,$intro,$bullets,$outro,$jobr,$cldt,$hwer,$outro2,$cdet)=split(/\|/,$dets);} # end if (-e  $file)
my @re=('header','price'); foreach $lx(@re){$$lx=html_to_ascii($$lx);}
if($leg && $reset){@re=('intro','outtro2','outro','jobr','cldt','hwer','bullets','cdet'); foreach $lx(@re){$$lx=uhl($$lx);}}
}
##################################################
sub wdata {
my ($fref)=@_; my $file="$dloc$fref";
my @re=('header','price'); foreach $lx(@re){$$lx=ascii_to_html($$lx);}#$#re=-1;
@re=('intro','outtro2','outro','jobr','cldt','hwer','bullets','cdet'); foreach $lx(@re){$$lx=hl($$lx);}
$pt=($header.'|'.$price.'|'.$intro.'|'.$bullets.'|'.$outro.'|'.$jobr.'|'.$cldt.'|'.$hwer.'|'.$outro2.'|'.$cdet);
@this_list=use_this_file('>',$file,'',$pt); $#this_list=-1;chmod 0777,$file;
}
############################################################################################
 sub db {
local($desc,$descval)=@_;
 if($db) {ps();  print qq~<font color="#ff0000">$desc</font> $descval<br>~; }
 }
############################################################################################
 sub ps {
  if(!$ps) { print "Content-type: text/html\n\n";  $ps=1; }
 }
#############################################################################################
sub js_bits {
my $bits=qq~
<script language="javascript">\n
function Is() {
    agent  = navigator.userAgent.toLowerCase();
    plat = navigator.platform.toLowerCase();
    this.mac   = (plat.indexOf('mac')	!=   -1);
    this.win   = (plat.indexOf('win')	!=   -1);
    this.major = parseInt(navigator.appVersion);
    this.minor = parseFloat(navigator.appVersion);
    this.ns    = ((agent.indexOf('mozilla')   !=   -1) &&
		 ((agent.indexOf('spoofer')   ==   -1) &&
		 (agent.indexOf('compatible') ==   -1)));
    this.ns4   = (this.ns && (this.major      ==    4));
    this.ns6   = (this.ns && (this.major      >=    5));
    this.ie    = (agent.indexOf("msie")       !=   -1);
    this.ie3   = (this.ie && (this.major      < 4));
    this.ie4   = (this.ie && (this.major      ==    4) &&
		 (agent.indexOf("msie 5.0")   ==   -1));
    this.ie5   = (this.ie && (this.major      ==    4) &&
		 (agent.indexOf("msie 5.0")   !=   -1));
    this.ie55  = (this.ie && (this.major      ==    4) &&
		 (agent.indexOf("msie 5.5")   !=   -1));
    this.ie6   = (this.ie && (agent.indexOf("msie 6.0")!=-1) );
}

var is = new Is();

var StoreWindow = null;
var proc= '<span style="font-family:sans-serif;font-size:16pt;color:#3638bd">Processing'
+ ' - please wait</span>';
function ST_note(theURL,uWidth,uHeight,sbar,res,locH,locV,StoreWindow) {
var attr='scrollbars='+sbar+',resizable='+res+',width=' + uWidth + ',height=' +uHeight
if(!window.StoreWindow || window.StoreWindow.closed) {
if(is.mac && is.ie) {
StoreWindow = window.open(theURL,StoreWindow,attr);
StoreWindow.focus();
} else {
StoreWindow = window.open('',StoreWindow,attr);
StoreWindow.moveTo(locH,locV)
StoreWindow.document.close();
StoreWindow.document.write(proc);
StoreWindow.focus()
StoreWindow.location.href = (theURL)
} // end else
} else {
StoreWindow.location.href = (theURL)
StoreWindow.focus()
}
return StoreWindow;
}
function keyW(myForm){
if(!myForm.keywords.value){
alert('Please enter keyword(s)');return false;}
return true;	}
~;
return($bits);}
#############################################################################################
sub nicedate { my($edate)=@_; local ($v,$eday,$emon,$eyr,@vi,@days,@mons);
local ($secs,$mins,$hrs,$day,$mon,$yr,$wkday,$yrday,$dsaving)=localtime($edate);
@days=('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
@mons=('January','February','March','April','May','June','July','August','September','October','November','December');
$eday=$day; $eyr=$yr+1900;
@vi=('eday','hrs','mins','secs');
foreach $v(@vi){$$v=lzero($$v); }
$xedate="$days[$wkday] $mons[$mon] $eday $eyr $hrs\:$mins";  }
#############################################################################################
sub lzero { my($val)=@_; if($val=~/^[0-9]$/){$val="0$val";}return $val;}
#############################################################################################
sub hl { my($string)=@_;
$string=~s!\<a[ ]+href[ ]*\=[ ]*([\'\"]?)([hstpfHSTPF]+)\:\/\/!\<a href\=$1$2xxspigxx!ig;
$string=~s|([hstpfHSTPF]+)\:\/\/([a-zA-Z0-9\.\-\/\?\&\=]+)|<a href="$1://$2">$1://$2</a>|gi;
$string=~s|([\n\r ]+)www\.([a-zA-Z0-9\.\-\/\?\&\=]+)|$1<a href="http://www\.$2">www\.$2</a>|gi;
$string=~s|([\n\r ]+)([a-zA-Z0-9\.\-]+)\@([a-zA-Z0-9\.\-]+)|$1<a href="mailto\:$2\@$3">$2\@$3</a>|gi;
$string=~s|^www\.([a-zA-Z0-9\.\-\/\?\&\=]+)|<a href="http://www\.$1">www\.$1</a>|gi;
$string=~s|^([a-zA-Z0-9\.\-]+)\@([a-zA-Z0-9\.\-]+)|<a href="mailto\:$1\@$2">$1\@$2</a>|gi;
$string=~s!xxspigxx!\:\/\/!ig;
$string=~s!\>(.*?)\<\/a\>[ ]*\<\<(.*?)\>\>!\>$2\<\/a\> !ig;
$string=~s!\>(.*?)\<\/a\>[ ]*\<target\:(.*?)\>! target=\"$2\"\>$1\<\/a\> !ig;
 return($string);  }
#############################################################################################
sub uhl { my($string)=@_;  my($l,$n);
$string=~s!\<a[ ]+(.*?)target[ ]*\=[ ]*[\'\"]{1}([\S]+)[\'\"]{1}\>(.*?)\<\/a\>!\<a $1\>$3\<\/a\>\<target\:$2\>!gi;
$string=~s!href[ ]*\=[ ]*([\'\"]{1})mailto\:!href\=\1!gi;
while($string=~/\<a[ ]+href[ ]*\=[ ]*[\'\"]{1}([\S]+)[\'\"]{1}[ ]*\>(.*?)\<\/a\>/i){
$l=$1;$n=$2;if($l eq $n){
$string=~s!\<a[ ]+href[ ]*\=[ ]*[\'\"]{1}([\S]+)[\'\"]{1}[ ]*\>(.*?)\<\/a\>!$1!i;}
else{$string=~s!\<a[ ]+href[ ]*\=[ ]*[\'\"]{1}([\S]+)[\'\"]{1}[ ]*\>(.*?)\<\/a\>!$1\<\<$2\>\>!i;}
} # end while
return($string);  }
#############################################################################################