diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 00:08:34 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 00:08:34 +0000 |
| commit | 3274c8723d495a7974cb360720abc88ba5a78a67 (patch) | |
| tree | 19d1c960f478857633705f21fb39cc1d06f32a2c /perl-install/services.pm | |
| parent | 26977564bb8eb4076b93e4cd25e95b44a67076ab (diff) | |
| download | drakx-backup-do-not-use-3274c8723d495a7974cb360720abc88ba5a78a67.tar drakx-backup-do-not-use-3274c8723d495a7974cb360720abc88ba5a78a67.tar.gz drakx-backup-do-not-use-3274c8723d495a7974cb360720abc88ba5a78a67.tar.bz2 drakx-backup-do-not-use-3274c8723d495a7974cb360720abc88ba5a78a67.tar.xz drakx-backup-do-not-use-3274c8723d495a7974cb360720abc88ba5a78a67.zip | |
make new perl_checker happy (and that's not easy!)
Diffstat (limited to 'perl-install/services.pm')
| -rw-r--r-- | perl-install/services.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm index bec714e70..7174048a9 100644 --- a/perl-install/services.pm +++ b/perl-install/services.pm @@ -119,20 +119,20 @@ sub ask_install_simple { sub ask_install { my ($in, $prefix) = @_; my %root_services = ( - _("Printing") => [ qw(cups cupslpd lpr lpd oki4daemon hpoj cups-lpd ) ], + _("Printing") => [ qw(cups cupslpd lpr lpd oki4daemon hpoj cups-lpd) ], _("Internet") => [ qw(httpd boa tux roxen ftp pftp tftp proftpd wu-ftpd pure-ftpdipsec proftpd-xinetd ipchains iptables ipvsadm isdn4linux ibod jabber jabber-icq adsl squid - portsentry prelude nessusd junkbuster radvd cddbp ippl iptoip jail.init ) ], + portsentry prelude nessusd junkbuster radvd cddbp ippl iptoip jail.init) ], _("File sharing") => [ qw(nfs nfslock smb nettalk netfs mcserv autofs amd - venus.init auth2.init codasrv.init update.init swat ) ], + venus.init auth2.init codasrv.init update.init swat) ], _("System") => [ qw(usb usbd pcmcia irda xinetd inetd kudzu harddrake apmd sound network xfs alsa functions halt kheader killall mandrake_everytime mandrake_firstime random rawdevices single keytable syslog crond medusa-init portmap acon anacron atd gpm psacct wine acpid numlock jserver sensors mosix bpowerd bpowerfail fcron powertweak.init ups syslog-ng cvs apcupsd) ], _("Remote Administration") => [ qw(sshd telnetd telnet rsh rlogin rexec webmin cfd heartbeat ldirectord - iplog mon vncserver netsaint olympusd drakxtools_http ) ], -# _("Network Client") => [ qw(ypbind nscd arpwatch fetchmail dnrd_rc diald rsync ) ], + iplog mon vncserver netsaint olympusd drakxtools_http) ], +# _("Network Client") => [ qw(ypbind nscd arpwatch fetchmail dnrd_rc diald rsync) ], # _("Network Server") => [ qw(named bootparamd ntpd xntpd chronyd postfix sendmail # imap imaps ipop2 ipop3 pop3s routed yppasswdd ypserv ldap dhcpd dhcrelay # hylafax innd identd rstatd rusersd rwalld rwhod gated @@ -226,7 +226,7 @@ sub ask_standalone_gtk { "@$on_services" =~ /$service/ or push(@$on_services,$service) } else { @$on_services = grep(!/$service/, @$on_services) - }}), "@$on_services" =~ /$service/ )), + }}), "@$on_services" =~ /$service/)), map { my $a = $_; gtkpack__(new Gtk::HBox(0,0), gtksignal_connect(new Gtk::Button(_($a)), clicked => sub { my $c = "service $service " . (lc($a) eq "start" ? "restart" : lc($a)) . " 2>&1"; local $_=`$c`; s/\033\[[^mG]*[mG]//g; @@ -240,10 +240,10 @@ sub ask_standalone_gtk { 0, gtkpack(gtkset_border_width(new Gtk::HBox(0,0),5), $W->create_okcancel) )) ); - $b->signal_connect( motion_notify_event => sub { my ($w, $e) = @_; + $b->signal_connect(motion_notify_event => sub { my ($w, $e) = @_; my ($ox, $oy) = $w->window->get_deskrelative_origin; - $x = $e->{'x'}+$ox; $y = $e->{'y'}+$oy; }); - $b->signal_connect( button_press_event => sub { $nopop->()}); + $x = $e->{'x'}+$ox; $y = $e->{'y'}+$oy }); + $b->signal_connect(button_press_event => sub { $nopop->() }); $::isEmbedded and Gtk->main_iteration while Gtk->events_pending; $::isEmbedded and kill (12, $::CCPID); $W->main or return; |