mirror of
https://github.com/webmin/webmin.git
synced 2026-02-07 07:52:13 +00:00
121 lines
3.0 KiB
Perl
Executable File
121 lines
3.0 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
|
|
require './filemin-lib.pl';
|
|
use Cwd 'abs_path';
|
|
|
|
&ReadParse(\%in, "GET");
|
|
|
|
get_paths();
|
|
|
|
my @errors;
|
|
$line = "";
|
|
|
|
# Use Webmin's callback function to track progress
|
|
$cbfunc = \&read_parse_mime_callback;
|
|
|
|
# Get multipart form boundary
|
|
$ENV{'CONTENT_TYPE'} =~ /boundary=(.*)$/ || &error($text{'readparse_enc'});
|
|
$boundary = $1;
|
|
|
|
# Initialize progress tracker
|
|
&$cbfunc(0, $ENV{'CONTENT_LENGTH'}, undef, $in{'id'});
|
|
|
|
#Read the data
|
|
MAINLOOP: while(index($line,"$boundary--") == -1) {
|
|
# Reset vars on each loop
|
|
$file = undef;
|
|
$rest = undef;
|
|
$prevline = undef;
|
|
$header = undef;
|
|
$line = <STDIN>;
|
|
$got += length($line);
|
|
if ($upload_max && $got > $upload_max) {
|
|
&error(&text('error_upload_emax', &nice_size($upload_max)));
|
|
}
|
|
&$cbfunc($got, $ENV{'CONTENT_LENGTH'}, undef, $in{'id'});
|
|
if ($line =~ /(\S+):\s*form-data(.*)$/) {
|
|
$rest = $2; # We found form data definition, let`s check it
|
|
}
|
|
else {
|
|
next;
|
|
}
|
|
|
|
# Check if current form data part is file
|
|
while ($rest =~ /([a-zA-Z]*)=\"([^\"]*)\"(.*)/) {
|
|
if ($1 eq 'filename') {
|
|
$file = $2;
|
|
}
|
|
$rest = $3;
|
|
}
|
|
|
|
if (defined($file)) {
|
|
# OK, we have a file, let`s save it
|
|
my $full = "$cwd/$file";
|
|
my $newfile = !-e $full;
|
|
my @st = stat($cwd);
|
|
if (!open(OUTFILE, ">$full")) {
|
|
push @errors, "$text{'error_opening_file_for_writing'} $path/$file - $!";
|
|
next;
|
|
}
|
|
else {
|
|
binmode(OUTFILE);
|
|
if ($newfile) {
|
|
# Copy ownership from parent dir
|
|
&set_ownership_permissions($st[4], $st[5], undef,$full);
|
|
}
|
|
# Skip "content-type" as we work in binmode anyway and
|
|
# skip empty line
|
|
<STDIN>;
|
|
<STDIN>;
|
|
|
|
# Read all lines until next boundary or form data end
|
|
while(1) {
|
|
$line = <STDIN>;
|
|
if (!defined($line)) {
|
|
push @errors, "Unexpected end of input";
|
|
last MAINLOOP;
|
|
}
|
|
# Inform progress tracker about our actions
|
|
$got += length($line);
|
|
&$cbfunc($got, $ENV{'CONTENT_LENGTH'}, $file, $in{'id'});
|
|
|
|
# Some brainf###ing to deal with last CRLF
|
|
if (index($line,"$boundary") != -1 ||
|
|
index($line,"$boundary--") != -1) {
|
|
chop($prevline);
|
|
chop($prevline);
|
|
if (!print OUTFILE $prevline) {
|
|
push @errors, "text{'error_writing_file'} $path/$file";
|
|
last MAINLOOP;
|
|
}
|
|
last;
|
|
}
|
|
else {
|
|
if (!print OUTFILE $prevline) {
|
|
push @errors, "text{'error_writing_file'} $path/$file";
|
|
last MAINLOOP;
|
|
}
|
|
$prevline = $line;
|
|
}
|
|
}
|
|
# File saved, let`s go further
|
|
close(OUTFILE);
|
|
}
|
|
}
|
|
else {
|
|
# Just skip everything until next boundary or form end
|
|
while (index($line, "$boundary") == -1 ||
|
|
index($line, "$boundary--") == -1) {
|
|
$line = <STDIN>;
|
|
}
|
|
}
|
|
}
|
|
|
|
# Everything finished, inform progress tracker
|
|
&$cbfunc(-1, $ENV{'CONTENT_LENGTH'}, undef, $in{'id'});
|
|
if (scalar(@errors) > 0) {
|
|
print_errors(@errors);
|
|
}
|
|
else {
|
|
&redirect("index.cgi?path=".&urlize($path));
|
|
} |