mozilla
/
pjs
зеркало из https://github.com/mozilla/pjs.git
1
0
Форкнуть 0
Код Задачи Пакеты Проекты Релизы Вики Активность

Need a cvs login for checking out configure.in

This commit is contained in:
slamm%netscape.com 1999-03-05 00:23:57 +00:00
Родитель c8fa3a8d4d
Коммит 0ab32fed5b
4 изменённых файлов: 19 добавлений и 12 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

0
webtools/build/.cvspass Normal file
Просмотреть файл

1
webtools/build/.htaccess
Просмотреть файл

@ -2,4 +2,3 @@
#RewriteBase /webtools/build/
#RewriteRule ^\.mozconfig\.sh(.*) config.cgi$1
#RewriteRule ^\mozconfig\.sh(.*) config.cgi$1

3
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(
<HTML>

27
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(
<HTML>
@ -38,14 +37,22 @@ print "Content-type: text/html\n\n\n";
<body BGCOLOR="#FFFFFF" TEXT="#000000"LINK="#0000EE" VLINK="#551A8B" ALINK="#FF0000">
);
print "PATH=$ENV{PATH}\n";
while (($key,$value) = each %ENV) {
print "<code>$key=$value</code><br>\n";
}
print qq(
<FORM action='test.cgi' method='post' enctype='multipart/form-data' onsubmit="this.doit='you';this.foo.filename = '/u/slamm/.cshrc';">
<input type='file' name='foo'>
<input type='submit' name='doit' >
</form>
);
# 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 (<OPTIONS>) {
print;
}
if ($ENV{"REQUEST_METHOD"} eq 'POST') {
print "body:<br>\n";
print "$_<br>\n" while (<>);
}
else {
$s = $ENV{"QUERY_STRING"};
}
print "\n</body>\n</html>\n";