| … | |
… | |
| 40 | ref2string |
40 | ref2string |
| 41 | sortByName |
41 | sortByName |
| 42 | makeTempDirectory |
42 | makeTempDirectory |
| 43 | removeTempDirectory |
43 | removeTempDirectory |
| 44 | pretty_print_rh |
44 | pretty_print_rh |
|
|
45 | cryptPassword |
| 45 | ); |
46 | ); |
| 46 | |
47 | |
| 47 | sub runtime_use($) { |
48 | sub runtime_use($) { |
| 48 | return unless @_; |
49 | return unless @_; |
| 49 | eval "package Main; require $_[0]; import $_[0]"; |
50 | eval "package Main; require $_[0]; import $_[0]"; |
| … | |
… | |
| 296 | foreach my $key (sort keys %{$rh}) { |
297 | foreach my $key (sort keys %{$rh}) { |
| 297 | warn " $key => ",$rh->{$key},"\n"; |
298 | warn " $key => ",$rh->{$key},"\n"; |
| 298 | } |
299 | } |
| 299 | } |
300 | } |
| 300 | |
301 | |
|
|
302 | sub cryptPassword { |
|
|
303 | my ($clearPassword) = @_; |
|
|
304 | my $salt = join("", ('.','/','0'..'9','A'..'Z','a'..'z')[rand 64, rand 64]); |
|
|
305 | my $cryptPassword = crypt($clearPassword, $salt); |
|
|
306 | return $cryptPassword; |
|
|
307 | } |
|
|
308 | |
| 301 | 1; |
309 | 1; |
Parent Directory
| 
Revision Log
| 
Patch