p2hutil.pl

Index

File = [p2hutil.pl]
#!/perl
 
sub add_html_head {
    my ($fh, $hdr) = @_;
    print $fh <<"EOF";
<html>
<head>
<title>$hdr</title>
EOF
    # dynamic block of style - could be put to an include file ...
    add_html_style($fh);
 
    print $fh <<"EOF";
 
</head>
 
<body background="cldsp.jpg">
 
<h1 align="center">$hdr</h1>
 
<p align="center"><a href="index.htm">Index</a></p>
 
EOF
 
}
 
sub add_html_head_a {
    my ($fh, $hdr) = @_;
    print $fh <<"EOF";
<html>
<!-- $refnum geoffmclane.com perl
    HTML generated using $0 - -->
<head>
<title>$hdr</title>
EOF
    # dynamic block of style - could be put to an include file ...
    add_html_style($fh);
 
    print $fh <<"EOF";
<script language="JavaScript">
<!-- ---------------------------------------------------------------------------
function ModifiedDate() {
var month = new Array("January","February","March","April","May","June","July",
                    "August","September","October","November","December");
var updated = new Date(document.lastModified);
var Month = month[updated.getMonth()];
var Day = updated.getDate();
var Year = updated.getYear();
var Hour = updated.getHours();
var Min = updated.getMinutes();
    if( Year < 2000 ) Year += 1900;
    if( Year < 2000 ) Year += 100; //Netscape 3 and IE 4.7 return 0 instead of 100 for 2000
    if( Hour < 10 ) Hour = "0" + Hour;
    if( Min < 10 ) Min = "0" + Min;
    document.write("Last modified " + Month + " " + Day + ", " + Year + " at " + Hour + ":" + Min);
}
//-------------------------------------------------------------------------- -->
</script>
<style>
.xsmall { font: 8pt "trebuchet ms", verdana, arial, sans-serif; }
</style>
 
</head>
 
<body background="cldsp.jpg">
 
<h1 align="center">$hdr</h1>
 
<p align="center"><a href="index.htm">up</a></p>
 
EOF
 
}
 
 
# was <table align="center" width="96%" border="0" bgcolor="#eeeeee">
# then <table border=1 cellspacing=0 cellpadding=0 style='border-collapse:collapse; border:none'
#    align="center" width="96%" border="0" bgcolor="#eeeeee">
# color ? <table border="1" width="98%" style="font-family: Courier New; font-size: 10pt; color: #0000FF" cellpadding="0" cellspacing="0">
##ok1 <table align="center" border="1" width="80%" cellpadding="0" cellspacing="0" bgcolor="#eeeeee" style='border-collapse:collapse; border:none'>
##ok2 <table align="center" border="1-4" width="96%" cellpadding="0" cellspacing="0" bgcolor="#eeeeee">
##ok3 <table align="center" border="1" width="96%" cellpadding="0" cellspacing="0" bgcolor="#eeeeee">
sub add_html_table {
    my ($fh) = @_;
    if ($addlinenums) { # for diagnostic, mainly, since it DESTROYS simple copy-paste ;=((
        print $fh <<EOF;
 
<table align="center" border="1" width="90%" cellpadding="1" cellspacing="1" bgcolor="#eeeeee">
 
EOF
    } else {
        print $fh <<EOF;
 
<table align="center" border="1" cellpadding="0" cellspacing="0" bgcolor="#eeeeee">
 
EOF
    }
 
}
 
sub add_html_tail {
    my ($fht) = @_;
    print $fht <<EOF;
<p align="center"><a href="index.htm">Index</a></p>
</body>
</html>
<!-- $refnum geoffmclane.com/perl - HTML generated using $0 - -->
EOF
 
}
 
sub add_html_tail_a {
    my ($fh) = @_;
    print $fh <<"EOF";
 
<div style="margin-top:10px;">
<table width="100%">
<tr>
   <td>
    <div class="xsmall" style="font-family:verdana,arial,sans-serif;">
      <a href="index.htm">Up</a>
      </div>
   </td>
   <td align="right">
      <div class="xsmall" style="font-family:verdana,arial,sans-serif;">
<script language="JavaScript">
<!-- -------------
   ModifiedDate()
//------------ -->
</script>
      </div>
   </td>
</tr>
</table>
</div>
 
</body>
 
</html>
 
EOF
 
}
 
### COLOR: #00008b;
sub addTTitem_simp {
    my ($fh, $nm, $bd, $bg) = @_;
    print $fh <<"EOF3";
.$nm { COLOR: $bd }
EOF3
 
}
 
sub addTTitem_bkgrd {
    my ($fh, $nm, $bd, $bg) = @_;
    print $fh <<"EOF3";
.$nm { BACKGROUND-COLOR: $bg }
EOF3
}
 
sub addTTitem_bkgrd1 {
    my ($fh, $nm, $bd, $bg) = @_;
    print $fh <<"EOF3";
.$nm
{
 BACKGROUND-COLOR: $bg;
 BORDER-TOP: $bg 1px solid;
 BORDER-BOTTOM: $bg 1px solid
 PADDING-BOTTOM: 1px;
 PADDING-TOP: 1px;
}
EOF3
}
 
sub addTTitem_bkgrd2 {
    my ($fh, $nm, $bd, $bg) = @_;
    print $fh <<"EOF3";
.$nm
{
 BACKGROUND-COLOR: $bg;
 BORDER-TOP: $bg 2px solid;
 BORDER-BOTTOM: $bg 2px solid
}
EOF3
}
 
sub addTTitem_bkgrd21 {
    my ($fh, $nm, $bd, $bg) = @_;
    print $fh <<"EOF3";
.$nm { BACKGROUND-COLOR: $bg }
EOF3
}
 
sub addTTitem_bkgrd2p {
    my ($fh, $nm, $bd, $bg) = @_;
    print $fh <<"EOF3";
.$nm
{
 BACKGROUND-COLOR: $bg;
 BORDER-TOP: $bg 2px solid;
 BORDER-BOTTOM: $bg 2px solid
 PADDING-BOTTOM: 2px;
 PADDING-TOP: 2px;
}
EOF3
}
 
 
sub addTTitem_full {
    my ($fh, $nm, $bd, $bg) = @_;
    print $fh <<"EOF3";
.$nm
{
    COLOR: $bd;
    BORDER-TOP: $bd 1px solid;
    BORDER-LEFT-WIDTH: 1px;
    BORDER-LEFT-COLOR: $bd;
    PADDING-BOTTOM: 1px;
    PADDING-TOP: 1px;
    BORDER-BOTTOM: $bd 1px solid;
    WHITE-SPACE: nowrap;
    BACKGROUND-COLOR: $bg;
    BORDER-RIGHT-WIDTH: 1px;
    BORDER-RIGHT-COLOR: $bd
}
EOF3
 
}
 
sub add_body_style_NOT_USED {
    my ($fh) = @_;
    print $fh <<"EOF1";
<style type="text/css">
body { font-size: 14 px }
.info {
text-align: "center" ;
color: #989898 ;
font-size: "75%" ;
font-weight: "bold" ;
margin: 5px ; }
</style>
<P>
<CENTER>
<TABLE BORDER=0 BGCOLOR=lightblue CELLPADDING=5>
 <TR>
 <TD>
 <TABLE BORDER=0 CELLPADDING=10 bgcolor=#eeeeee>
  <TR>
  <TD>
  <PRE class=codebox>
print ("Name is ", \$name, " age next year is ", \$age+1, "\n" );
  </PRE>
  </TD>
  </TR>
 </TABLE>
 </TD>
 </TR>
</TABLE>
</CENTER>
<P>
 
EOF1
 
}
 
 
 
1;
 
#EOF
 

Colour Key :
Function, Description., Colour
Style Description Colour
match array l.blue
orange comment brown
regex unass l.br
green s-quote s.green
color1 scalar pink
color2 functions mauve
color3 d-quote b.green
color4 color4 color4
color5 color5 color5
peach hash l.brn
blue reserved blue
white other white
grey punctuation l.grey

Parse stats
Reserved Words
#ResWdCount
1sub13
2else1
3my13
4if1
List of 4 used reserve words ...
 
Built-in Functions
#FuncsCount
1print16
List of 1 used built-in function words ...
 
Punctuation Used
#PuncuatCount
1=13
2{15
3,23
4)16
5<<16
6(16
7;32
8}15
List of 8 used punctuation ...
 
Arrays
#U.ArraysCount
1@_13
List of 1 user arrays ...
 
Hash
#U.HashCount
List of 0 user hash (associative arrays) ...
 
Scalar
#U.ScalarCount
1$bd7
2$fht2
3$nm7
4$hdr2
5$bg7
6$fh29
7$addlinenums1
List of 7 user scalars ...
 

Index