mirror of
https://github.com/webmin/webmin.git
synced 2025-07-29 11:50:54 +00:00
125 lines
3.6 KiB
Perl
Executable File
125 lines
3.6 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Scale some image down to the preview size
|
|
|
|
require './file-lib.pl';
|
|
&ReadParse();
|
|
use POSIX;
|
|
$p = $ENV{'PATH_INFO'};
|
|
|
|
# Try to guess type from filename
|
|
$type = &guess_mime_type($p, undef);
|
|
if (!$type) {
|
|
# No idea .. use the 'file' command
|
|
$out = &backquote_command("file ".
|
|
quotemeta(&resolve_links($p)), 1);
|
|
if ($out =~ /text|script/) {
|
|
$type = "text/plain";
|
|
}
|
|
else {
|
|
&error_exit(&text('preview_etype', $p));
|
|
}
|
|
}
|
|
|
|
# Make sure the type is OK
|
|
if ($type ne "image/gif" && $type ne "image/jpeg" && $type ne "image/png" &&
|
|
$type ne "image/tiff" && $type ne "application/pdf" &&
|
|
$type !~ /^image\/x-portable/ && $type ne "application/postscript") {
|
|
&error_exit(&text('preview_etype2', $p));
|
|
}
|
|
|
|
&switch_acl_uid_and_chroot();
|
|
if (!&can_access($p)) {
|
|
# ACL rules prevent access to file
|
|
&error_exit(&text('view_eaccess', $p));
|
|
}
|
|
|
|
# Test if the file can be opened
|
|
if (!open(FILE, $p)) {
|
|
# Unix permissions prevent access
|
|
&error_exit(&text('view_eopen', $p, $!));
|
|
}
|
|
close(FILE);
|
|
|
|
eval "use GD";
|
|
if ($@ || $type eq "image/tiff" || $type eq "application/pdf" ||
|
|
$type =~ /^image\/x-portable/ || $type eq "application/postscript") {
|
|
# Find an appropriate scaler
|
|
$pnmcmd = $type eq "image/gif" ? "giftopnm" :
|
|
$type eq "image/jpeg" ? "djpeg" :
|
|
$type eq "image/png" ? "pngtopnm" :
|
|
$type eq "image/tiff" ? "tifftopnm" :
|
|
$type =~ /^image\/x-portable/ ? "cat" :
|
|
$type eq "application/postscript" ? "pstopnm" :
|
|
$type eq "application/pdf" ? "pdftoppm" :
|
|
undef;
|
|
&has_command($pnmcmd) ||
|
|
&error_exit(&text('preview_ecmd', $pnmcmd));
|
|
&has_command("pnmscale") ||
|
|
&error_exit(&text('preview_ecmd', "pnmscale"));
|
|
&has_command("cjpeg") ||
|
|
&error_exit(&text('preview_ecmd', "cjpeg"));
|
|
|
|
# Run scaler
|
|
$width = $config{'width'} || $userconfig{'width'} || 300;
|
|
$errout = &transname();
|
|
print "Content-type: image/jpeg\n";
|
|
print "\n";
|
|
if ($type eq "application/pdf") {
|
|
# Previewing first page of PDF
|
|
$temp = &tempname();
|
|
$out = &backquote_command("$pnmcmd -f 1 -l 1 ".quotemeta($p)." ".$temp." 2>&1");
|
|
if ($? || !-r "$temp-000001.ppm") {
|
|
&error_exit("$pnmcmd failed : $out");
|
|
}
|
|
open(SCALE, "(cat $temp-000001.ppm | pnmscale --width $width | cjpeg) 2>$errout |");
|
|
push(@main::temporary_files, "$temp-000001.ppm");
|
|
}
|
|
elsif ($type eq "application/postscript") {
|
|
# Previewing first page of a postscript file
|
|
$temp = &transname();
|
|
mkdir($temp, 0755);
|
|
©_source_dest($p, "$temp/file.ps");
|
|
$out = &backquote_command("$pnmcmd $temp/file.ps 2>&1");
|
|
if ($? || !-r "$temp/file001.ppm") {
|
|
&error_exit("$pnmcmd failed : $out");
|
|
}
|
|
open(SCALE, "(cat $temp/file001.ppm | pnmscale --width $width | cjpeg) 2>$errout |");
|
|
}
|
|
else {
|
|
# Converting to JPEG
|
|
open(SCALE, "($pnmcmd <".quotemeta($p)." | pnmscale --width $width | cjpeg) 2>$errout |");
|
|
}
|
|
$err = &read_file_contents($errout);
|
|
print STDERR $err;
|
|
while(<SCALE>) {
|
|
print;
|
|
}
|
|
close(SCALE);
|
|
}
|
|
else {
|
|
# Use the GD library
|
|
$image = $type eq "image/gif" ? GD::Image->newFromGif($p) :
|
|
$type eq "image/jpeg" ? GD::Image->newFromJpeg($p) :
|
|
$type eq "image/png" ? GD::Image->newFromPng($p) : undef;
|
|
$image || &error_exit(&text('preview_egd'));
|
|
|
|
$width = $config{'width'} || $userconfig{'width'} || 300;
|
|
$height = $image->height * (($width*1.0) / $image->width);
|
|
|
|
$scaled = new GD::Image($width, $height);
|
|
$scaled->copyResampled($image, 0, 0, 0, 0, $width, $height,
|
|
$image->width, $image->height);
|
|
print "Content-type: image/jpeg\n";
|
|
print "\n";
|
|
print $scaled->jpeg();
|
|
}
|
|
|
|
sub error_exit
|
|
{
|
|
print "Content-type: text/plain\n";
|
|
print "Content-length: ",length($_[0]),"\n\n";
|
|
print $_[0];
|
|
exit;
|
|
}
|
|
|