GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-01-11 12:32:37 +01:00
Code Issues Projects Releases Wiki Activity

Add SafeFilename module

Browse Source
This commit is contained in:
Pragmatic Software 2017-09-04 19:06:31 -07:00
parent ba6cfdca92
commit 5e6e5cb21d
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
PBot/Utils/SafeFilename.pm Normal file
View File

@ -0,0 +1,25 @@
package PBot::Utils::SafeFilename;
use 5.010; use warnings;
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;
}
}
return $safe;
}
1;