view release on metacpan or  search on metacpan

UpnpImgBrowser.pm  view on Meta::CPAN

    output(
           qq|</table>\n|,
           qq|</div>\n\n|,
           qq|<br clear="all"\n\n|,
           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|);

UpnpImgBrowser.pm  view on Meta::CPAN

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

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

          $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|

UpnpImgBrowser.pm  view on Meta::CPAN

       for(my $y = 0; $y <= int((@filelist - 1)/$perpage); $y++) {
          my $pagenum = $y + 1;

          ($pagenum == $page) ?
              output(qq|              <option value="$pagenum" selected>page $pagenum\n|):
              output(qq|              <option value="$pagenum">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( $page * $perpage < @filelist) {
       my $pagenum = $page + 1; 
       output(qq|        <td width=100 align="center"><a href="./?dir=$dir&dev=$dev&page=$pagenum">[next]</A></TD>\n|);