Ticket #2359: fax-process.patch

File fax-process.patch, 1.0 kB (added by fskrotzki, 5 years ago)

  • fax-process.pl

    old new  
    5252    # It's a single word 
    5353    $subject = $tmp; 
    5454  } 
    55   # Convert %20 to spaces, leave anythign else alone. 
     55  # Convert %2x to proper characters, leave anything else alone. 
    5656  $subject =~ s/\%20/ /g; 
     57    $subject =~ s/\%21/\!/g; 
     58    $subject =~ s/\%22/\"/g; 
     59    $subject =~ s/\%23/\#/g; 
     60    $subject =~ s/\%24/\$/g; 
     61    $subject =~ s/\%25/\%/g; 
     62    $subject =~ s/\%26/\&/g; 
     63    $subject =~ s/\%27/\'/g; 
     64    $subject =~ s/\%28/\(/g; 
     65    $subject =~ s/\%29/\)/g; 
     66    $subject =~ s/\%2a/\*/g; 
     67    $subject =~ s/\%2A/\*/g; 
     68    $subject =~ s/\%2b/\+/g; 
     69    $subject =~ s/\%2B/\+/g; 
     70    $subject =~ s/\%2c/\,/g; 
     71    $subject =~ s/\%2C/\,/g; 
     72    $subject =~ s/\%2d/\-/g; 
     73    $subject =~ s/\%2D/\-/g; 
     74    $subject =~ s/\%2e/\./g; 
     75    $subject =~ s/\%2E/\./g; 
     76    $subject =~ s/\%2f/\//g; 
     77    $subject =~ s/\%2F/\//g; 
    5778  } elsif ($cmd eq "--type") { 
    5879  my $tmp = shift @ARGV; 
    5980  $ct = $tmp if (defined $tmp);