goshanecr писал(а):Я не ставлю mod_perl. Такая хренотень вылезла при очередном portsnap fetch update && portupgrade -arRn . mod_perl установлен видимо как зависимость чего-то установленного. В других портах ничего подобного нет. Ну в смысле ошибки не лезут при работе с ними.
ну и что, что происходит?
обновлять надо по одному порту каждый, порт может бытый и нихрена не обновит portupgrade -arRn
вот попробуй это:
Код: Выделить всё
#!/usr/bin/perl
$nn = 0;
while (1) {
$nn++;
open( OPERN, "portversion |" );
@all = <OPERN>;
if ( $nn > 6 ) {
print "while 6 exit";
exit;
}
foreach (@all) {
my ( $pp, $st ) = split( / /, $_, 2 );
if ( $st =~ '<' ) {
print "UPDATE: $pp\n";
system("portupgrade -f $pp");
} else {
print "ok UPDATE";
exit;
}
}
}
а если много чего не обновленно, то этот:
(но конечно чтобы не очень критично было)
Код: Выделить всё
#!/usr/bin/perl
$nn = 0;
while (1) {
$nn++;
open( OPERN, "portversion |" );
my @all2 = <OPERN>;
close OPERN;
my @all;
for ( $i = 0 ; $i < @all2 ; $i++ ) {
my ( $pp, $st ) = split( / /, $all2[$i], 2 );
if ( $st =~ '<' ) {
push @all, $pp; # $all[$i] = $pp;
}
}
exit if ( !$all[0] || $nn > 2 );
while (1) {
last if !$all[0];
print "$all[0]\n";
logsave( get_time(), $all[0] );
system("portupgrade -rf $all[0]");
# system("portupgrade -Rf $all[0]");
# первый порт попробовать обновить вдоль и поперек
# (выше system нужно закомментировать)
# if ($nn == 1) {
# system("portupgrade -rRf $all[0]");
# } else {
# system("portupgrade -rf $all[0]");
# }
# экспериментально:
# можно добавить чтобы скрипт автоматически нажимал на энтер
# use IO::Select;
# my $select = IO::Select->new;
# for(@array)
# open my $pipe, "|$_";
# $select->add($pipe);
# }
# my @waiters = $select->can_write($timeout);
# print $_ "\x0a" for @waiters;
logsave( get_time(), $all[0] );
shift @all;
my @all = old(@all);
}
}
sub old {
my @all = @_;
open( OPEN2, "portversion |" );
my @all_all = <OPEN2>;
close OPEN2;
my @old;
my @no_old;
foreach my $p (@all_all) {
my ( $pname, $status ) = split( / /, $p, 2 );
if ( $status =~ '<' ) {
push @old, $pname;
}
else {
push @no_old, $pname;
}
}
my %seen;
@seen{@all} = ();
delete @seen{@no_old};
return keys %seen;
}
sub get_time {
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
localtime(time);
$mon++;
$year += 1900;
if ( $mday < 10 ) { $mday = "0$mday"; }
if ( $mon < 10 ) { $mon = "0$mon"; }
if ( $min < 10 ) { $min = "0$min"; }
my $date = "$mday $mon $year";
my $time = "$hour:$min:$sec";
my $cur_all_day = $mday + $mon * 30 + $year * 365;
my $radate = "$year-$mon-$mday $hour:$min:$sec";
return $radate;
}
sub logsave {
my ( $time, $ports ) = @_;
my $logfile;
$logfile = "\n time: $time \n ports: $ports \n\n";
system("touch /var/log/portupgrade.log");
open( DB2, "/var/log/portupgrade.log" ) || die "Cannot open file: $!";
my @base = <DB2>;
close(DB2);
open( DB, ">/var/log/portupgrade.log" ) || die "Cannot open file : $!";
print DB @base;
print DB $logfile;
close(DB);
}
