missing EOF fixed, URL was very wrong, now I just need to get the tree name to make this work.

This commit is contained in:
kestes%walrus.com 2002-05-01 02:19:10 +00:00
parent ec8935fcaf
commit 6c21a5d569

View File

@ -7,8 +7,8 @@
# columns from being shown on the default pages.
# $Revision: 1.1 $
# $Date: 2002/05/01 01:56:59 $
# $Revision: 1.2 $
# $Date: 2002/05/01 02:19:10 $
# $Author: kestes%walrus.com $
# $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/bin/regenerate.cgi,v $
# $Name: $
@ -46,21 +46,21 @@
use lib '#tinder_libdir#';
use HTMLPopUp;
use FileStructure;
# Main
{
$DEFAULT_HTML_PAGE = ( ($DEFAULT_HTML_PAGE::DEFAULT_HTML_PAGE) ||
("status.html"));
$tree = '';
$url = FileStructure::get_filename($tree, 'tree_URL').
HTMLPopUp::regenerate_HTML_pages();
$out = <<EOF;
<TITLE>tinderbox</TITLE>
<META HTTP-EQUIV="Refresh" CONTENT="0; URL=$DEFAULT_HTML_PAGE">
<META HTTP-EQUIV="Refresh" CONTENT="0; URL=$url">
<BODY BGCOLOR="#FFFFFF" TEXT="#000000"
LINK="#0000EE" VLINK="#551A8B" ALINK="#FF0000">
<CENTER>
@ -71,6 +71,10 @@ Regenerating HTML now.
</TD></TR></TABLE>
</CENTER>
EOF
;
print $out;
exit 0;