aboutsummaryrefslogtreecommitdiffstats
path: root/sitesummary-collector.cgi
diff options
context:
space:
mode:
authorPetter Reinholdtsen <pere@hungry.com>2006-08-25 15:21:17 +0000
committerPetter Reinholdtsen <pere@hungry.com>2006-08-25 15:21:17 +0000
commit080b37d0ed5d04702452743bbeb7ae38a7f3d415 (patch)
tree8f37f53d8d7b91db90ebd4ec07129457b0738d14 /sitesummary-collector.cgi
parent066354fec00687bc2325ae58963b7df2816caa01 (diff)
downloadsitesummary-080b37d0ed5d04702452743bbeb7ae38a7f3d415.tar.gz
sitesummary-080b37d0ed5d04702452743bbeb7ae38a7f3d415.tar.bz2
sitesummary-080b37d0ed5d04702452743bbeb7ae38a7f3d415.tar.xz
More work on the server. Make gpg encryption optional for now, as it does not work.
Diffstat (limited to 'sitesummary-collector.cgi')
-rw-r--r--sitesummary-collector.cgi15
1 files changed, 8 insertions, 7 deletions
diff --git a/sitesummary-collector.cgi b/sitesummary-collector.cgi
index 778e85c..fa47e08 100644
--- a/sitesummary-collector.cgi
+++ b/sitesummary-collector.cgi
@@ -25,14 +25,12 @@ if (exists $ENV{REQUEST_METHOD} && $ENV{REQUEST_METHOD} ne "POST")
my @entry;
if (exists $ENV{CONTENT_TYPE} && $ENV{CONTENT_TYPE} =~ m%multipart/form-data%){
my $query = new CGI;
- my $fh = $query->upload("popcondata");
+ my $fh = $query->upload("sitesummary");
if ($fh) {
- my $filename = $query->param("popcondata");
+ my $filename = $query->param("sitesummary");
my $type = $query->uploadInfo($filename)->{'Content-Type'};
- if ("text/plain; charset=utf-8" ne $type &&
- "application/octet-stream" ne $type) { # Used by ubuntu script
- print "Only 'text/plain; charset=utf-8' and 'application/octet-stream
-' is supported (not $type)!";
+ if ("application/octet-stream" ne $type) {
+ print "Only 'application/octet-stream' is supported (not $type)!";
die;
} else {
my $encoding = $query->uploadInfo($filename)->{'Content-Encoding'};
@@ -60,7 +58,10 @@ Unsupported submission method.
EOF
}
-open(SITESUMMARY, "$basedir/storage") or die "Unable to write to storage";
+my $ip "127.0.0.1";
+my $timestamp = "2006-08-25T11:30:30";
+
+open(SITESUMMARY, "$basedir/tmpstorage/storage-$ip-$timestamp") or die "Unable to write to storage";
print SITESUMMARY @entry;
close SITESUMMARY;