Changeset 5038 in spip-zone


Ignore:
Timestamp:
Sep 1, 2006, 4:24:14 PM (13 years ago)
Author:
rudjob@…
Message:

Correction il manquait un tiret

Location:
_outils_/svnup2ftp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • _outils_/svnup2ftp/svnup2ftp

    r4816 r5038  
    1616# système en DOS. Le test n'a pas ete pousse plus loin sous       #
    1717# Windows                                                         #
     18#                                                                 #
     19#  contact auteur : rudjob chez gmail.com                         #
     20#                                                                 #
    1821###################################################################
    1922
     
    145148  $filename  = join( '/', @test );
    146149
    147   if ( $test[$#test] =~ /\w*\.\w*/ ) {
     150  if ( $test[$#test] =~ /[0-9a-zA-Z_\-]*\.[0-9a-zA-Z]*/ ) {
    148151    $test_rep = join( '/', @test[0..($#test-1)]);
    149152    $i = 0 ;
     
    227230  my @test = split(/\//, $filename );
    228231  $filename  = join( '/', @test );
    229   if ( $test[$#test] =~ /\w*\.\w*/ ) {
     232  if ( $test[$#test] =~ /[0-9a-zA-Z_\-]*\.[0-9a-zA-Z]*/ ) {
    230233    $test_rep = join( '/', @test[0..($#test-1)]);
    231234    $i = 0 ;
     
    284287while (<HANDLE>) {
    285288  chomp( $_ );
    286   if ( $_ =~ /^(\s){3}(\w)?\s*(\S*)(\s\(de\s\/spip\/)?([0-9a-zA-Z\/\.]*)?.*/ ) { 
     289  if ( $_ =~ /^(\s){3}(\w)?\s*(\S*)(\s\(de\s\/spip\/)?([0-9a-zA-Z\/\._\-]*)?.*/ ) { 
    287290    my $file = $3 ;
    288291    $typemodif = $2 ;
     
    295298      my $filenameold = $5 ;
    296299      my @testold = split(/\//, $filenameold );
    297       if ( $testold[$#testold] =~ /\w*\.\w*/ ) {
     300      if ( $testold[$#testold] =~ /[0-9a-zA-Z_\-]*\.[0-9a-zA-Z]*/ ) {
    298301        delete_file_or_directory($filenameold) ;
    299302        add_file_or_directory( $file ) ;       
     
    307310            if ( $_ =~ /^([0-9a-zA-Z\/\.]*):.*/ ) {
    308311              $new_directory = $1 ;
    309             } elsif ( $_ ne '' && $_ =~ /\w*\.\w*/  ) {
     312            } elsif ( $_ ne '' && $_ =~ /[0-9a-zA-Z_\-]*\.[0-9a-zA-Z]*/  ) {
    310313              add_file_or_directory($new_directory."/".$_) ;
    311314            }
  • _outils_/svnup2ftp/svnup2ftpandplugin

    r4865 r5038  
    186186  my @fichier_decompo = split(/\//, $nom_fichier );
    187187  $nom_fichier  = join( '/', @fichier_decompo );
    188   if ( $fichier_decompo[$#fichier_decompo] =~ /\w*\.\w*/ ) {
     188  if ( $fichier_decompo[$#fichier_decompo] =~ /[0-9a-zA-Z_\-]*\.[0-9a-zA-Z]*/ ) {
    189189    my $fichier_decompo_rep = join( '/', @fichier_decompo[0..($#fichier_decompo-1)]);
    190190    $i = 0 ;
     
    268268  my @fichier_decompo = split(/\//, $nom_fichier );
    269269  $nom_fichier  = join( '/', @fichier_decompo );
    270   if ( $fichier_decompo[$#fichier_decompo] =~ /\w*\.\w*/ ) {
     270  if ( $fichier_decompo[$#fichier_decompo] =~ /[0-9a-zA-Z_\-]*\.[0-9a-zA-Z]*/ ) {
    271271    my $fichier_decompo_rep = join( '/', @fichier_decompo[0..($#fichier_decompo-1)]);
    272272    $i = 0 ;
     
    419419    while (<HANDLE>) {
    420420      chomp( $_ );
    421       if ( $_ =~ /^(\s){3}(\w)?\s*(\S*)(\s\(de\s)?([0-9a-zA-Z\/\._]*)?.*/ ) {
     421      if ( $_ =~ /^(\s){3}(\w)?\s*(\S*)(\s\(de\s)?([0-9a-zA-Z\/\._\-]*)?.*/ ) {
    422422        my $file = $3 ;
    423423        my @split_file = split(/\//, $file ) ;
     
    437437              while (<HAND>) {
    438438                chomp( $_ );
    439                 if ( $_ =~ /^\.\/([0-9a-zA-Z\/\._]*):.*/ && $_ !~ /^\.:/ ) {
     439                if ( $_ =~ /^\.\/([0-9a-zA-Z\/\._\-]*):.*/ && $_ !~ /^\.:/ ) {
    440440                  $new_directory = $1 ;
    441                 } elsif ( $_ ne '' && $_ =~ /\w*\.\w*/  && $new_directory ne '' && $_ !~ /^\.:/  ) {
     441                } elsif ( $_ ne '' && $_ =~ /[0-9a-zA-Z_\-]*\.\[0-9a-zA-Z]*/  && $new_directory ne '' && $_ !~ /^\.:/  ) {
    442442                  add_file_or_directory($new_directory."/".$_) ;
    443                 } elsif ( $_ ne '' && $_ =~ /\w*\.\w*/  && $new_directory eq '' && $_ !~ /^\.:/  ) {
     443                } elsif ( $_ ne '' && $_ =~ /[0-9a-zA-Z_-]*\.[0-9a-zA-Z]*/  && $new_directory eq '' && $_ !~ /^\.:/  ) {
    444444                  add_file_or_directory($_) ;
    445445                }
     
    460460                  $fichier_changer = join( '/', @split_fichier_changer )."/";
    461461                  if ( ($debut_fichier_changer eq $chemin_absolu_svn)  ) {
    462                     if ( $split_fichier_changer[$#split_fichier_changer] =~ /\w*\.\w*/ ) {
     462                    if ( $split_fichier_changer[$#split_fichier_changer] =~ /[0-9a-zA-Z_\-]*\.[0-9a-zA-Z]*/ ) {
    463463                      delete_file_or_directory($fichier_changer) ;
    464464                      add_file_or_directory( $file ) ; 
     
    472472                        if ( $_ =~ /^([0-9a-zA-Z\/\._]*):.*/ ) {
    473473                          $new_directory = $1 ;
    474                         } elsif ( $_ ne '' && $_ =~ /\w*\.\w*/  && $new_directory ne '' ) {
     474                        } elsif ( $_ ne '' && $_ =~ /[0-9a-zA-Z_\-]*\.[0-9a-zA-Z]*/  && $new_directory ne '' ) {
    475475                          add_file_or_directory($new_directory."/".$_) ;
    476                         } elsif ( $_ ne '' && $_ =~ /\w*\.\w*/  && $new_directory eq '' ) {
     476                        } elsif ( $_ ne '' && $_ =~ /[0-9a-zA-Z_\-]*\.[0-9a-zA-Z]*/  && $new_directory eq '' ) {
    477477                          add_file_or_directory($_) ;
    478478                        }
Note: See TracChangeset for help on using the changeset viewer.