escape results from the CPAN

Apache-UpnpImgBrowser
view release on metacpan or search on metacpan
}



# showThumbFile
#
#
sub showThumbFile {
    my $r = shift || return;

    my %mimeType = 
       (jpg => 'image/jpeg', gif => 'image/gif', png => 'image/png');
    my ($name, $path, $ext) = fileparse($r->filename, qr{\.\w*$});
    my($w, $h) = split('x', $gOptions{'thumb-size'});

    $name =~ s/^\.//g;
    $path =~ s/\/$//g;
    $ext =~ s/^\.//g;
 
    (my $imgName = $name) =~ s/-thumb$//i;
    my($thumbName) = "$name.$ext";
    my($Img) = Image::Magick->new();
    my($tw, $th) = (0, 0);

    if(-f "$path/$thumbName") {
        ($tw, $th) = $Img->Ping("$path/$thumbName");
    }

    # build the thumbnail if it doesn't exist
    if( ($w != $tw && $h != $th) || $gOptions{'force'} ) {
        $Img->Read("$path/../$imgName.$ext");
        $Img->Resize(geometry=>"$gOptions{'thumb-size'}"); 
        $Img->Write("$path/$thumbName");
    }

    my $Fh = FileHandle->new();
    $Fh->open("$path/$thumbName") || die("Can't open image file $path/$thumbName");

    $r->content_type($mimeType{lc $ext});
    output(<$Fh>);

    undef $Img; 
    $Fh->close();
}



# showImgDetail
#
#
#
sub showImgDetail {
    my($r) = shift;

    my(%in) = map { my($key, $val) = split('=', $_); $key => $val } 
                  (split('&', $r->args));

    my $image = $in{image};
    my $page = $in{page} || 1;
    my $dir = $in{dir};
    my $dev = uri_unescape($in{dev}) || $gDeviceList[0]->getudn;
    $dev =~ s/\+/ /g;

 
    # only rotate up to 360 degrees 
    if($in{'rot'} >= 360) { $in{'rot'} -= 360 };

    # only allow scaling to 25% and 200% of image size
    if($in{'scale'} < -75) { $in{'scale'} = -75 };
    if($in{'scale'} > 100) { $in{'scale'} = 100 };

    my $scale = $in{'scale'} + 100;

    my $rotText = ($in{'rot'}) ? "(Rotated: $in{'rot'}&deg;)" : ''; 
    my $scaleText = ($in{'scale'}) ? "(Scaled: $scale%)" : '';
 
    $r->content_type("text/html"); 
    output(
              "<html>\n",
              "<head>\n",
              "  <title>Image</title>\n",
              "</head>\n",
              qq|<body bgcolor="#ffffff">\n\n|,
              "<center>\n",
              qq|<table border=1>\n|,
              qq| <tr><td>&nbsp;</td><td align="center"><a href="./?dir=$dir&dev=$dev&page=$page"><b>Image Index</b></a></td><td>&nbsp;</tr>\n|,
#              qq| <TR><TD align="center"><A href="$baseUri?page=$in{'page'}&name=$in{'name'}&rot=|,
#              $in{'rot'} + 270, qq|&scale=$in{'scale'}"><B>270</B></A></TD>|,
#              qq|<TD align="center"><A href="$baseUri?page=$in{'page'}&name=$in{'name'}&rot=$in{'rot'}&scale=|, $in{'scale'} - 25, qq|">-</A> Zoom <A href="$baseUri?page=$in{'page'}&name=$in{'name'}&rot=$in{'rot'}&scale=|, $in{'scale'} + 25, qq|">+<...
#              qq|<TD align="center"><A href="$baseUri?page=$in{'page'}&name=$in{'name'}&rot=|,
#              $in{'rot'} + 90, qq|&scale=$in{'scale'}"><B>90</B></A></TD></TR>\n|,
#              qq| <TR><TD>&nbsp;</TD><TD align="center"><A href="$baseUri?page=$in{'page'}&name=$in{'name'}&rot=|,
#              $in{'rot'} + 180, qq|&scale=$in{'scale'}"><B>180</B></A></TD><TD>&nbsp;</TD></TR>\n|,
              "</table>\n",
              qq|<table border=0 width="100%">\n|,
            );


        output(qq|  <tr><td align="center"><img src="./?target=$image&dev=$dev|);
#        output(qq|rot=$in{'rot'}|) if($in{'rot'});
#        output(qq|&scale=$in{'scale'}|) if($in{'scale'});
        output(qq|" border=0></td></tr>\n|);

    output(
           "</table>\n",
           "</center>\n",
           "</body>\n",
           "</html>\n",
          );
}




# getThumbImgResource
#
#
sub getThumbImgResource {
    my $item = shift;

    return unless $item;
( run in 2.098 seconds using v1.01-cache-2.11-cpan-0d23b851a93 )