mirror of
https://github.com/webmin/webmin.git
synced 2026-04-14 05:00:27 +01:00
fe6965d1e2
Commands are checked before they run so no need for last else part which outputted an error message. The rest of the code I will add to -lib file. P.S. Jamie, I tried removing `use File::MimeInfo;` in this file as on current branch and it returned an error!? Please double check.
38 lines
1.2 KiB
Perl
Executable File
38 lines
1.2 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
|
|
require './filemin-lib.pl';
|
|
use lib './lib';
|
|
|
|
&ReadParse();
|
|
|
|
get_paths();
|
|
|
|
$archive_type = mimetype($cwd.'/'.$in{'file'});
|
|
|
|
|
|
if ( index( $archive_type, "x-bzip" ) != -1 ) {
|
|
&backquote_logged( "tar xvjfp " . quotemeta("$cwd/$in{'file'}") . " -C " . quotemeta($cwd) );
|
|
&redirect("index.cgi?path=$path");
|
|
}
|
|
elsif (index( $archive_type, "x-tar" ) != -1
|
|
|| index( $archive_type, "/gzip" ) != -1
|
|
|| index( $archive_type, "x-xz" ) != -1
|
|
|| index( $archive_type, "x-compressed-tar" ) != -1 )
|
|
{
|
|
&backquote_logged( "tar xfp " . quotemeta("$cwd/$in{'file'}") . " -C " . quotemeta($cwd) );
|
|
&redirect("index.cgi?path=$path");
|
|
}
|
|
elsif ( index( $archive_type, "x-7z" ) != -1 ) {
|
|
&backquote_logged( "7z x " . quotemeta("$cwd/$in{'file'}") . " -o" . quotemeta($cwd) );
|
|
&redirect("index.cgi?path=$path");
|
|
}
|
|
elsif ( index( $archive_type, "/zip" ) != -1 ) {
|
|
&backquote_logged( "unzip " . quotemeta("$cwd/$in{'file'}") . " -d " . quotemeta($cwd) );
|
|
&redirect("index.cgi?path=$path");
|
|
}
|
|
elsif ( index( $archive_type, "/x-rar" ) != -1 ) {
|
|
&backquote_logged( "unrar x -r -y " . quotemeta("$cwd/$in{'file'}") . " " . quotemeta($cwd) );
|
|
&redirect("index.cgi?path=$path");
|
|
}
|
|
|