gentable.php to HTML

index

USE AT OWN RISK

Generated: Thu Aug 16 11:08:54 2007 from gentable.php 2007/08/12 21.2 KB bytes.

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Image List</title>
</head>

<!-- <body background="clds4.jpg"> -->
<!-- <body background="temp3/ant12122-n2.jpg"> -->
<body>

<h1 align="center">Image List</h1>

<p>Full set of images ...</p>

<?php
// gentable.php
// AIM: To autogenerate a full table display.
// In this case the table if of the thumb images,
// and clicking on the image opens the full image.
// IN this particular case, they are PAIRED images
// aaa-t.jpg is the thumb, and aaa-n.jpg is the full image
// so this is a little special ...
// geoff mclane - geoffair.@.hotmail _dot_ com - 10 December, 2005
// fixes 2006.09.01 - used to generate all-image htm files ...
// 2007.06.19 - corrected 'heigth' to 'height'
// 12/08/2007 - add 'triplet' parsing - name.jpg, name.sized.jpg, name.thumb.jpg, name.hoghlight.jpg
// special for Gallery
$m_wrap = 4; // 0=1x1 table list, else wrap at ...
$paired = 0; // set to DEAL with paired images -t and -n
$triplets = 1;   // deal with imagename.jpg, imagename.sized.jpg, imagename.thumb.jpg
$all_subs = 1; // process all sub-folders from root
$full_src = 0;   // use FULL source (for DEBUG mainly)
$gen_ats = 0;   // use attributes of IMAGE
$add_link = 1;   // add a link to file
$add_link2 = 1;   // image is LINK to FULL image, name is LOCAL LINK to SIZED image in prt_table3()

$meol = "\r\n";
$base_folder = 'C:/HOMEPAGE/GA/macpc/tomato';
$in_folder = "$base_folder/albums";

// $in_folder = 'c:/HOMEPAGE/P26/antony/final';
//$in_folder = 'C:/HOMEPAGE/Max5/ozimages';

//$out_folder = 'rubbish';   // not actually USED!!!
// $out_folder = 'final';
$out_folder = $in_folder;
//$out_folder = '128x128';
//$out_folder = '640x480';
$mk_rel = 1;
$rep_sp = 0;
$aln_lf = 1;

$excl_dir = array('_vti_cnf', '_derived', '_private', '_vti_pvt');
$excl_fils = array('clds3.jpg');
$file_count = 0;
$file_count2 = 0;
$file_count3 = 0;
$file_count4 = 0;
$m_filearr = array();
$m_filearr2 = array();
$m_filearr3 = array();
$m_filearr4 = Array();
$m_missed = Array();

// this array is made up of an array
// of the file name,
// and its image size 313x204
// its size, and date
$arr_fn = 0;
$arr_is = 1;
$arr_fs = 2;
$arr_fd = 3;
$arr_ff = 4;
$arr_dn = 5;

$i = 0;
// table attributes
// $tab_str = '<table border="0" width="100%">';
$tab_str = 'table border="2" width="100%"';
$td_str = 'td width="25%" align="center" valign="center"';
$img_ats = 'border="0" width="171" height="128"';

// $td_st3 = 'td align="center" valign="center"';
$td_st3 = 'td align="center"';
$img_at3 = 'border="0"';

if ($triplets) {
   // got the GALLERY set of 3 - name.jpg, name.sized.jpg, name.thumb.jpg
   get_file_arr( $in_folder, $out_folder );
   prt_table3( $m_wrap );
} else if ($paired) {
   get_file_arr2( $in_folder, $out_folder );
   if( $file_count != $file_count2 ) {
   print "ERROR: List of files NOT matched $file_count versus $file_count2 ... aborting ...<br>$meol";
   exit(1);
   }
   prt_table2( $m_wrap );
} else {
   get_file_arr( $in_folder, $out_folder );
   prt_table( $m_wrap, 3 );
   //prt_table( $m_wrap, 1 );
}

// ================================================================================
// get a SIMPLE LIST of ALL IMAGE FILES, and put them in an ARRAY, with INFORMATION
// IFF $triplets, then split them OVER arrays 1, 2, 3, and 4
// 1 = raw image
// 2 = sized image
// 3 = thumb image
// 4 = highlight image
// ================================================================================
function get_file_arr ( $inf, $outf ) {
   global $meol;
   global $file_count, $file_count2, $file_count3, $file_count4;
   global $all_subs;
   global $triplets;
   global $m_missed;
   $mydir = opendir($inf) ;
   if( !$mydir ) {
   echo "ERROR: Can not OPEN directory [$inf] ... aborting ... <br>$meol";
   return 0;
   }
   $dirarr = array();
   $dircnt = 0;   // start with NO folders
   // while($fn = readdir($mydir)) //scan through the whole directory
   while(false !== ($fn = readdir($mydir))) //scan whole directory
   {
   if( !(($fn == '.') || ($fn == '..')) ) {
   $inp_file = $inf . '/' . $fn;
   if( is_dir( $inp_file ) ) {
   if( !in_exclude( $fn ) ) {
   if($all_subs > 0) {
   $dirarr[] = $inp_file;
   $dircnt++;
   }
   }
   } else {
   if( IsMYFile( $fn ) && !exclude_file($fn) ) {
   // if( IsMYFile( $fn ) ) {
   $file_size = filesize( $inp_file );
   $file_time = filemtime( $inp_file );
   $imgSx = 0;
   $imgSy = 0;
   $src_img = imagecreatefromjpeg( $inp_file );
   if ($src_img) {
   $imgSx = imagesx($src_img);
   $imgSy = imagesy($src_img);
   }
   $arr = array();
   $arr[] = $outf . '/' . $fn; // $arr_fn = 0;
   $arr[] = '' . $imgSx . 'x' . $imgSy; //$arr_is = 1;
   $arr[] = $file_size; //$arr_fs = 2;
   $arr[] = $file_time; //$arr_fd = 3;
   $arr[] = $inp_file;   // $arr_ff = 4; FULL PATH NAME
   $arr[] = FALSE;   // $arr_dn = 5; true or false
   if($triplets) {
   $bn = basename($fn, '.jpg');
   if (preg_match( '/.sized/', $bn )) {
   $file_count2++;
   AddFile2($arr);   // is SIZED
   } else if (preg_match( '/.thumb/', $bn )) {
   $file_count3++;
   AddFile3($arr);   // is THUMB
   } else if (preg_match( '/.highlight/', $bn )) {
   $file_count4++;
   AddFile4($arr);   // is HIGHLIGHT
   } else {
   $file_count++;
   AddFile($arr);   // NOT sized, thumb or highlight
   }
   } else {
   AddFile($arr);
   $file_count++;
   }
   } else {
   $m_missed[] = $inp_file;   // KEEP those MISSED
   }
   }
   }
   }

   closedir($mydir);   // done this DIRECTORY
   if(($all_subs > 0)&&($dircnt > 0)) {
   for( $i2 = 0; $i2 < $dircnt; $i2++ ) {
   get_file_arr ( $dirarr[$i2], $dirarr[$i2] );
   }
   }
   return $file_count;
}

// get a PAIRED LIST of file, where one has '-t' added to the name
// =================
function get_file_arr2 ( $in_folder, $out_folder )
{
   global $meol;
   global $file_count, $file_count2;
   $mydir = opendir($in_folder) ;
   if( !$mydir ) {
   echo "ERROR: Can not OPEN directory [$in_folder] ... aborting ... <br>$meol";
   return 0;
   }
   while($fn = readdir($mydir)) //scan through the whole directory
   {
   if( !(($fn == '.') || ($fn == '..')) ) {
   $inp_file = $in_folder . '/' . $fn;
   if( IsMYFile( $fn ) && !exclude_file($fn) ) {
   $file_size = filesize( $inp_file );
   $file_time = filemtime( $inp_file );
   $imgSx = 0;
   $imgSy = 0;
   $src_img = imagecreatefromjpeg( $inp_file );
   if ($src_img) {
   $imgSx = imagesx($src_img);
   $imgSy = imagesy($src_img);
   }
   $arr = array();
   $arr[] = $out_folder . '/' . $fn; // $arr_fn = 0;
   $arr[] = '' . $imgSx . 'x' . $imgSy; //$arr_is = 1;
   $arr[] = $file_size; //$arr_fs = 2;
   $arr[] = $file_time; //$arr_fd = 3;
   $arr[] = $inp_file;   // $arr_ff = 4; FULL FILE NAME
   $arr[] = FALSE;   // $arr_dn = 5; true or false
   //$bn = basename($fn, 'jpg');
   //$tail = substr($bn,-3);
   // echo "Got file $fn, base $bn tail $tail ...<br>\r\n";
   //if ( $tail == '-t.' ) {
   $bn = basename($fn, '.jpg');
   if (preg_match( '/-t$/', $bn )) {
   $file_count2++;
   AddFile2($arr);
   } else {
   $file_count++;
   AddFile($arr);
   }
   }
   }
   }
   closedir($mydir);
   return $file_count;
}

function AddFile( $arr ) {
   global $m_filearr;
   $m_filearr[] = $arr;   // base NAME
}
function AddFile2( $arr ) {
   global $m_filearr2;
   $m_filearr2[] = $arr;   // SIZED or -t
}
function AddFile3( $arr ) {
   global $m_filearr3;
   $m_filearr3[] = $arr;   // thumb
}
function AddFile4( $arr ) {
   global $m_filearr4;
   $m_filearr4[] = $arr;   // highlight
}

function IsMYFile( $inf )
{
   // this is a SPECIALISED filter
   $ext = strtolower(substr($inf,-4,4));
   if ($ext == '.jpg') {
   return 1;
   }
   return 0;
}

function get_arr3_sized( $arr )
{
   global $meol;
   global $m_filearr2;
   global $file_count2;
   global $arr_fn, $arr_is, $arr_fs, $arr_fd;
   $fn = $arr[$arr_fn];
   $bn = basename( $fn, '.jpg' );
   for( $i2 = 0; $i2 < $file_count2; $i2++ ) {
   $arr2 = $m_filearr2[$i2];   // extract the THUMB (-t)
   $fn2 = $arr2[$arr_fn];
   $bn2 = basename( $fn2, '.jpg' );
   if (strlen($bn2) > 6) {
   $bnn2 = substr( $bn2, 0, strlen($bn2)-6 );
   if( $bn == $bnn2 ) {
   return $arr2;
   }
   }
   }
   return NULL;
}

function get_arr3_thumb( $arr )
{
   global $meol;
   global $m_filearr3;
   global $file_count3;
   global $arr_fn, $arr_is, $arr_fs, $arr_fd;
   $fn = $arr[$arr_fn];
   $bn = basename( $fn, '.jpg' );
   for( $i2 = 0; $i2 < $file_count3; $i2++ ) {
   $arr2 = $m_filearr3[$i2];   // extract the THUMB (-t)
   $fn2 = $arr2[$arr_fn];
   $bn2 = basename( $fn2, '.jpg' );
   if (strlen($bn2) > 6) {
   $bnn2 = substr( $bn2, 0, strlen($bn2)-6 );
   if( $bn == $bnn2 ) {
   return $arr2;
   }
   }
   }
   return NULL;
}


// matched PAIRS - given name-n.jpg find name-t.jpg
// EXIT IF FAIL
function get_arr2( $arr )
{
   global $meol;
   global $m_filearr2;
   global $file_count;
   global $arr_fn, $arr_is, $arr_fs, $arr_fd;
   $fn = $arr[$arr_fn];
   $bn = basename( $fn, '.jpg' );
   $bnn = substr( $bn, 0, strlen($bn)-2 );
   $msg = '';
   for( $i2 = 0; $i2 < $file_count; $i2++ ) {
   $arr2 = $m_filearr2[$i2];   // extract the THUMB (-t)
   $fn2 = $arr2[$arr_fn];
   $bn2 = basename( $fn2, '.jpg' );
   $bnn2 = substr( $bn2, 0, strlen($bn2)-2 );
   if( $bnn == $bnn2 ) {
   return $arr2;
   }
   $msg .= "$bnn2 ";
   }
   print "Base is $bn bnn = $bnn ... <br>$meol";
   print "Found: $msg ... <br>$meol";
   print "ERROR: Unable to MATCH $fn in array2 ... aborting ...<br>$meol";
   exit(2);
   return 0;
}

function add_missing2() {
   global $file_count2;
   global $m_filearr2;
   global $arr_ff, $arr_is, $arr_fs, $arr_dn;
   global $meol;
   global $in_folder;
   $mcnt = 0;
   for( $i = 0; $i < $file_count2; $i++ ) {
   $arr2 = $m_filearr2[$i];
   if ( ! $arr2[$arr_dn] ) {
   $mcnt++;
   }
   }
   if($mcnt) {
   print '<p>Missed '.$mcnt.' out of '.$file_count2.' sized images.</p>'.$meol;
   }
}

function Get_Rel_Name( $ff ) {
   global $full_src;
   global $base_folder;
   $rfn = $ff;
   if ( !$full_src ) {
   $rfn = substr($ff, strlen($base_folder)+1 );   // get FOLDER+FILENAME.JPG
   }
   return $rfn;
}


function add_highlights() {
   global $file_count4;
   global $m_filearr4;
   global $arr_ff, $arr_is, $arr_fs, $arr_dn;
   global $meol;
   global $in_folder;
   if( $file_count4 == 0 ) {
   return;
   }
   print '<p align="center">'.$meol;
   print add_tag('table border="1" summary="Table 4"').$meol;
   print '<caption>Table of HIGHLIGHT images</caption>'.$meol;
   for( $i = 0; $i < $file_count4; $i++ ) {
   $arr = $m_filearr4[$i];   // extract primary information
   $ff = $arr[$arr_ff];   // FULL FILE NAME
   $arr[$arr_dn] = TRUE;
   $fnn = substr($ff, strlen($in_folder)+1 );   // get FOLDER+FILENAME.JPG
   $rfn = Get_Rel_Name($ff);
   $alt = basename($ff);
   $alt .= ' image '.$arr[$arr_is];
   $alt .= ' '.$arr[$arr_fs].' bytes';
   print '<tr>'.$meol;
   print '<td align="center">'.$meol;
   print '<img src="'.$rfn.'" alt="'.$alt.'">'.$meol;
   print "<br>$fnn$meol";
   print '</td>'.$meol;
   print '</tr>'.$meol;
   }
   print '</table>'.$meol;
   print '</p>'.$meol;
}

function prt_table3( $m_wrap )
{
   global $meol;
   global $m_filearr;
   global $file_count;
   global $arr_fn, $arr_is, $arr_fs, $arr_fd, $arr_ff, $arr_dn;
   global $td_st3; // import TD string
   global $img_at3; // image attributes, like 'border="0" ...
   global $gen_ats;
   global $add_link, $add_link2;
   global $full_src;
   global $in_folder;
   print '<p align="center">'.$meol;
   print add_tag('table border="1" summary="Table 3"').$meol;
   $mcnt = 0;
   for( $i = 0; $i < $file_count; $i++ ) {
   $arr = $m_filearr[$i];   // extract primary information
   $arr2 = get_arr3_sized($arr);
   $arr3 = get_arr3_thumb($arr);
   if( !is_null($arr2) AND !is_null($arr3) ) {
   $mcnt++;
   }
   }
   print '<caption>Table of '.$mcnt.' triplet images</caption>'.$meol;
   for( $i = 0; $i < $file_count; $i++ ) {
   if( $m_wrap ) {
   if( ($i % $m_wrap) == 0 ) {
   print '<tr>'.$meol;
   }
   } else {
   print '<tr>'.$meol;
   }
   $arr = $m_filearr[$i];   // extract primary information
   $arr2 = get_arr3_sized($arr);
   $arr3 = get_arr3_thumb($arr);
   $ffn = $arr[$arr_fn];   // this is also the full file name???
   $ff = $arr[$arr_ff];   // FULL FILE NAME
   $arr[$arr_dn] = TRUE;
   $nst = substr($ff, strlen($in_folder)+1 );   // get FOLDER+FILENAME.JPG
   $nst = substr($nst, 0, strlen($nst)-4 );   // drop the .JPG(4)
   $nst = str_replace('.', '_', $nst);   // Replace '.' with '_'
   $nst = str_replace('/', '_', $nst);   // Replace '/' with '_'
   $alt = basename($ffn);
   $alt .= ' image '.$arr[$arr_is];
   $alt .= ' '.$arr[$arr_fs].' bytes';
   print add_tag($td_st3).$meol; // LIKE '<td align="center" valign="center">'.$meol;
   $fsfn = Get_Rel_Name($ff);
   // print '<img src="'.$fn2.'" border="0" width="171" height="128" alt="'.$alt.'">'.$meol;
   if($gen_ats > 0) {
   $parts = split('x', $arr[$arr_is]);
   $ia = 'border="0" width="' . $parts[0] . '" height="' . $parts[1] .'"';
   if($add_link) {
   print '<a target="_blank" href="'.$fsfn.'">'.$meol;
   }
   print '<img src="'.$fsfn.'" '.$ia.' alt="'.$alt.'">'.$meol;
   } else {
   if( is_null($arr2) OR is_null($arr3) ) {
   // force it to a THUMB size
   $alt .= "ERROR: NO TRIPLET";
   if($add_link) {
   print '<a target="_blank" href="'.$fsfn.'">'.$meol;
   }
   print '<img src="'.$fsfn.'" '.$img_at3.' alt="'.$alt.'" width="128" height="128">'.$meol;
   } else {
   $arr3[$arr_dn] = TRUE;
   $fn = $arr3[$arr_fn];
   $ff = $arr3[$arr_ff];   // FULL FILE NAME
   $nst2 = substr($ff, strlen($in_folder)+1 );   // get FOLDER+FILENAME.JPG
   $nst2 = substr($nst2, 0, strlen($nst2)-4 );   // drop the .JPG(4)
   $nst2 = str_replace('.', '_', $nst2);   // Replace '.' with '_'
   $nst2 = str_replace('/', '_', $nst2);   // Replace '/' with '_'
   $sfn = Get_Rel_Name($ff);
   if($full_src) {
   $sfn = $ff;
   }
   print '<a name="'.$nst2.'" id="'.$nst2.'"></a>'.$meol;
   if($add_link) {
   print '<a target="_blank" href="'.$fsfn.'">'.$meol;
   }
   print '<img src="'.$sfn.'" '.$img_at3.' alt="'.$alt.'">'.$meol;
   if($add_link AND $add_link2) {
   print '</a>'.$meol;
   }
   }
   }
   print '<br>'.$meol;
   if( $add_link AND $add_link2) {
   print '<a target="_self" href="#'.$nst.'">'.$meol;
   }
   print basename($ffn).$meol;
   //print '<br>'.$ffn.$meol;
   // print '</font>'.$meol;
   if($add_link > 0) {
   print '</a>'.$meol;
   }
   print '</td>'.$meol;
   if( $m_wrap ) {
   if( (($i + 1) % $m_wrap) == 0 ) {
   print '</tr>'.$meol;
   }
   } else {
   print '</tr>'.$meol;
   }
   }
   if( $m_wrap ) {
   if( ($i % $m_wrap) != 0 ) {
   while( ($i % $m_wrap) != 0 ) {
   print '<td width="20%" align="center" valign="center">No image</td>'.$meol;
   $i++;
   }
   print '</tr>'.$meol;
   }
   }
   print '</table>'.$meol;
   print '</p>'.$meol;

   // $triplet, add the SIZE IMAGES
   print "<p>Table of SIZED images ...</p>$meol";
   print '<p align="center">'.$meol;
   print add_tag('table border="1" summary="Table 3"').$meol;
   print '<caption>Table of triplet SIZED images</caption>'.$meol;
   for( $i = 0; $i < $file_count; $i++ )
   {
   $arr = $m_filearr[$i];   // extract primary information
   $arr2 = get_arr3_sized($arr);
   $arr3 = get_arr3_thumb($arr);
   $ff = $arr[$arr_ff];   // FULL FILE NAME
   $nst = substr($ff, strlen($in_folder)+1 );   // get FOLDER+FILENAME.JPG
   $nst = substr($nst, 0, strlen($nst)-4 );   // drop the .JPG(4)
   $nst = str_replace('.', '_', $nst);   // Replace '.' with '_'
   $nst = str_replace('/', '_', $nst);   // Replace '/' with '_'
   if( !is_null($arr2) AND !is_null($arr3) ) {
   print '<tr>'.$meol;
   print '<td>'.$meol;
   print '<a name="'.$nst.'" id="'.$nst.'"></a>'.$meol;
   $arr2[$arr_dn] = TRUE;
   $ff = $arr2[$arr_ff];   // FULL FILE NAME
   $rfn = Get_Rel_Name($ff);
   $bn = basename($ff);
   $ff3 = $arr3[$arr_ff];   // FULL FILE NAME
   $nst2 = substr($ff3, strlen($in_folder)+1 );   // get FOLDER+FILENAME.JPG
   $nst2 = substr($nst2, 0, strlen($nst2)-4 );   // drop the .JPG(4)
   $nst2 = str_replace('.', '_', $nst2);   // Replace '.' with '_'
   $nst2 = str_replace('/', '_', $nst2);   // Replace '/' with '_'
   print '<a href="#'.$nst2.'">'.$meol;
   print '<img src="'.$rfn.'" alt="image '.$bn.'">'.$meol;
   print '</a>'.$meol;
   print '</td>'.$meol;
   print '</tr>'.$meol;
   }
   }
   print '</table>'.$meol;
   print '</p>'.$meol;
   add_highlights();
   add_missing2();
}


function prt_table2( $m_wrap )
{
   global $meol;
   global $m_filearr;
   global $file_count;
   global $arr_fn, $arr_is, $arr_fs, $arr_fd, $arr_ff;
   global $tab_str; // import the TABLE HTML tag
   global $td_str; // import TD string
   global $img_ats; // image attributes, like 'border="0" width="171" height="128"' ...
   global $gen_ats;
   global $add_link;
   global $full_src;
   print add_tag($tab_str.' summary="Table 2"').$meol;
   print '<caption>Second table of images</caption>'.$meol;
   for( $i = 0; $i < $file_count; $i++ )
   {
   if( $m_wrap ) {
   if( ($i % $m_wrap) == 0 ) {
   print '<tr>'.$meol;
   }
   } else {
   print '<tr>'.$meol;
   }
   $arr = $m_filearr[$i];
   $arr2 = get_arr2($arr);
   $fn = $arr[$arr_fn];
   $fn2 = $arr2[$arr_fn];   // get SAME FILE NAME from array 2
   $ff = $arr[$arr_ff];   // FULL FILE NAME
   $alt = basename($fn);
   $alt .= ' image '.$arr[$arr_is];
   $alt .= ' '.$arr[$arr_fs].' bytes';
   print add_tag($td_str).$meol; // LIKE '<td width="20%" align="center" valign="center">'.$meol;
   // print '<font size="-2">'.$meol;
   if($add_link > 0) {
   print '<a target="_blank" href="'.$fn.'">'.$meol;
   }
   // print '<img src="'.$fn2.'" border="0" width="171" height="128" alt="'.$alt.'">'.$meol;
   $sfn = $fn2;
   if($full_src) {
   $sfn = $ff;
   }
   if($gen_ats > 0) {
   $parts = split('x', $arr[$arr_is]);
   $ia = 'border="0" width="' . $parts[0] . '" height="' . $parts[1] .'"';
   print '<img src="'.$sfn.'" '.$ia.' alt="'.$alt.'">'.$meol;
   } else {
   print '<img src="'.$sfn.'" '.$img_ats.' alt="'.$alt.'">'.$meol;
   }

   print '<br>'.basename($fn).$meol;
   // print '</font>'.$meol;
   if($add_link > 0) {
   print '</a>'.$meol;
   }
   print '</td>'.$meol;
   if( $m_wrap ) {
   if( (($i + 1) % $m_wrap) == 0 ) {
   print '</tr>'.$meol;
   }
   } else {
   print '</tr>'.$meol;
   }
   }
   if( $m_wrap ) {
   if( ($i % $m_wrap) != 0 ) {
   while( ($i % $m_wrap) != 0 ) {
   print '<td width="20%" align="center" valign="center">No image</td>'.$meol;
   $i++;
   }
   print '</tr>'.$meol;
   }
   }
   print '</table>'.$meol;
}

function prt_table( $m_wrap, $tdt )
{
   global $meol;
   global $m_filearr;
   global $file_count;
   global $arr_fn, $arr_is, $arr_fs, $arr_fd, $arr_ff;
   global $gen_ats, $add_link;
   global $in_folder, $mk_rel, $rep_sp, $aln_lf;
   global $full_src;
   print '<table border="0" width="100%" summary="First table">'.$meol;
   print '<caption>First table of images</caption>'.$meol;
   for( $i = 0; $i < $file_count; $i++ )
   {
   if( $m_wrap ) {
   if( ($i % $m_wrap) == 0 ) {
   print '<tr>'.$meol;
   }
   } else {
   print '<tr>'.$meol;
   }
   $arr = $m_filearr[$i];
   $fn = $arr[$arr_fn];
   $ff = $arr[$arr_ff];
   $alt = basename($fn);
   $alt .= ' image '.$arr[$arr_is];
   $alt .= ' '.$arr[$arr_fs].' bytes';
   if($mk_rel > 0) {
   // string substr ( string string, int start [, int length] )
   $fn = substr($fn, strlen($in_folder)+1 );
   }
   if( $rep_sp ) {
   $fn = str_replace(" ", "%20", $fn);
   }
   if( $tdt == 1 ) {
   print '<td width="20%">'.$meol;
   } elseif ( $tdt == 2 ) {
   print '<td width="20%" align="center" valign="center">'.$meol;
   } else {
   if($aln_lf > 0) {
   print '<td align="left" valign="center">'.$meol;
   } else {
   print '<td align="center" valign="center">'.$meol;
   }
   }
   if( $add_link > 0 ) {
   print '<a target="_blank" href="'.$fn.'">'.$meol;
   }
   $sfn = $fn;
   if($full_src) {
   $sfn = $ff;
   }

   if($gen_ats > 0) {
   $parts = split('x', $arr[$arr_is]);
   $ia = 'border="0" width="' . $parts[0] . '" height="' . $parts[1] .'"';
   print '<img src="'.$sfn.'" '.$ia.' alt="'.$alt.'">'.$meol;
   } else {
   print '<img border="0" src="'.$sfn.'" width="171" height="128" alt="'.$alt.'">'.$meol;
   }
   if( $add_link > 0 ) {
   print '</a>'.$meol;
   }
   print '</td>'.$meol;
   if($m_wrap) {
   if( (($i + 1) % $m_wrap) == 0 ) {
   print '</tr>'.$meol;
   }
   } else {
   print '</tr>'.$meol;
   }
   }
   if($m_wrap) {
   if( ($i % $m_wrap) != 0 ) {
   while( ($i % $m_wrap) != 0 ) {
   print '<td width="20%" align="center">No image</td>'.$meol;
   $i++;
   }
   print '</tr>'.$meol;
   }
   }
   print '</table>'.$meol;
}

function add_tag ( $msg ) {
   return "<$msg>";
}

function in_array_nocase($search, &$array) {
 $search = strtolower($search);
 foreach ($array as $item)
 if (strtolower($item) == $search)
 return TRUE;
 return FALSE;
} 

function in_exclude( $dir ) {
   global $excl_dir; // $excl_dir = array('_vti_cnf',...);
   if( in_array($dir, $excl_dir) ) {
   return 1;
   }
   return (in_array_nocase( $dir, $excl_dir ) ? 1 : 0);
}

function exclude_file( $fil ) {
   global $excl_fils;
   if( in_array( $fil, $excl_fils ) )
   return 1;

   return (in_array_nocase( $fil, $excl_fils ) ? 1 : 0);
}



?>

</body>

</html>

index

Valid HTML 4.01 Transitional