#!/usr/bin/perl
# Written by Gabriel Foust--with many thanks to Mark Lehmann

if ($ENV{GATEWAY_INTERFACE}) {
	($f)= $0 =~ m#([^/]*)$#;
	open F, ">/tmp/$f.env";

	print F "#/bin/bash\n\ncat <<EOF_PERLDB | env -i \\\n";
	while (($k, $v)= each %ENV) {
		$v=~ s/\\/\\\\/g;
		$v=~ s/'/'\\''/g;
		print F "  $k='$v' \\\n";
	}
	print F "  perl -d $f -emacs\n";
	while (<STDIN>) {chomp; print F "$_\n";}
	print F "EOF_PERLDB\n";

	close F;
	chmod 0777, "/tmp/$f.env";

	print "Content-type: text/plain\n\nCreated \"/tmp/$f.env\"\n";
}
else {
	$f= shift or
		die "Usage: $0 [file]\n";

	if (-e "$f.db") {
		print "rm $f\n";
		print `rm $f`;
		print "mv $f.db $f\n";
		print `mv $f.db $f`;
		print "mv /tmp/$f.env .\n";
		print `mv /tmp/$f.env .`;
	}
	elsif (-e $f) {
		print "mv $f $f.db\n";
		print `mv $f $f.db`;
		print "cp $0 $f\n";
		print `cp $0 $f`;
	}
	else {
		die "No such file: $f\n";
	}
}