 |
||
| ||
| |||||
| Dernière réponse | |
|---|---|
| Sujet : Debmirror sur Sun Linux | |
| M300A | :hot:
Nouvelle question dans le premier post ;) |
| Aperçu |
|---|
| Vue Rapide de la discussion |
|---|
| M300A | :hot:
Nouvelle question dans le premier post ;) |
| M300A | 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 :heink: |
| M300A | Bon bref :
if (!defined($ENV{rThreshold})) { $ENV{rThreshold} = 1800; } if (!defined($ENV{yThreshold})) { $ENV{yThreshold} = 1000; } QU'et ce que ca signifie ca :??: |
| M300A | 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 :??: |
| M300A | [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 :heink: 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 :eek: |
| M300A | Ok je comprend mieux, j'avais remis perl5.6.0 sur /usr/bin/perl
Si je remet le dernier ca remmerde, une idée :??: |
| M300A | [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 :D Ca marche la mdr |
| M300A | 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 :heink: |
| M300A | bah j'ai debmirror qui roule maitenant c'est encore mieux :) |
| Taz | 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 |
| M300A |
|
| Taz | pourquoi tu fais pas comme tout le monde : tu prends le script anonftprsync et ouala |
| M300A | [ 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 ########################################################## :) |
| M300A | [root /root]# perl -v
This is perl, v5.8.6 built for i686-linux Copyright 1987-2004, Larry Wall |
| M300A |
|
| M300A | 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 :??: |
| M300A | 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 |
| M300A | 5.6 ;) |
| ory | fait voir perl -v |
| M300A | Comment je peux mettre à jour perl, perl en lui même pas les modules :D |
| M300A | 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]# :sol: |
| ory | sachant que tu as la 5.6.0 et que la version 5.8.6 est sortie, c'est normal :D |
| M300A | Ca me fait flippé ton CPAN, il est entrain de tout remettre a jour mon perl :D
Croisons les doigts :D |
| M300A |
|
| M300A | 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 :eek: |
| Taz |
|
| ory | http://www.cpan.org/misc/cpan-faq.html#What_is_CPAN
|
| M300A |
|
| ory | il te manque le module File::Temp, à installer soit avec le système de paquetages, soit avec cpan |
| M300A | 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 ! |
| M300A | :hello:
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 :heink: Bref parfois, il arrive qu'un paquet se loupe :
|
