From 0ab32fed5b8b4fb8a9e0fc6d7ddead997d60de8d Mon Sep 17 00:00:00 2001 From: "slamm%netscape.com" Date: Fri, 5 Mar 1999 00:23:57 +0000 Subject: [PATCH] Need a cvs login for checking out configure.in --- webtools/build/.cvspass | 0 webtools/build/.htaccess | 1 - webtools/build/config.cgi | 3 ++- webtools/build/test.cgi | 27 +++++++++++++++++---------- 4 files changed, 19 insertions(+), 12 deletions(-) create mode 100644 webtools/build/.cvspass diff --git a/webtools/build/.cvspass b/webtools/build/.cvspass new file mode 100644 index 00000000000..e69de29bb2d diff --git a/webtools/build/.htaccess b/webtools/build/.htaccess index 30dce46f911..d82de6d1d29 100644 --- a/webtools/build/.htaccess +++ b/webtools/build/.htaccess @@ -2,4 +2,3 @@ #RewriteBase /webtools/build/ #RewriteRule ^\.mozconfig\.sh(.*) config.cgi$1 #RewriteRule ^\mozconfig\.sh(.*) config.cgi$1 - diff --git a/webtools/build/config.cgi b/webtools/build/config.cgi index 2519aa9ad53..298dd5264ba 100755 --- a/webtools/build/config.cgi +++ b/webtools/build/config.cgi @@ -198,7 +198,8 @@ sub print_script { sub print_configure_form { mkdir 'configure-mirror', 0777 if not -d 'configure-mirror'; - system "cd configure-mirror && cvs -d $CVSROOT co mozilla/configure.in"; + system "cd configure-mirror && HOME=.. cvs -d $CVSROOT co mozilla/configure.in"; + die if not -f $configure_in; print qq( diff --git a/webtools/build/test.cgi b/webtools/build/test.cgi index 3802767d337..6b117ef9eff 100755 --- a/webtools/build/test.cgi +++ b/webtools/build/test.cgi @@ -1,3 +1,4 @@ +#!/usr/bin/env perl #!/usr/bonsaitools/bin/perl -- # -*- Mode: perl; indent-tabs-mode: nil -*- # @@ -27,8 +28,6 @@ $chrome_color = '#F0A000'; $ENV{CVSROOT} = ':pserver:anonymous@cvs-mirror.mozilla.org:/cvsroot'; $ENV{PATH} = "$ENV{PATH}:/usr/bin/ccs"; -system "cvs co mozilla/configure.in"; - print "Content-type: text/html\n\n\n"; print qq( @@ -38,14 +37,22 @@ print "Content-type: text/html\n\n\n"; ); -print "PATH=$ENV{PATH}\n"; +while (($key,$value) = each %ENV) { + print "$key=$value
\n"; +} + print qq( +
+ + +
+ ); -# open(OPTIONS, "/usr/ccs/bin/m4 webify-configure.m4 $configure_in|") - open(OPTIONS, "m4 webify-configure.m4 $configure_in|") - or die "Error parsing configure.in\n"; - - foreach () { - print; - } + if ($ENV{"REQUEST_METHOD"} eq 'POST') { + print "body:
\n"; + print "$_
\n" while (<>); + } + else { + $s = $ENV{"QUERY_STRING"}; + } print "\n\n\n";