#!/usr/bonsaitools/bin/perl --
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Netscape Public License
# Version 1.0 (the "License"); you may not use this file except in
# compliance with the License. You may obtain a copy of the License at
# http://www.mozilla.org/NPL/
#
# Software distributed under the License is distributed on an "AS IS"
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
# License for the specific language governing rights and limitations
# under the License.
#
# The Original Code is the Tinderbox build tool.
#
# The Initial Developer of the Original Code is Netscape Communications
# Corporation. Portions created by Netscape are Copyright (C) 1998
# Netscape Communications Corporation. All Rights Reserved.
use Socket;
use lib "../bonsai";
require 'header.pl';
print "Content-type: text/html\n\n";
EmitHtmlTitleAndHeader("tinderbox: add images", "add images");
$| = 1;
require "globals.pl";
require "imagelog.pl";
&split_cgi_args;
sub Error {
my ($msg) = @_;
print "
";
print "
"; print "
"; print "Hit \`Back' and try again."; print "
This is about fun, and making your daily excursion to Tinderbox a novel experience. Engineers spend a lot of time here; it might as well have some entertainment value.
Please play nice. We don't have the time or inclination to look at everything you people submit, but if we get nastygrams or legalgrams and have to take something down, we will curse your IP address, and you might even make it so the whole thing goes away forever. Please don't make us go there. You might also avoid links to big images or slow servers.
If you really find an image offensive, please tell us nicely before someone causes a stink. Be sure to include the URL of the image. Remember, we don't screen these submissions and may not have even seen it.