~mdw
/
sw-tools
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0d60dad
)
Fix titles for debugging actions.
1.0.0
author
mdw
<mdw>
Fri, 30 Jul 1999 20:24:02 +0000
(20:24 +0000)
committer
mdw
<mdw>
Fri, 30 Jul 1999 20:24:02 +0000
(20:24 +0000)
perl/sw.in
patch
|
blob
|
blame
|
history
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 ------------------------------------------------------