summaryrefslogtreecommitdiffstats
path: root/pod/urpmi.files.5.pod
blob: 502c2703f6f6acf7d87f7064aef3f465418297a7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
=head1 NAME

urpmi.files - files used by the urpmi tools

=head1 DESCRIPTION

The urpmi tools (urpmi, urpme, urpmi.addmedia, urpmi.update, etc.) use
several different files to store the state of the RPM repositories (or
media). This manual page documents them.

=head1 FILES

=over

=item I<< /var/lib/urpmi/list.<media_name> >>

Contains the list of all packages known by urpmi and their location. This
file is used when a password is used to access a distant location (using
a network protocol) or when various directories are used to store the
packages. That's why it's not world-readable.

=item I<< /var/lib/urpmi/hdlist.<media_name>.cz >>

Contains information about all known packages; it's a summary of rpm
headers. If an hdlist file is used for a medium, C<urpmf> can operate
completely without accessing this medium (this is almost always the case).

=item I<< /var/lib/urpmi/synthesis.hdlist.<media_name>.cz >>

Contains synthesis information about all known packages built from hdlist
files that can be used by minimal closure algorithm. If these files are
not present, hdlist files will be used instead to resolve dependencies
(but this is much slower).

=item I<< /var/lib/urpmi/names.<media_name> >>

Contains the list of package names per media. This is generated by urpmi for external programs
(namely bash-completion)

=item I</etc/urpmi/urpmi.cfg>

Contains media descriptions. See urpmi.cfg(5).

=item I</etc/urpmi/proxy.cfg>

Contains proxy descriptions for http and ftp media. See proxy.cfg(5).

=item I</etc/urpmi/parallel.cfg>

Contains the descriptions of parallel aliases, one per line. Their general
format is B<< <alias>:<interface[(media)]>:<interface_parameter> >> where
B<< <alias> >> is a symbolic name to identify the parallel alias, B<<
<interface> >> is one of the parallel install methods (can be B<ka-run> or
B<ssh>), B<< <media> >> is a media list (as given to the B<--media>
parameter), and finally B<< <interface_parameter> >> is a specific interface
parameter list like C<-c ssh -m node1 -m node2> for B<ka-run> extension or
C<node1:node2> (list of node hostnames) for B<ssh> extension.

=item I</etc/urpmi/skip.list>

The list of packages that should not be automatically
updated when using --auto-select. It contains one package expression per line;
either a package name, or a regular expression (if enclosed in slashes
B</>) to match the name of packages against. (Actually, it's matched against
the full name of the package, which has the form B<name-version-release.arch>.)

=item I</etc/urpmi/inst.list>

The list of packages that should be installed instead of updated. It has
the same format as the skip.list.

=item I</etc/urpmi/prefer.list>

The list of packages that should be preferred (useful for choices with
B<--auto>). It contains one package expression per line; either a package
name, or a regular expression (if enclosed in slashes B</>) to match the name
of packages against.

=item I</etc/urpmi/prefer.vendor.list>

Vendor specific version of similar to prefer.list.

=item I</etc/urpmi/mirror.config>

This file is optional. If present, it should contain a single line:
B<url=http://....> which is the URL of a document that lists the available
mirrors. The default is to use
F<http://www.mandrivalinux.com/mirrorsfull.list>.

=item I</etc/urpmi/netrc>

This file is handled by urpmi: when adding a media from an URL containing a
password, urpmi will remove the password from the URL written into urpmi.cfg
and write it in this file.

=back

=head1 SEE ALSO

urpmi.cfg(5), proxy.cfg(5).
ref='#n235'>235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541
# vim: set et ts=4 sw=4:

package AdminPanel::Module::Services;

#============================================================= -*-perl-*-

=head1 NAME

AdminPanel::Module::Services - This module aims to manage service 
                               with GUI

=head1 SYNOPSIS

    my $serviceMan = AdminPanel::Module::Services->new();
    $serviceMan->start();

=head1 DESCRIPTION

    This module presents all the system service status and gives
    the availability to administrator to stop, start and active at boot 
    them.
    
    From the original code drakx services.

=head1 SUPPORT

    You can find documentation for this module with the perldoc command:

    perldoc AdminPanel::Module::Services

=head1 SEE ALSO
   
   AdminPanel::Module

=head1 AUTHOR

Angelo Naselli <anaselli@linux.it>

=head1 COPYRIGHT and LICENSE

Copyright (C) 2014, Angelo Naselli.

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License version 2, as
published by the Free Software Foundation.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

=cut


use Moose;
use strict;

# TODO same translation atm
use lib qw(/usr/lib/libDrakX);
use MDK::Common::String qw(formatAlaTeX);

use yui;
use AdminPanel::Shared qw(member);
use AdminPanel::Shared::GUI;
use AdminPanel::Shared::Locales;
use AdminPanel::Shared::Services qw(
                                    description
                                    services
                                    xinetd_services
                                    is_service_running
                                    restart_or_start
                                    stopService
                                    set_service
                                    );

use File::Basename;

extends qw( AdminPanel::Module );

has '+icon' => (
    default => "/usr/share/mcc/themes/default/service-mdk.png",
);

has '_services' => (
    traits  => ['Array'],
    is      => 'rw',
    isa     => 'ArrayRef[Str]',
    default => sub { [] },
    init_arg  => undef,
    handles => {
        all_services    => 'elements',
        add_service     => 'push',
        map_service     => 'map',
        service_count   => 'count',
        sorted_services => 'sort',
    },
);

has '_xinetd_services' => (
    traits  => ['Array'],
    is      => 'rw',
    isa     => 'ArrayRef[Str]',
    default => sub { [] },
    init_arg  => undef,
    handles => {
        all_xinetd_services    => 'elements',
        add_xinetd_service     => 'push',
        map_xinetd_service     => 'map',
        xinetd_service_count   => 'count',
        sorted_xinetd_services => 'sort',
    },
);

has 'on_services' => (
    traits  => ['Array'],
    is      => 'rw',
    isa     => 'ArrayRef[Str]',
    default => sub { [] },
    init_arg  => undef,
    handles => {
        all_on_services    => 'elements',
        add_on_service     => 'push',
        map_on_service     => 'map',
        on_service_count   => 'count',
        sorted_on_services => 'sort',
    },
);


has 'running_services' => (
    traits  => ['Array'],
    is      => 'rw',
    isa     => 'ArrayRef[Str]',
    default => sub { [] },
    init_arg  => undef,
    handles => {
        all_running_services    => 'elements',
        add_running_service     => 'push',
        map_running_service     => 'map',
        running_service_count   => 'count',
        sorted_running_services => 'sort',
    },
);

has 'sh_gui' => (
        is => 'rw',
        init_arg => undef,
        builder => '_SharedUGUIInitialize'
);

sub _SharedUGUIInitialize {
    my $self = shift();

    $self->sh_gui(AdminPanel::Shared::GUI->new() );
}

has 'loc' => (
        is => 'rw',
        init_arg => undef,
        builder => '_localeInitialize'
);

sub _localeInitialize {
    my $self = shift();

    # TODO fix domain binding for translation
    $self->loc(AdminPanel::Shared::Locales->new(domain_name => 'libDrakX-standalone') );
    # TODO if we want to give the opportunity to test locally add dir_name => 'path'
}

=head1 VERSION

Version 1.0.0

=cut

our $VERSION = '1.0.0';

=head1 METHODS

=cut

#=============================================================

=head2 BUILD

=head3 INPUT

    $self: this object

=head3 DESCRIPTION

    The BUILD method is called after a Moose object is created,
    in this methods Services loads all the service information.

=cut

#=============================================================
sub BUILD {
    my $self = shift;
 
    if (! $self->name) {
        $self->name ($self->loc->N("adminService"));
    }
    
    $self->loadServices();
}


#=============================================================

=head2 start

=head3 INPUT

    $self: this object

=head3 DESCRIPTION

    This method extends Module::start and is invoked to
    start  adminService

=cut

#=============================================================
sub start {
    my $self = shift;

    $self->_servicePanel();
};


#=============================================================

=head2 loadServices

=head3 INPUT

    $self: this object

=head3 DESCRIPTION

   This methonds load service info into local attributes such
   as xinetd_services, on_services and all the available, 
   services

=cut

#=============================================================
sub loadServices {
    my $self = shift;

    my ($l, $on_services) = AdminPanel::Shared::Services::services();
    my @xinetd_services = map { $_->[0] } AdminPanel::Shared::Services::xinetd_services();

    $self->_xinetd_services();
    $self->_xinetd_services(\@xinetd_services);
    $self->_services(\@$l);
    $self->on_services(\@$on_services);

    $self->_refreshRunningServices();
}

sub _refreshRunningServices {
    my $self = shift;

    my @running;
    foreach ($self->all_services) {

        my $serviceName = $_;
        push @running, $serviceName if AdminPanel::Shared::Services::is_service_running($serviceName);
    }
    $self->running_services(\@running);
}

## _serviceInfo sets service description accordingly to 
##              selected service status 
## param
##   'service'     service name 
##   'infoPanel'   service information widget 
sub _serviceInfo {
    my ($self, $service, $infoPanel) = @_;

    yui::YUI::ui()->blockEvents();
    ## infoPanel
    $infoPanel->setValue(MDK::Common::String::formatAlaTeX(AdminPanel::Shared::Services::description($service)));
    yui::YUI::ui()->unblockEvents();
}


sub _serviceStatusString {
    my ($self, $serviceName) = @_;
    
    my $started;

    if (AdminPanel::Shared::member($serviceName, $self->all_xinetd_services)) {
        $started = $self->loc->N("Start when requested");
    }
    else {
        $started = (AdminPanel::Shared::Services::is_service_running($serviceName)? $self->loc->N("running") : $self->loc->N("stopped"));
    }
    
    return $started;
}

## _serviceStatus sets status label accordingly to selected item 
## param
##   'service'  yui CB table (service table)
##   'item'     selected item (service) 
sub _serviceStatus {
    my ($self, $tbl, $item) = @_;

    my $started = $self->_serviceStatusString($item->label());

    # TODO add icon green/red led  
    my $cell   = $tbl->toCBYTableItem($item)->cell(1);
    if ($cell) {
        $cell->setLabel($started);
        $tbl->cellChanged($cell);
    }
}


## fill service table with service info
## param
##  'tbl' yui table
sub _fillServiceTable {
    my ($self, $tbl) = @_;

    $tbl->deleteAllItems();
    my $itemCollection = new yui::YItemCollection;
    foreach ($self->all_services) {
        
        my $serviceName = $_;
        
        my $item = new yui::YCBTableItem($serviceName);
        my $started = $self->_serviceStatusString($serviceName);
        
        # TODO add icon green/red led  
        my $cell   = new yui::YTableCell($started);
        $item->addCell($cell);
        
        $item->check(AdminPanel::Shared::member($serviceName, $self->all_on_services));
        $item->setLabel($serviceName);
        $itemCollection->push($item);
        $item->DISOWN();
    }
    $tbl->addItems($itemCollection);
}

## draw service panel and manage it (main dialog)
sub _servicePanel {
    my $self = shift;

    my $appTitle = yui::YUI::app()->applicationTitle();

    ## set new title to get it in dialog
    yui::YUI::app()->setApplicationTitle($self->name);
    ## set icon if not already set by external launcher
    yui::YUI::app()->setApplicationIcon($self->icon);

    my $mageiaPlugin = "mga";
    my $factory      = yui::YUI::widgetFactory;
    my $mgaFactory   = yui::YExternalWidgets::externalWidgetFactory($mageiaPlugin);
    $mgaFactory      = yui::YMGAWidgetFactory::getYMGAWidgetFactory($mgaFactory);
    
    my $dialog  = $factory->createMainDialog;
    my $vbox    = $factory->createVBox( $dialog );
    my $frame   = $factory->createFrame ($vbox, $self->loc->N("Services"));

    my $frmVbox = $factory->createVBox( $frame );
    my $hbox = $factory->createHBox( $frmVbox );

    my $yTableHeader = new yui::YTableHeader();
    $yTableHeader->addColumn($self->loc->N("Service"), $yui::YAlignBegin);
    $yTableHeader->addColumn($self->loc->N("Status"),  $yui::YAlignCenter);
    $yTableHeader->addColumn($self->loc->N("On boot"), $yui::YAlignBegin);

    ## service list (serviceBox)
    my $serviceTbl = $mgaFactory->createCBTable($hbox, $yTableHeader, $yui::YCBTableCheckBoxOnLastColumn);
   
    $self->_fillServiceTable($serviceTbl);
    
    $serviceTbl->setImmediateMode(1);
    $serviceTbl->setWeight(0, 50);

    ## info panel (infoPanel)
    $frame   = $factory->createFrame ($hbox, $self->loc->N("Information"));
    $frame->setWeight(0, 30);
    $frmVbox = $factory->createVBox( $frame );
    my $infoPanel = $factory->createRichText($frmVbox, "--------------"); #, 0, 0);
    $infoPanel->setAutoScrollDown();

    ### Service Start button ($startButton)