24 lines
460 B
Perl
24 lines
460 B
Perl
|
#! /usr/bin/perl -w
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
my $uploadpath = $ENV{"PATH_INFO"};
|
||
|
|
|
||
|
|
# Sanitise upload path.
|
||
|
|
die unless $uploadpath =~ /^(\/[A-Za-z0-9-][A-Za-z0-9-\.]+)+$/;
|
||
|
|
|
||
|
|
my $dst = "/home/eelco/public_html/nix/$uploadpath";
|
||
|
|
my $tmp = "${dst}_$$";
|
||
|
|
|
||
|
|
open OUT, ">$tmp" or die;
|
||
|
|
while (<STDIN>) {
|
||
|
|
print OUT "$_" or die;
|
||
|
|
}
|
||
|
|
close OUT or die;
|
||
|
|
|
||
|
|
rename $tmp, $dst or die;
|
||
|
|
|
||
|
|
print "Content-Type: text/plain\n\n";
|
||
|
|
print "upload succesful\n";
|
||
|
|
print "upload path: $uploadpath\n";
|