Parent Directory
| 
Revision Log
| 
Patch
| revision 1.1 by wakaba, Sun Mar 15 09:42:20 2009 UTC | revision 1.2 by wakaba, Sun Jul 12 04:00:24 2009 UTC | |
|---|---|---|
| # | Line 15 sub _get_file_name ($$$) { | Line 15 sub _get_file_name ($$$) { |
| 15 | my $mkdir = $_[1]; | my $mkdir = $_[1]; |
| 16 | ||
| 17 | my $encoded_name = $name; | my $encoded_name = $name; |
| 18 | $encoded_name =~ s/([0-9A-Za-z_-])/sprintf '@%06X', ord $1/ge; | $encoded_name =~ s/([^0-9A-Za-z_-])/sprintf '@%06X', ord $1/ge; |
| 19 | ||
| 20 | my $dir = $self->{root_directory_name}; | my $dir = $self->{root_directory_name}; |
| 21 | my $file_name = $dir . '/' . $encoded_name . $self->{leaf_suffix}; | my $file_name = $dir . '/' . $encoded_name . $self->{leaf_suffix}; |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |