| 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/Utils.pm,v 1.38 2004/03/17 08:16:13 sh002i Exp $ |
4 | # $CVSHeader: webwork-modperl/lib/WeBWorK/Utils.pm,v 1.39 2004/03/18 21:08:04 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. |
| … | |
… | |
| 54 | makeTempDirectory |
54 | makeTempDirectory |
| 55 | removeTempDirectory |
55 | removeTempDirectory |
| 56 | pretty_print_rh |
56 | pretty_print_rh |
| 57 | cryptPassword |
57 | cryptPassword |
| 58 | dequote |
58 | dequote |
|
|
59 | undefstr |
| 59 | ); |
60 | ); |
| 60 | |
61 | |
| 61 | sub runtime_use($) { |
62 | sub runtime_use($) { |
| 62 | return unless @_; |
63 | return unless @_; |
| 63 | eval "package Main; require $_[0]; import $_[0]"; |
64 | eval "package Main; require $_[0]; import $_[0]"; |
| … | |
… | |
| 350 | } |
351 | } |
| 351 | s/^\s*?$leader(?:$white)?//gm; |
352 | s/^\s*?$leader(?:$white)?//gm; |
| 352 | return $_; |
353 | return $_; |
| 353 | } |
354 | } |
| 354 | |
355 | |
|
|
356 | sub undefstr($@) { |
|
|
357 | map { defined $_ ? $_ : $_[0] } @_[1..$#_]; |
|
|
358 | } |
|
|
359 | |
| 355 | 1; |
360 | 1; |
Parent Directory
| 
Revision Log
| 
Patch