diff --git a/webtools/tinderbox2/src/test/popup.tst b/webtools/tinderbox2/src/test/popup.tst new file mode 100644 index 000000000000..3ce731f6d942 --- /dev/null +++ b/webtools/tinderbox2/src/test/popup.tst @@ -0,0 +1,206 @@ +#!#perl# -- + +# generate static html pages for use in testing the popup libraries. + + +# $Revision: 1.1 $ +# $Date: 2002/05/01 01:51:51 $ +# $Author: kestes%walrus.com $ +# $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/test/popup.tst,v $ +# $Name: $ +# + + +# The contents of this file are subject to the Mozilla 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. +# + +# complete rewrite by Ken Estes, Mail.com (kestes@staff.mail.com). +# Contributor(s): + + +# Load the standard perl libraries +use File::Basename; + + + +# Load the tinderbox specific libraries +use lib '#tinder_libdir#'; + +use TinderConfig; +use HTMLPopUp; +use Utils; + +# define some static tables which look like the kind of popups we +# normally produce. + +$build_info_table =< +starttime: 04/26 09:11
+runtime: 45.22 (minutes)
+buildstatus: success
+buildname: Linux comet Depend
+tree: SeaMonkey
+ +EOF + ; + + +$checkin_table =<pinkerton%netscape.com +
for module: MozillaTinderboxAll +
branch: HEAD +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
TimeFileLog
04/25 14:26mozilla/embedding/config/basebrowser-mac-cfmremove bugnumber accidentally inserted in file.
04/25 14:26mozilla/embedding/components/ui/helperAppDlg/nsHelperAppDlg.xulpackage download progress on mac for embedding. fix jar manifest to not pull en-unix on every platform. r=bryner/sr=ben/a=rjesup. bug#134523
04/25 14:25mozilla/embedding/config/basebrowser-mac-cfmDebugpackage download progress on mac for embedding. fix jar manifest to not pull en-unix on every platform. r=bryner/sr=ben/a=rjesup. bug#134523
04/25 14:25mozilla/embedding/config/basebrowser-winpackage download progress on mac for embedding. fix jar manifest to not pull en-unix on every platform. r=bryner/sr=ben/a=rjesup. bug#134523
04/25 14:25mozilla/embedding/config/GenerateManifest.pmpackage download progress on mac for embedding. fix jar manifest to not pull en-unix on every platform. r=bryner/sr=ben/a=rjesup. bug#134523
04/25 14:25mozilla/embedding/config/gen_mn.plpackage download progress on mac for embedding. fix jar manifest to not pull en-unix on every platform. r=bryner/sr=ben/a=rjesup. bug#134523
04/25 14:25mozilla/embedding/config/basebrowser-mac-cfmpackage download progress on mac for embedding. fix jar manifest to not pull en-unix on every platform. r=bryner/sr=ben/a=rjesup. bug#134523
04/25 14:25mozilla/embedding/config/basebrowser-unixpackage download progress on mac for embedding. fix jar manifest to not pull en-unix on every platform. r=bryner/sr=ben/a=rjesup. bug#134523
04/25 14:25mozilla/embedding/config/embed-jar.mnpackage download progress on mac for embedding. fix jar manifest to not pull en-unix on every platform. r=bryner/sr=ben/a=rjesup. bug#134523
04/25 14:25mozilla/build/mac/build_scripts/MozillaBuildList.pmpackage download progress on mac for embedding. fix jar manifest to not pull en-unix on every platform. r=bryner/sr=ben/a=rjesup. bug#134523
04/25 14:25mozilla/embedding/config/basebrowser-mac-machopackage download progress on mac for embedding. fix jar manifest to not pull en-unix on every platform. r=bryner/sr=ben/a=rjesup. bug#134523
04/25 14:25mozilla/embedding/browser/powerplant/source/CBrowserApp.cppackage download progress on mac for embedding. fix jar manifest to not pull en-unix on every platform. r=bryner/sr=ben/a=rjesup. bug#134523
+ +EOF + + ; + + +# create one popup page for each popup library we have. + + + + + +my @popup_libs = glob "./build/lib/HTMLPopUp/*"; +foreach $popup_lib (@popup_libs) { + + $lib = basename($popup_lib); + $lib =~ s/\..*//; + $libname= 'HTMLPopUp::'.$lib; + @HTMLPopUp::ISA = ($libname); + eval " use $libname "; + + my $outfile ="$TinderConfig::TINDERBOX_HTML_DIR/popup/$lib.html"; + + my $links; + + $links.= "\t\t". + HTMLPopUp::Link( + "linktxt"=>"L", + "href"=>"http://lounge.mozilla.org/cgi-bin/cgiwrap/cgiwrap_exe/tbox/gunzip.cgi?tree=SeaMonkey&full-log=1019840173.26973", + "windowtxt"=>$build_info_table, + "windowtitle" =>'Build Info Buildname: Linux comet Depend', + )."\n
\n\n\n\n"; + + + $links.= "\t\t". + HTMLPopUp::Link( + "linktxt"=>"pinkerton", + "href"=>"http://lounge.mozilla.org/cgi-bin/cgiwrap/cgiwrap_exe/tbox/gunzip.cgi?tree=SeaMonkey&full-log=1019840173.26973", + "windowtxt"=>$checkin_table, + "windowtitle" =>'CVS Info Author: pinkerton%netscape.com 04/25 14:30 to 04/25 14:25 ', + + "windowheight" => 825, + "windowwidth" => 825, + + )."\n
\n\n\n\n\n"; + + my $table = ("\t\n". + "\t
". + $links. + "". + $links. + "
\n"); + + my $out; + + $out .= HTMLPopUp::page_header('title'=>"Tinderbox Status Page tree: $tree", + 'refresh'=>$REFRESH_TIME); + $out .= "\n\n"; + $out .= "$table\n\n"; + my (@structures) = HTMLPopUp::define_structures(); + $out .= "@structures"; + $out .= "

\n\n"; + $out .= "\n\n"; + + overwrite_file($outfile, $out); + +}