~mdw
/
sw-tools
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
More improvements to URL recognizer.
[sw-tools]
/
perl
/
sw.in
diff --git
a/perl/sw.in
b/perl/sw.in
index
854be1f
..
deeba4e
100644
(file)
--- a/
perl/sw.in
+++ b/
perl/sw.in
@@
-1,7
+1,7
@@
#! @PERL@
# -*-perl-*-
#
#! @PERL@
# -*-perl-*-
#
-# $Id: sw.in,v 1.
1 1999/07/30 18:46:38
mdw Exp $
+# $Id: sw.in,v 1.
2 1999/07/30 20:24:02
mdw Exp $
#
# CGI interface for software installations
#
#
# CGI interface for software installations
#
@@
-29,6
+29,9
@@
#----- Revision history -----------------------------------------------------
#
# $Log: sw.in,v $
#----- Revision history -----------------------------------------------------
#
# $Log: sw.in,v $
+# Revision 1.2 1999/07/30 20:24:02 mdw
+# Fix titles for debugging actions.
+#
# Revision 1.1 1999/07/30 18:46:38 mdw
# New CGI script for browsing installed software and documentation.
#
# Revision 1.1 1999/07/30 18:46:38 mdw
# New CGI script for browsing installed software and documentation.
#
@@
-62,8
+65,8
@@
sub debug($\%) {
}
$ACT{"show-config"} = sub { debug("configuration", %C); };
}
$ACT{"show-config"} = sub { debug("configuration", %C); };
-$ACT{"show-environment"} = sub { debug("
configuration
", %ENV); };
-$ACT{"show-query"} = sub { debug("
configuration
", %Q); };
+$ACT{"show-environment"} = sub { debug("
environment
", %ENV); };
+$ACT{"show-query"} = sub { debug("
query
", %Q); };
#----- Snarf arguments ------------------------------------------------------
#----- Snarf arguments ------------------------------------------------------