view release on metacpan or  search on metacpan

ImgIndex.pm  view on Meta::CPAN

           qq|<TABLE width="170" align="left" border="0">\n|,
           qq|  <TR><TD><b>Image Directories:</b></TD></TR>\n|,
           listDirectory($dir), 
           qq|</TABLE>\n\n|,
          ) unless($gOptions{'hide-dirs'});

    output(
           qq|<TABLE border=0 bgcolor="#CCCCCC">\n|,
           qq|  <TR><TD>\n|,
           qq|    <TABLE border=0 cellpadding=0 cellspacing=0 width="100%">\n|,
           qq|      <TR><TD align="center" bgcolor="#AAAAAA"><font size="+1"><b>$dirName</font></b></TD></TR>\n|,
           qq|    </TABLE>\n\n|,
          );


    my($w, $h) = split('x', $gOptions{'thumb-size'});

    ### Thumbnail image table
    output(qq|    <TABLE align="center" bgcolor="#CCCCCC" border="1" width="|, ($w + 25 )* $gOptions{'cols'}, qq|">\n|);

    if(@filelist) {

ImgIndex.pm  view on Meta::CPAN

                 qq|</TD>\n|, 
                );

          output("      </TR>\n") if( (($counter + 1) % $gOptions{'cols'}) == 0 );

          last if($counter == ($perpage - 1));
          $counter++;
       } 

    } else {
        output(      qq|<tr><td align="center"><font size="+2"><b>No Images Available</b></font</td></tr>\n|);
    }

    output(qq|    </TABLE>\n\n|,);



    ### Navigation bar table
    output(
           qq|    <TABLE bgcolor="#AAAAAA" cellpadding=0 cellspacing=0 border=0 width="100%">\n|,
           qq|      <TR>\n|

ImgIndex.pm  view on Meta::CPAN

          $index = $perpage * $y;
          my $pagenum = $y + 1;

          ($index == $start) ?
              output(qq|              <option value="$index" selected>page $pagenum\n|):
              output(qq|              <option value="$index">page $pagenum\n|);
       }

       output(
              qq|          </SELECT><BR>\n|,
              qq|          <font size="-1"><i>Total: </i>|, scalar @filelist, qq| images</font>\n|,
              qq|          </FORM>\n|,
              qq|        </TD>\n|
             );
    }
    
    # next page
    if($start + $perpage < $#filelist) {
       $index = $start + $perpage; 
       output(qq|        <TD width=100 align="center"><A href="$baseUri?start=$index">[next]</A></TD>\n|);