Re: [sympa-fr] Migration des archives SYMPA

[ines foulhouze <adresse@cachée>]

BOnjour

Merci beaucoup

La correction a permis la génération d'archives correctes

Selon 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;
>
>