View | Details | Raw Unified | Return to bug 37323
Collapse All | Expand All

(-)a/tools/picture-upload.pl (-1 / +1 lines)
Lines 89-94 if ( ( $op eq 'cud-Upload' ) && ($uploadfile || $uploadfiletext) ) { Link Here
89 

          89
          

        

        

          90
          
    my $dirname = File::Temp::tempdir( CLEANUP => 1 );

          90
          
    my $dirname = File::Temp::tempdir( CLEANUP => 1 );

        

        

          91
          
    my $filesuffix;

          91
          
    my $filesuffix;

        

            

              
              
              92
              
    $uploadfilename =~ s/[^A-Za-z0-9\-\.]//g;

            

        

          92
          
    if ( $uploadfilename =~ m/(\..+)$/i ) {

          93
          
    if ( $uploadfilename =~ m/(\..+)$/i ) {

        

        

          93
          
        $filesuffix = $1;

          94
          
        $filesuffix = $1;

        

        

          94
          
    }

          95
          
    }

        

            

              95
              
- 

              
              
            






  

  Return to bug 37323