The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

Скрипт деинсталляции пакетов во FreeBSD вместе с зависимостями.
#!/usr/bin/perl
#
# Interactive script for deinstalling 'leaf' FreeBSD packages.
#
# Copyright (c) 2007 Artem A. Kolpakov <artem.kolpakov at gmail.com>
#
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
# ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.

$dbdir="/var/db/pkg";

die "Usage: pkg_deinstall.pl \'package_name\' or \'$dbdir/package_name\'.\n" if(!defined($ARGV[0]));
$pkg=$ARGV[0];
    
if(map /$dbdir/, $pkg) {
    $pkg=~/$dbdir\/(\S+[^\/])/; $pkg=$1;
}
die "$pkg is not installed!\n" if((!map /\S+\d/, $pkg)||(!-e "$dbdir/$pkg"));
 
if(-w $dbdir) { $rw=1; } else { $rw=0; }
if(-s "$dbdir/$pkg/+REQUIRED_BY") {
    open(REQ, "$dbdir/$pkg/+REQUIRED_BY");
    while(<REQ>) { print "Found required dependence: $_"; $req_sum++; }
    close(REQ);
}
die "Required dependencies: $req_sum.  Remove is impossible.\n" if($req_sum);

open(DEP, "$dbdir/$pkg/+CONTENTS");
while(<DEP>) {
    if(/\@pkgdep\s(\S+)\n/) {
        $pkg_depends{$1}=1; print "Dependence: $1\n";
    }
}
close(DEP);

die "You have not privilegies to complete operation.\n" if(!$rw);

$dep_sum=(keys %pkg_depends);
if($dep_sum) {
    print "Total dependencies: $dep_sum. Removing package.\n";
}
else {
    system "pkg_delete $pkg";
    die "The package has been removed.\n";
}
system "pkg_delete $pkg";
print "Done, processing...\n";
while(scalar(keys %pkg_depends)) {
    $level++;
    if($level > 1) {
        for $pkg_depends (keys %pkg_depends) {
            if($pkg_depends{$pkg_depends} == $level-1) {
                if(-e "$dbdir/$pkg_depends/+CONTENTS") {
                    open(DEP, "$dbdir/$pkg_depends/+CONTENTS");
                    while(<DEP>) {
                        if(/\@pkgdep\s(\S+)\n/) {
                            $pkg_depends{$1}=$level;
                        }
                    }
                    close(DEP);
                    open(COMMENT, "$dbdir/$pkg_depends/+COMMENT");
                    chomp($comment=<COMMENT>); close(COMMENT);
                    dialog:
                    print "Are you sure want to remove \'$pkg_depends\'? \- \'$comment\' [Y/n]: ";
                    chomp($in=<STDIN>);
                    if(($in eq "y")||($in eq "Y")||($in eq '')) {
                        system "pkg_delete $pkg_depends";
                        delete $pkg_depends{$pkg_depends}; $rm_dep_sum++;
                    }
                    elsif(($in eq "n")||($in eq "N")) {
                        delete $pkg_depends{$pkg_depends};
                    }
                    else { goto dialog; }
                }
                else {
                    delete $pkg_depends{$pkg_depends};
                }
            }
        }
    }
    for $pkg_depends (keys %pkg_depends) {
        if($pkg_depends{$pkg_depends} == $level) {
            if(-s "$dbdir/$pkg_depends/+REQUIRED_BY") {
                delete $pkg_depends{$pkg_depends};
            }
        }
    }
}
if($rm_dep_sum) {
    print "Removed $rm_dep_sum dependencies.\n";
}
else { print "No dependencies removed.\n"; }
 
04.07.2007 , Автор: Artem A. Kolpakov
Ключи: install, packet, freebsd, pkg / Лицензия: CC-BY
Раздел:    Корень / Администратору / Система / FreeBSD специфика / Установка и апгрейд FreeBSD и приложений.

Обсуждение [ RSS ]
  • 1.1, ws (??), 19:42, 06/07/2007 [ответить]  
  • +/
    А что pkg_delete -r name уже не в моде?
     
     
  • 2.4, Artem A. Kolpakov (?), 16:52, 10/07/2007 [^] [^^] [^^^] [ответить]  
  • +/
    >А что pkg_delete -r name уже не в моде?

    "pkg_delete -r" здесь непричем. Будте внимательны.

     
     
  • 3.10, ws (ok), 14:26, 23/07/2007 [^] [^^] [^^^] [ответить]  
  • +/
    Прошу прощения. Не сразу понял - ваш скрипт делает обратное действие...
     

  • 1.2, ws (??), 20:23, 06/07/2007 [ответить]  
  • +/
    а надо обязательно свой пятак сунуть? Не,не в моде.
     
  • 1.3, rootuas (?), 23:07, 06/07/2007 [ответить]  
  • +/
    Мда, и правда  - зачем тогда вообще пишут ports-mgmt ?
     
  • 1.5, luka (?), 13:49, 11/07/2007 [ответить]  
  • +/
    Интересный скрипт, нужно будет опробовать.

    2ws, вы уж меня простите, но не стоит комментировать то, в чем не сильно разбираетесь....

     
  • 1.6, grayich (??), 14:46, 14/07/2007 [ответить]  
  • +/
    /usr/ports/ports-mgmt/pkg_rmleaves/
     
  • 1.7, grv (?), 20:12, 14/07/2007 [ответить]  
  • +/
    А руководство по использованию скрипта будет (или я совсем ничего не понял)?

    --------------------------------------

    # Copyright (c) 2007 Artem A. Kolpakov <artem.kolpakov@gmail.com>
    #
    # All rights reserved.

    Это (выше) я прочитал...

    # THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ''AS IS'' AND
    # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
    # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
    # ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
    # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
    # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
    # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
    # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
    # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
    # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
    # SUCH DAMAGE.

    Это тоже прочитал.

    Не сочтите за глупые следующие вопросы:

    1. Под какой лицензией Вы распространяете данный скрипт? Или это лишнее при упоминании копирайта?

    2. Является ли скрипт SOFTWARE? Уместно ли это определение когда речь идёт о нескомпилированном наборе инструкций?

    Буду рад дискуссии.

     
     
  • 2.9, savant (?), 20:58, 15/07/2007 [^] [^^] [^^^] [ответить]  
  • +/
    AFAIK это BSD-like
     

  • 1.8, vantoo (?), 17:36, 15/07/2007 [ответить]  
  • +/
    Здесь люди не дискуссируют, а работают, все дискусси на ЛОР
     

     Добавить комментарий
    Имя:
    E-Mail:
    Заголовок:
    Текст:




    Партнёры:
    PostgresPro
    Inferno Solutions
    Hosting by Hoster.ru
    Хостинг:

    Закладки на сайте
    Проследить за страницей
    Created 1996-2024 by Maxim Chirkov
    Добавить, Поддержать, Вебмастеру