Re: [sympa-fr] Migration des archives SYMPA

[Pierre ROLLAND <adresse@cachée>]

ines foulhouze a écrit :

Bonsoir

Voici

5.8.8

debian sarge

Selon Pierre ROLLAND <adresse@cachée>:

  

ines foulhouze a écrit :
    

Lors du passage du script
./sympa.pl --upgrade --from=4.1.5 --to=5.2.3

J'ai le message

Migrating templates to TT2 format...
Bad index while coercing array into hash at /usr/lib/sympa/bin/tpl2tt2.pl
line 133.
Rebuilding web archives...

L'affichage des archives est totalement incohérent
      

Bonjour,

Pouvez-vous préciser la version de Perl utilisée ?
S'agit-il d'une version 5.8 ou ultérieure ?

Cordialement
--
Pierre Rolland

Bonjour,

Le fichier tpl2tt2.pl du paquet sympa_5.2.3-1.2_i386.deb est différent de la version actuelle.
Pouvez-vous modifier votre fichier /usr/lib/sympa/bin/tpl2tt2.pl comme ceci :

Sous la ligne :

    ## Search in V. Robot Lists

Remplacer :

    foreach my $list ( &List::get_lists($vr) ) {

Par:

    my $listOfLists = &List::get_lists($vr);
    foreach my $list ( @$listOfLists ) {

Je pense que cela résoudra votre problème.
Soleil radieux ... Passez un bon dimanche ;-)

Cordialement

--
Pierre Rolland

---

host:~# diff tpl2tt2_recent.pl tpl2tt2_debian.pl
1c1
< #! --PERL--
---
> #! /usr/bin/perl
24c24
< use lib '--LIBDIR--';
---
> use lib '/usr/lib/sympa/bin';
30,31c30,31
< $wwsympa_conf_file = '--WWSCONFIG--';
< $sympa_conf_file = '--CONFIG--';
---
> $wwsympa_conf_file = '/etc/sympa/wwsympa.conf';
> $sympa_conf_file = '/etc/sympa/sympa.conf';
41c41
< #unless (getlogin() eq '--USER--') {
---
> #unless (getlogin() eq 'sympa') {
60c60
<     unless ($List::use_db = &Upgrade::probe_db()) {
---
>     unless ($List::use_db = &List::probe_db()) {
110,112c110
<     if ( -d "$Conf::Conf{'etc'}/$vr") {
<       push @directories, "$Conf::Conf{'etc'}/$vr";
<     }
---
>     push @directories, "$Conf::Conf{'etc'}/$vr";
133,135c131,132
<     my $listOfLists = &List::get_lists($vr);
<     foreach my $list ( @$listOfLists ) {
<
---
>     foreach my $list ( &List::get_lists($vr) ) {
>
149d145
<
151c147
<       printf STDERR "Error: Cannot read %s directory : %s\n", $d, $!;
---
>       printf STDERR "Error: Cannot read %s directory : %s", $d, $!;
222c218
<       chown '--USER--', '--GROUP--', $dest_path;
---
>       chown 'sympa', 'root', $dest_path;
267c263
<     chown '--USER--', '--GROUP--', $out_file;
---
>     chown 'sympa', 'root', $out_file;