#!/usr/bonsaitools/bin/perl -- # -*- Mode: perl; indent-tabs-mode: nil -*- # # The contents of this file are subject to the Netscape Public # License Version 1.1 (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. # # Contributor(s): $| = 1; use lib "../bonsai"; require 'tbglobals.pl'; require 'imagelog.pl'; require 'lloydcgi.pl'; require 'header.pl'; tb_check_password(); print "Content-type: text/html\n\n"; @url = (); @quote = (); @width = (); @height = (); $i = 0; EmitHtmlHeader("tinderbox: all images"); print ' '; if ($form{'url'} ne "") { $oldname = "$data_dir/imagelog.txt"; open (OLD, "<$oldname") || die "Oops; can't open imagelog.txt"; $newname = "$oldname-$$"; open (NEW, ">$newname") || die "Can't open $newname"; $foundit = 0; while () { chop; ($url, $width, $height, $quote) = split(/\`/); if ($url eq $form{'url'} && $quote eq $form{'origquote'}) { $foundit = 1; if ($form{'nukeit'} ne "") { next; } $quote = $form{'quote'}; } print NEW "$url`$width`$height`$quote\n"; } close OLD; close NEW; if (!$foundit) { print "Hey, couldn't find it! Did someone\n"; print "else already edit it?

\n"; unlink $newname; } else { print "Change made.

"; rename ($newname, $oldname) || die "Couldn't rename $newname to $oldname"; } $form{'doedit'} = "1"; } $doedit = ($form{'doedit'} ne ""); if (!$doedit) { print "

"; } open( IMAGELOG, "<$data_dir/imagelog.txt" ) || die "can't open file"; while( ){ chop; ($url[$i],$width[$i],$height[$i],$quote[$i]) = split(/\`/); $i++; } close( IMAGELOG ); $i--; print "

"; while( $i >= 0 ){ $qurl = value_encode($url[$i]); $qquote = value_encode($quote[$i]); print "
$quote[$i]"; if ($doedit) { print "



"; } print "

\n"; $i--; }