| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/URLPath.pm,v 1.3 2004/03/06 18:50:00 gage Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/URLPath.pm,v 1.4 2004/03/09 15:42:37 sh002i Exp $ |
| 5 | # |
5 | # |
| 6 | # This program is free software; you can redistribute it and/or modify it under |
6 | # This program is free software; you can redistribute it and/or modify it under |
| 7 | # the terms of either: (a) the GNU General Public License as published by the |
7 | # the terms of either: (a) the GNU General Public License as published by the |
| 8 | # Free Software Foundation; either version 2, or (at your option) any later |
8 | # Free Software Foundation; either version 2, or (at your option) any later |
| 9 | # version, or (b) the "Artistic License" which comes with this package. |
9 | # version, or (b) the "Artistic License" which comes with this package. |
| … | |
… | |
| 24 | |
24 | |
| 25 | use strict; |
25 | use strict; |
| 26 | use warnings; |
26 | use warnings; |
| 27 | |
27 | |
| 28 | sub debug { |
28 | sub debug { |
| 29 | my ($label, $indent, @message) = @_; |
29 | # my ($label, $indent, @message) = @_; |
| 30 | print STDERR " "x$indent; |
30 | # print STDERR " "x$indent; |
| 31 | print STDERR "$label: " if $label ne ""; |
31 | # print STDERR "$label: " if $label ne ""; |
| 32 | print STDERR @message; |
32 | # print STDERR @message; |
| 33 | } |
33 | } |
| 34 | |
34 | |
| 35 | =head1 VIRTUAL HEIRARCHY |
35 | =head1 VIRTUAL HEIRARCHY |
| 36 | |
36 | |
| 37 | root / |
37 | root / |