pbot/PBot/Utils/SafeFilename.pm

package PBot::Utils::SafeFilename;
use 5.010; use warnings;
use feature 'unicode_strings';

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 lc $safe;
}

1;