Re: Fwd: [sympa-fr] Sympa 3.0: Bug documents partagés

[Aumont <adresse@cachée>]

Michel Bouissou wrote:

> Par contre, le problème de la mise en minuscule des noms de fichiers demeure
> :-(

Olivier LACROIX xrote:
>Effectivement, je viens de regarder le code de wwsympa et il y a 
>transformation systématique du nom du fichier téléchargé ou du dossier créé 
>en 
>minuscule.

C'est volontaire : le but est de supporter les liens générés par des produits
comme "power point" dont la casse à une facheuse tendance à être aléatoire :(
(vous connaissez surement des utilisateurs qui se demadent pourquoi ce qu'ils
ont produit sur leur poste window  ne "marche" plus sur un serveur Apache. 

Nous avons donc décidé de mettre tout les noms fichiers en minuscule. A 
priori, la
seule limitation induite par ce choix est l'impossibilité de créer deux 
objects dont
les noms ne diffèrent que par la casse. Bien entendu cela suppose qu'en 
lecture on
fasse la même transformation et c'est cela le bug. Voici le patch de 
wwsympa.fcgi
qui règle cela.

Serge
-- 
-----------------------------------------------------------
Serge Aumont        Comité Réseaux des Universités
                     Campus Beaulieu 
                     35042 Rennes Cedex   +33 2 998 471 47Index: sympa/wwsympa/wwsympa.fcgi
diff -c sympa/wwsympa/wwsympa.fcgi:1.5 sympa/wwsympa/wwsympa.fcgi:1.4
*** sympa/wwsympa/wwsympa.fcgi:1.5      Tue Jan  9 12:01:08 2001
--- sympa/wwsympa/wwsympa.fcgi  Mon Jan  8 11:38:22 2001
***************
*** 4708,4714 ****
      # Arguments
      my $mode = shift;
      my $path = shift;
-     $path = lc($path);
  
      my $mode_read = $mode->{'read'};
      my $mode_edit = $mode->{'edit'};
--- 4708,4713 ----
***************
*** 5058,5064 ****
      my $list_host = $list->{'name'}.'@'.$list->{'admin'}{'host'}; 
  
      # relative path / directory shared of the document 
!     my $path = lc($in{'path'});
      my $path_orig = $path;
    
      my $expl = $Conf{'home'};
--- 5057,5063 ----
      my $list_host = $list->{'name'}.'@'.$list->{'admin'}{'host'}; 
  
      # relative path / directory shared of the document 
!     my $path = $in{'path'};
      my $path_orig = $path;
    
      my $expl = $Conf{'home'};
***************
*** 5473,5479 ****
  
      # Variables
      my $expl = $Conf{'home'};
!     my $path = lc($in{'path'});
      # $path must have no slash at its end
      $path = &format_path('without_slash',$path);
  
--- 5472,5478 ----
  
      # Variables
      my $expl = $Conf{'home'};
!     my $path = $in{'path'};
      # $path must have no slash at its end
      $path = &format_path('without_slash',$path);
  
***************
*** 5582,5588 ****
      # Variables
      my $expl = $Conf{'home'};
  
!     my $path = lc($in{'path'});
      ## $path must have no slash at its end
      $path = &format_path('without_slash',$path);
  
--- 5581,5587 ----
      # Variables
      my $expl = $Conf{'home'};
  
!     my $path = $in{'path'};
      ## $path must have no slash at its end
      $path = &format_path('without_slash',$path);
  
***************
*** 5737,5743 ****
      # Variables
      my $expl = $Conf{'home'};
  
!     my $path = lc($in{'path'});
      ## $path must have no slash at its end
      $path = &format_path('without_slash',$path);
      
--- 5736,5742 ----
      # Variables
      my $expl = $Conf{'home'};
  
!     my $path = $in{'path'};
      ## $path must have no slash at its end
      $path = &format_path('without_slash',$path);
      
***************
*** 5893,5899 ****
      # Variables
      my $expl = $Conf{'home'};
      
!     my $path = lc($in{'path'});
      ##### $path must have no slash at its end!
      $path = &format_path('without_slash',$path);
  
--- 5892,5898 ----
      # Variables
      my $expl = $Conf{'home'};
      
!     my $path = $in{'path'};
      ##### $path must have no slash at its end!
      $path = &format_path('without_slash',$path);
  
***************
*** 6054,6060 ****
    
      # Variables 
      my $expl = $Conf{'home'};
!     my $path = lc($in{'path'});
      ## $path must have a slash at its end
      $path = &format_path('with_slash',$path);
  
--- 6053,6059 ----
    
      # Variables 
      my $expl = $Conf{'home'};
!     my $path = $in{'path'};
      ## $path must have a slash at its end
      $path = &format_path('with_slash',$path);
  
***************
*** 6192,6198 ****
          #useful variables
      my $expl = $Conf{'home'};
  
!     my $path = lc($in{'path'});
      ## $path must have no slash at its end!
      $path = &format_path('without_slash',$path);
      
--- 6191,6197 ----
          #useful variables
      my $expl = $Conf{'home'};
  
!     my $path = $in{'path'};
      ## $path must have no slash at its end!
      $path = &format_path('without_slash',$path);
      
***************
*** 6336,6342 ****
    
        #useful variables
      my $expl = $Conf{'home'};
!     my $path = lc($in{'path'});
      ## $path must have a slash at its end
      $path = &format_path('with_slash',$path);
  
--- 6335,6341 ----
    
        #useful variables
      my $expl = $Conf{'home'};
!     my $path = $in{'path'};
      ## $path must have a slash at its end
      $path = &format_path('with_slash',$path);
  
***************
*** 6444,6450 ****
  
      # Variables
      my $expl = $Conf{'home'};
!     my $path = lc($in{'path'});
      #my $list_name = $in{'list'};
      my $list_name = $list->{'name'};
         
--- 6443,6449 ----
  
      # Variables
      my $expl = $Conf{'home'};
!     my $path = $in{'path'};
      #my $list_name = $in{'list'};
      my $list_name = $list->{'name'};
         
***************
*** 6594,6600 ****
      # Variables
      my $expl = $Conf{'home'};
  
!     my $path = lc($in{'path'});
      ## $path must have no slash at its end
      $path = &format_path('without_slash',$path);
  
--- 6593,6599 ----
      # Variables
      my $expl = $Conf{'home'};
  
!     my $path = $in{'path'};
      ## $path must have no slash at its end
      $path = &format_path('without_slash',$path);
  
***************
*** 6719,6725 ****
      # Variables
      my $expl = $Conf{'home'};
  
!     my $path = lc($in{'path'});
      ## $path must have no slash at its end
      $path = &format_path('without_slash',$path);
  
--- 6718,6724 ----
      # Variables
      my $expl = $Conf{'home'};
  
!     my $path = $in{'path'};
      ## $path must have no slash at its end
      $path = &format_path('without_slash',$path);