Add sample upload module

lib/upload.pm

@@ -0,0 +1,53 @@
+package upload;
+
+our $VERSION = "1.0";
+use vars qw/$VERSION @EXPORT @ISA/;
+require Exporter;
+@EXPORT = qw (upload);
+@ISA = "Exporter";
+
+use strict;
+use warnings "all";
+use diagnostics;
+use Fcntl;
+use conf;
+
+my $c = loadConf();
+
+sub upload {
+	my $input = shift;
+	my $len = shift;
+	my $name = shift;
+	my ($status, $content, $msg) = ('400', 'text/plain', "Bad Request?\n");
+
+	if ($len > 0) {
+		if (sysopen (F, sprintf("%s/%s", $c->{upload}->{dir}, $name), O_CREAT|O_TRUNC|O_WRONLY)) {
+			my $buf;
+			my $readlen = 0;
+			my $totalread = 0;
+			my $buflen = 524288; # 512 kbytes, looks sane enough
+
+			if ($len < $buflen) {
+				$buflen = $len;
+			}
+
+			do {
+				$readlen = $input->read($buf, $buflen);
+				syswrite F, $buf, $readlen;
+				$totalread += $readlen;
+			} while ($readlen == $buflen);
+
+			close F;
+
+			if ($totalread != $len) {
+				($status, $content, $msg) = ('400', $content, "Content-Length does not match amount of recieved bytes.\n");
+			} else {
+				($status, $content, $msg) = ('201', $content, "Uploaded.\n");
+			}
+		}
+	}
+
+	return ($status, $content, $msg);
+}
+
+1;