2017-09-05 04:06:31 +02:00
|
|
|
package PBot::Utils::SafeFilename;
|
|
|
|
use 5.010; use warnings;
|
2019-07-11 03:40:53 +02:00
|
|
|
use feature 'unicode_strings';
|
2017-09-05 04:06:31 +02:00
|
|
|
|
|
|
|
require Exporter;
|
|
|
|
our @ISA = qw/Exporter/;
|
|
|
|
our @EXPORT = qw/safe_filename/;
|
|
|
|
|
|
|
|
sub safe_filename {
|
|
|
|
my $name = shift;
|
|
|
|
my $safe = '';
|
|
|
|
|
|
|
|
while ($name =~ m/(.)/gms) {
|
|
|
|
if ($1 eq '&') {
|
|
|
|
$safe .= '&';
|
|
|
|
} elsif ($1 eq '/') {
|
|
|
|
$safe .= '&fslash;';
|
|
|
|
} else {
|
|
|
|
$safe .= $1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2020-01-15 03:10:53 +01:00
|
|
|
return lc $safe;
|
2017-09-05 04:06:31 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
1;
|