mirror of
https://github.com/webmin/webmin.git
synced 2026-03-21 09:00:32 +00:00
39 lines
1.2 KiB
Perl
Executable File
39 lines
1.2 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
|
|
require './filemin-lib.pl';
|
|
use lib './lib';
|
|
use File::MimeInfo;
|
|
|
|
&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");
|
|
}
|
|
|