Edit du 8 janvier 2005
 
Le mirroir est maitenant fonctionnel. J'ai placer le script dans /etc/cron.dialy
 
Il est donc lancé toute les nuits à 4h02. Le Cobalt m'envoie un mail sur admin@mondomain.com c'est sympa, je sais pas si c'est un truc propre à la machine car c'est le seul événement ou il m'envoie un rapport
 
Bref parfois, il arrive qu'un paquet se loupe :

 
Comment puis je faire pour redemarrer l'opération en lorsque ce genre de problème survient
 
Le script de mise à jour ne contient que  ca  

 
 
Merci d'avance

Voila les deps indiqué sur le site de Debian, peut être qu'il me manque quelque chose
 
[dep]  
bzip2
    high-quality block-sorting file compressor - utilities
[dep]  
libcompress-zlib-perl
    Perl module for creation and manipulation of gzip files
[dep]  
libdigest-md5-perl
    Virtual package
[dep]  
liblockfile-simple-perl
    Simple advisory file locking
[dep]  
libnet-perl
    Implementation of Internet protocols for Perl
[dep]  
libwww-perl
    WWW client/server library for Perl (aka LWP)
[dep]  
rsync
    fast remote file copy program (like rcp)
[rec]  
gnupg
    GNU privacy guard - a free PGP replacement
 
 
liblockfile-simple-perl < ca ne m'étonnerais pas que ca soit ca !

il te manque le module File::Temp, à installer soit avec le système de paquetages, soit avec cpan

 
Système de paquetage sur Sun Linux pas vraiment
Tu peux expliquer un peu cpan

http://www.cpan.org/misc/cpan-faq.html#What_is_CPAN

tu veux un proxy ou un mirroir ?

Note that CPAN is also the name of a Perl module, CPAN.pm, which is used to download and install Perl software from the CPAN archive. This FAQ covers only a little about the CPAN module and you may find the documentation for it by using perldoc CPAN via the command line or on the web at http://search.cpan.org/author/JHI/ [...] b/CPAN.pm.
 
Et ca ca marche tu crois

 
Un mirroir

Ca me fait flippé ton CPAN, il est entrain de tout remettre a jour mon perl
 
 
Croisons les doigts

sachant que tu as la 5.6.0 et que la version 5.8.6 est sortie, c'est normal

Merci ca a l'air de roulaiz :
 
[root /root]# /home/users/admin/debmirror-20041209/./debmirror
mirrordir not specified
Usage: /home/users/admin/debmirror-20041209/./debmirror [--debug] [--progress] [--verbose] [--source|--nosource]
          [--md5sums|--nomd5sums] [--passive] [--host=remotehost]
          [--user=remoteusername] [--method=ftp|hftp|http|rsync]
          [--timeout=seconds] [--root=directory]
          [--dist=foo[,bar,..] ...] [--section=foo[,bar,..] ...]
          [--arch=foo[,bar,..] ...] [--skippackages] [--getcontents]
          [--cleanup|--nocleanup|--postcleanup] [--adddir=directory]
          [--ignore=regex] [--exclude=regex] [--include=regex]
          [--exclude-deb-section=regex] [--max-batch=number]
          [--rsync-batch=number] [--ignore-missing-release]
          [--ignore-release-gpg]
          [--limit-priority=regex] [--dry-run]
          [--proxy=http://user:pass@url:port/] [--help]
          [--rsync-options=options]
          mirrordir
 
For details, see man page.
[root /root]#
 
 

Comment je peux mettre à jour perl, perl en lui même pas les modules

fait voir perl -v

5.6

Ce qui m'embete c'est ca quand je fais install Bundle::CPAN
 
BEGIN failed--compilation aborted at t/taint.t line 14.
t/taint............dubious
        Test returned status 2 (wstat 512, 0x200)
DIED. FAILED tests 1-16
        Failed 16/16 tests, 0.00% okay
t/win32............skipped
        all skipped: this is not win32
Failed Test Stat Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------------
t/cwd.t      255 65280    24   40 166.67%  5-24
t/taint.t      2   512    16   32 200.00%  1-16
1 test and 90 subtests skipped.
Failed 2/7 test scripts, 71.43% okay. 36/562 subtests failed, 93.59% okay.
make: *** [test_dynamic] Error 11
  /usr/bin/make test -- NOT OK
Running make install
  make test had returned bad status, won't install without force
 
 

Quand je fias un force install Test::Taint ca failed a cause du perl trop vieux
 
 
Comment ke je peux installer perl 5.8.6

 
 
install B
 
Ca compile

[root /root]# perl -v
 
This is perl, v5.8.6 built for i686-linux
 
Copyright 1987-2004, Larry Wall

[  0%] Getting: pool/contrib/a/aspectj/aspectj-doc_1.1.1-1_all.deb       #####
[  0%] Getting: pool/contrib/a/aspectj/aspectj_1.1.1-1_all.deb   ##########################################################
 

pourquoi tu fais pas comme tout le monde  : tu prends le script anonftprsync et ouala

ben pour faire un miroir, le plus simple c'est d'utiliser anonftprsync, c'est un script déjà tout prêt, suffit d'y éditer 2/3 trucs, et hop, dans la crontab

bah j'ai debmirror qui roule maitenant c'est encore mieux

Uuuupps y'a un blem,  
 
[root cron.quarter-hourly]# ./db_checkpoint.pl
There may be a problem with user and group information on your server appliance.
Please check /var/log/dbrecover.log for error messages and verify that regular users (other than the 'admin' user)  are still able to log in.
If there are errors or users cannot access the system, reboot the machine to attempt to recover the user and group information.
 
Et je peux plus crée de nouveau user par la web admin

[root cron.quarter-hourly]# rm /var/log/dbrecover.log
[root cron.quarter-hourly]# ./db_checkpoint.pl
[root cron.quarter-hourly]# cat /var/log/dbrecover.log
db_checkpoint: checkpoint: Mon Dec 27 16:18:44 2004
 
db_checkpoint: checkpoint: Mon Dec 27 16:18:44 2004
 
 
Desfois c'est zarb
 
Ca marche la mdr

Ok je comprend mieux, j'avais remis perl5.6.0 sur /usr/bin/perl
 
Si je remet le dernier ca remmerde, une idée

[root cron.quarter-hourly]# cat /var/log/dbrecover.log
db_checkpoint: open: No such file or directory
 
 
Voila ce que ca donne.
 
 
Le code :
 
use lib qw(/usr/sausalito/perl);
use I18n;
 
my $DB_CHECKPOINT = '/usr/bin/db_checkpoint';
my $DB_ARCHIVE = '/usr/bin/db_archive';
my $DB_HOME = '/var/db';
my $DB_LOGFILE = '/var/log/dbrecover.log';
 
# try to checkpoint the db twice.
# Checkpoint it twice so that db_recover uses the first checkpoint to
# start recovery, so it will finish relatively quickly.
for (my $i = 0; $i < 2; $i++)
{
        system("$DB_CHECKPOINT -1 -v -h $DB_HOME >>$DB_LOGFILE 2>&1" );
 
        # check if it succeeded
        if ($?)
        {
                # failed for some reason
                my $locale = I18n::i18n_getSystemLocale();
                my $i18n = new I18n;
                $i18n->setLocale($locale);
                print $i18n->get('[[base-sys.checkPointFailed]]');
                exit(1);
        }
}
 
# no run db_archive to see what we can clean up
my @old_logs = `$DB_ARCHIVE -h $DB_HOME 2>/dev/null`;
chomp(@old_logs);
 
for my $file (@old_logs)
{
        unlink("$DB_HOME/$file" );
}
 
exit(0);
 
 
En gras la ligne qui m'a l'air étrange....
 
 
 
 
 
 
 
 
 
[root bin]# /usr/bin/db_checkpoint -1 -v -h /var/db/
db_checkpoint: open: No such file or directory
[root bin]# ls -l /var/db
total 380
-rw-------    1 root     root         8192 Dec 10 23:14 freegids.db
-rw-r-----    1 root     root            0 Dec 10 19:17 freegids.lock
-rw-------    1 root     root         8192 Dec 27 16:19 freeuids.db
-rw-r-----    1 root     root            0 Dec 10 19:17 freeuids.lock
-rw-r--r--    1 root     root         8192 Dec 19 01:32 group.db
-rw-------    1 root     root         8192 Dec 19 01:32 gshadow.db
-rw-r-----    1 root     root       336816 Dec 27 16:23 log.0000000001
-rw-r--r--    1 root     root         8192 Dec 27 16:19 passwd.db
-rw-------    1 root     root         8192 Dec 27 16:19 shadow.db
 
 
La commande à la main se loupe aussi, pourtant db_checkpoint n'est pas en perl
 
 
 
 
 
 
Je recopie perl5.6.0 sur perl
Je redémarre (sinon ca ne marche pas)
 
[root admin]# /usr/bin/db_checkpoint -1 -v -h /var/db/
db_checkpoint: checkpoint: Mon Dec 27 16:34:59 2004
 
 

Comment peut on verifier les modules présent sur les deux perl, il y'a des .pm dans /usr/sausalito/ dont certains apparament lié au users......
 
Est-ce que le problème ne pourrait pas venir de ca

Bon bref :
 
if (!defined($ENV{rThreshold})) {
    $ENV{rThreshold} = 1800;
}
 
if (!defined($ENV{yThreshold})) {
    $ENV{yThreshold} = 1000;
}
 
 
QU'et ce que ca signifie ca

Ok si il est pas déjà définit il le définit logique, le truc c'est de savoir il le définit la premiere fois

 
Nouvelle question dans le premier post