#!/usr/bin/perl -w
use strict;
use File::Temp qw/ tempfile /;

my $dropdir = "/home/aehlig/uucp-drop/hilbert.linta.de";

while (<STDIN>) {
	my $line = $_;
	chomp($line);

	$line =~ /^#uucp-drop ([A-Z][-.a-zA-Z0-9]*) ([0-9]+)\s*$/
		or die "Failed to understand command line $line\n";
	my ($name,$length) = ($1,$2);

	my ($fh,$fname) = tempfile("t-uucpdrop-XXXXXX", DIR => $dropdir);
	
	for (my $i=0; $i<$length; $i++) {
		$line = <STDIN>;
		print $fh $line;
	};
	
	close($fh)
		or die "Failed to close temp file ($!)\n";
	
	
	rename $fname, $dropdir . "/" . $name
		or die "Failed to rename $fname to $dropdir/$name ($!)\n";

	chmod 0666, $dropdir . "/" . $name;
}
	
exit 0;