recv.php

<?php
# Example receiver of Scrup files
#
# Install by putting this file on your web server and give the web server 
# user write permissions to the directory in which you put this script.
#
$MAXLENGTH = 4096000; # 4 MB
function rsperr($msg='', $st='400 Bad Request') {
	header('HTTP/1.1 '.$st);
	exit($msg);	
}
function pathfromid($id, $suffix='') {
	return substr($id,0,2).'/'.substr($id,2).$suffix;
}
# Build path and url
if (!isset($_GET['name']) || !trim($_GET['name']))
	$_GET['name'] = strval(time());
$id = substr(base_convert(md5($_GET['name'].' '.$_SERVER['REMOTE_ADDR']), 16, 36),0,15);
$suffix = strrchr($_GET['name'], '.');
$path = pathfromid($id, $suffix);
$abspath = dirname(realpath(__FILE__)).'/'.$path;
$url = (isset($_SERVER['HTTPS']) ? 'https://' : 'http://')
	. $_SERVER['SERVER_NAME'] . dirname($_SERVER['SCRIPT_NAME']) . '/' . $path;

# make dir if needed
$dirpath = dirname($abspath);
if (!file_exists($dirpath) && @mkdir($dirpath, 0775) === false)
	rsperr('failed to mkdir '.$dirpath, '500 Internal Server Error');

# Save input to file
$dstf = @fopen($abspath, 'w');
if (!$dstf)
	rsperr('unable to write to '.$dirpath, '500 Internal Server Error');
$srcf = fopen('php://input', 'r');
$size = stream_copy_to_stream($srcf, $dstf, $MAXLENGTH);
fclose($dstf);

# No input?
if ($size === 0) {
	@unlink($path);
	rsperr('empty input');
}
elseif ($size >= $MAXLENGTH) {
	@unlink($path); # because it's probably broken
	rsperr('Request entity larger than or equal to '.$MAXLENGTH.' B',
		'413 Request Entity Too Large');
}

# Respond with the url
header('HTTP/1.1 201 Created');
header('Content-Type: text/plain; charset=utf-8');
header('Content-Length: '.strlen($url));
echo $url;
?>