summaryrefslogtreecommitdiffstats
path: root/perl-install/services.pm
Commit message (Expand)AuthorAgeFilesLines
...
* move service apcupsd from Printing to SystemPascal Rigaux2002-01-171-2/+2
* Corrected English errorsPablo Saratxaga2001-11-191-1/+1
* tagged as translatable some left out strignsPablo Saratxaga2001-10-231-2/+2
* use new mkdir_p, rm_rf and cp_af from MDK::CommonPascal Rigaux2001-09-161-1/+0
* updated repartition of services into category, network category are commented soFrancois Pons2001-09-131-5/+19
* added cupslpd in printing sectiondamien2001-08-281-1/+1
* cleanup (it was working, but wasn't nice)Pascal Rigaux2001-08-141-1/+1
* instead of testing if ref($in) or ref($o) contains /gtk/, test if interactive...Pascal Rigaux2001-08-021-1/+1
* allow cancel on services which do not change anything.Francois Pons2001-07-271-1/+1
* move to MDK::Common, bool->to_boolPascal Rigaux2001-07-241-1/+1
* removed/renamed unused/seldom-used functionsPascal Rigaux2001-07-241-1/+11
* rename ask_install_gtk in ask_install, ask_install is nowPascal Rigaux2001-07-191-5/+4
* reworked to use new service layout for install.Francois Pons2001-07-121-15/+78
* changed Resolution to Servicedamien2001-06-251-1/+1
* have many more services tooltipped from here so we can get translations after...Guillaume Cottenceau2001-04-111-2/+20
* removed use Data::Dumperdamien2001-03-121-1/+0
* corrected bug in displaydamien2001-03-121-1/+1
* no more restart buttondamien2001-03-111-3/+3
* fixed big bug.damien2001-03-101-9/+15
* imajor improvement.damien2001-03-101-17/+37
* improved.damien2001-03-101-2/+43
* no_commentPascal Rigaux2000-09-231-1/+1
* no_commentPascal Rigaux2000-09-221-14/+21
* no_commentPascal Rigaux2000-09-141-1/+1
* no_commentPascal Rigaux2000-08-011-22/+36
* no_commentPascal Rigaux2000-05-031-3/+5
* no_commentPascal Rigaux2000-03-051-1/+1
* no_commentPascal Rigaux2000-02-291-1/+1
* Small english fixesPablo Saratxaga2000-02-221-3/+3
* Corrected a small english typoPablo Saratxaga2000-02-221-1/+1
* no_commentPascal Rigaux2000-02-221-3/+2
* no_commentPascal Rigaux2000-02-211-0/+107
pan> /i810/ } detect_devices::probeall(); $s; } sub setVirtual { my $vt = ''; local *C; sysopen C, "/dev/console", 2 or die "failed to open /dev/console: $!"; ioctl(C, c::VT_GETSTATE(), $vt) or die "ioctl VT_GETSTATE failed"; ioctl(C, c::VT_ACTIVATE(), $_[0]) or die "ioctl VT_ACTIVATE failed"; ioctl(C, c::VT_WAITACTIVE(), $_[0]) or die "ioctl VT_WAITACTIVE failed"; unpack "S", $vt; } sub removeXiBSuffix { local $_ = shift; /(\d+)\s*kB?$/i and return $1 * 1024; /(\d+)\s*MB?$/i and return $1 * 1024 * 1024; /(\d+)\s*GB?$/i and return $1 * 1024 * 1024 * 1024; /(\d+)\s*TB?$/i and return $1 * 1024 * 1024 * 1024 * 1024; $_; } sub formatXiB { my ($newnb, $newbase) = (@_, 1); my ($nb, $base); my $decr = sub { ($nb, $base) = ($newnb, $newbase); $base >= 1024 ? ($newbase = $base / 1024) : ($newnb = $nb / 1024); }; foreach ('', _("KB"), _("MB"), _("GB")) { $decr->(); if ($newnb < 1 && $newnb * $newbase < 1) { my $v = $nb * $base; my $s = $v < 10 && int(10 * $v - 10 * int($v)); return int($v) . ($s ? ".$s" : '') . $_; } } int($newnb * $newbase) . _("TB"); } sub formatTime { my ($s, $m, $h) = gmtime($_[0]); if ($h) { sprintf "%02d:%02d", $h, $m; } elsif ($m > 1) { _("%d minutes", $m); } elsif ($m == 1) { _("1 minute"); } else { _("%d seconds", $s); } } sub usingRamdisk { scalar(grep { /ram3/ } cat_("/proc/mounts")) } sub expand_symlinks_but_simple { my ($f) = @_; my $link = readlink($f); my $f2 = expand_symlinks($f); if ($link && $link !~ m|/|) { # put back the last simple symlink $f2 =~ s|\Q$link\E$|basename($f)|e; } $f2 } sub sync { &MDK::Common::System::sync } #-###################################################################################### #- Wonderful perl :( #-###################################################################################### 1; #