diff --git a/livesupport/modules/archiveServer/var/put.cgi b/livesupport/modules/archiveServer/var/put.cgi
deleted file mode 100755
index 1e781d9f2..000000000
--- a/livesupport/modules/archiveServer/var/put.cgi
+++ /dev/null
@@ -1,83 +0,0 @@
-#!/usr/bin/perl
-
-# A simple log file, must be writable by the user that this program runs as.
-# Should not be within the document tree.
-$putlog = "/tmp/put1.log";
-
-#&log($ENV{'HTTP_CONTENT_RANGE'});
-
-# Check we are using PUT method
-if ($ENV{'REQUEST_METHOD'} ne "PUT") { &reply(500, "Request method is not PUT"); }
-
-# Check we got a destination filename
-$filename = $ENV{'PATH_TRANSLATED'};
-if (!$filename) { &reply(500, "No PATH_TRANSLATED"); }
-
-# Check we got some content
-$clength = $ENV{'CONTENT_LENGTH'};
-if (!$clength) { &reply(500, "Content-Length missing or zero ($clength)"); }
-
-# Read the content itself and write it out
-# Note: doesn't check the location of the file, whether it already
-# exists, whether it is a special file, directory or link. Does not
-# set the access permissions. Does not handle subdirectories that
-# need creating.
-$toread = $clength;
-#$content = "";
-$packlen = 2048;
-open(OUT, ">> $filename") || &reply(500, "Cannot write to $filename");
-while ($toread > 0)
-{
-# $nread = read(STDIN, $data, $clength);
- $nread = read(STDIN, $data, $packlen);
- &reply(500, "Error reading content") if !defined($nread);
- $toread -= $nread;
-# $content = $data;
- print OUT $data;
-}
-
-close(OUT);
-
-# Everything seemed to work, reply with 204 (or 200). Should reply with 201
-# if content was created, not updated.
-&reply(204);
-
-exit(0);
-
-#
-# Send back reply to client for a given status.
-#
-
-sub reply
-{
- local($status, $message) = @_;
- local($remuser, $remhost, $logline) = ();
-
- print "Status: $status\n";
- print "Content-Type: text/html\n\n";
-
- if ($status == 200) {
- print "OKContent Accepted
\n";
- } elsif ($status == 500) {
- print "ErrorError Publishing File
\n";
- print "An error occurred publishing this file ($message).\n";
- }
- # Note: status 204 and 201 gives have content part
-
- # Create a simple log
- $remuser = $ENV{'REMOTE_USER'} || "-";
- $remhost = $ENV{'REMOTE_HOST'} || $ENV{'REMOTE_ADDR'} || "-";
-
- $logline = "$remhost $remuser $filename status $status";
- $logline .= " ($message)" if ($status == 500);
- &log($logline);
- exit(0);
-}
-
-sub log
-{
- local($msg) = @_;
- open (LOG, ">> $putlog") || return;
- print LOG "$msg\n";
- close(LOG);
-}