summaryrefslogtreecommitdiffstats
path: root/perl-install/pixmaps
Commit message (Expand)AuthorAgeFilesLines
* UpdateDavid Baudens2002-09-0520-0/+0
* re-adding with -kbdamien2002-09-035-0/+475
* removing for re-adding with -kbdamien2002-09-031-68/+0
* removing for re-adding with -kbdamien2002-09-031-77/+0
* removing for re-adding with -kbdamien2002-09-031-70/+0
* removing for re-adding with -kbdamien2002-09-031-167/+0
* removing for re-adding with -kbdamien2002-09-031-93/+0
* icons for ok/cancel/back/previou/next iconsdamien2002-09-035-0/+475
* re-adding with -kbPascal Rigaux2002-08-291-0/+0
* removing for re-adding with -kbPascal Rigaux2002-08-291-0/+0
* Renamed icon of Printerdrake so that it does not get overwritten byTill Kamppeter2002-08-281-0/+0
* re-adding with -kbPascal Rigaux2002-08-225-0/+0
* removing for re-adding with -kbPascal Rigaux2002-08-221-0/+0
* removing for re-adding with -kbPascal Rigaux2002-08-221-0/+0
* removing for re-adding with -kbPascal Rigaux2002-08-221-0/+0
* removing for re-adding with -kbPascal Rigaux2002-08-221-0/+0
* removing for re-adding with -kbPascal Rigaux2002-08-221-0/+0
* New imagesDavid Baudens2002-08-2210-0/+0
* add pixmap for drakbootJonathan Gotti2002-08-011-0/+0
* removed gfx not used during installdamien2002-02-212-0/+0
* drakbackup designer icons.Sebastien Dupont2001-12-222-0/+0
* backup pixmapsSebastien Dupont2001-12-111-0/+0
* drakbackup pixmaps.Sebastien Dupont2001-11-281-0/+0
* pixmap correcteddamien2001-09-111-1/+1
* new arrowsdamien2001-09-112-0/+28
* new pixmapsdamien2001-09-053-1403/+372
* new pixmapsdamien2001-09-0510-0/+0
* new iconsdamien2001-08-2814-0/+0
* mini pixmaps, and lower color res for normal pixdamien2001-08-244-1148/+1192
* added new mouse pixmap for mousedrakedamien2001-08-243-0/+2555
* re-adding with -kbPascal Rigaux2001-08-071-0/+0
* removing for re-adding with -kbPascal Rigaux2001-08-071-0/+0
* addeddamien2001-08-071-0/+0
* re-adding with -kbPascal Rigaux2001-07-034-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* re-adding with -kbPascal Rigaux2001-07-038-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* re-adding with -kbPascal Rigaux2001-07-031-0/+0
* removing for re-adding with -kbPascal Rigaux2001-07-031-0/+0
* added icondamien2001-05-161-0/+0
generated by cgit v1.2.1 (git 2.21.0) at 2025-01-18 01:18:05 +0000
lass="hl kwb">$s ne $s2; } $s; } sub translate { my $s = translate_real(@_); $::need_utf8_i18n and c::set_tagged_utf8($s); #- translation with context, kde-like $s =~ s/^_:.*\n//; $s; } sub untranslate { my $s = shift || return; foreach (@_) { translate($_) eq $s and return $_ } die "untranslate failed"; } BEGIN { undef *availableRamMB } sub availableRamMB() { my $s = MDK::Common::System::availableRamMB(); #- HACK HACK: if i810 and memsize require detect_devices; return $s - 1 if $s == 128 && detect_devices::matching_driver__regexp('^Card:Intel 810$'); $s; } sub setVirtual { my ($vt_number) = @_; my $vt = ''; sysopen(my $C, "/dev/console", 2) or die "failed to open /dev/console: $!"; ioctl($C, c::VT_GETSTATE(), $vt) && ioctl($C, c::VT_ACTIVATE(), $vt_number) && ioctl($C, c::VT_WAITACTIVE(), $vt_number) or die "setVirtual failed"; unpack "S", $vt; } sub nonblock { my ($F) = @_; fcntl($F, c::F_SETFL(), fcntl($F, c::F_GETFL(), 0) | c::O_NONBLOCK()); } 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, $o_newbase) = @_; my $newbase = $o_newbase || 1; my ($nb, $base); my $decr = sub { ($nb, $base) = ($newnb, $newbase); $base >= 1024 ? ($newbase = $base / 1024) : ($newnb = $nb / 1024); }; foreach ('', N("KB"), N("MB"), N("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) . N("TB"); } sub formatTime { my ($s, $m, $h) = gmtime($_[0]); if ($h) { sprintf "%02d:%02d", $h, $m; } elsif ($m > 1) { N("%d minutes", $m); } elsif ($m == 1) { N("1 minute"); } else { N("%d seconds", $s); } } sub usingRamdisk() { any { /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 } BEGIN { undef *formatError }; sub formatError { my ($err) = @_; ref($err) eq 'SCALAR' and $err = $$err; log::l("error: $err"); &MDK::Common::String::formatError($err); } # Group the list by n. Returns a reference of lists of length n sub group_n_lm { my $n = shift; my @l; push @l, [ splice(@_, 0, $n) ] while @_; @l } sub screenshot_dir__and_move() { my ($dir1, $dir2) = ("$::prefix/root", '/tmp/stage2'); if (-e $dir1) { if (-e "$dir2/DrakX-screenshots") { cp_af("$dir2/DrakX-screenshots", $dir1); rm_rf("$dir2/DrakX-screenshots"); } $dir1; } else { $dir2; } } sub take_screenshot() { my $dir = screenshot_dir__and_move() . '/DrakX-screenshots'; my $warn; if (!-e $dir) { mkdir $dir or $::o->ask_warn('', N("Can't make screenshots before partitioning")), return; $warn = 1; } my $nb = 1; $nb++ while -e "$dir/$nb.png"; system("fb2png /dev/fb0 $dir/$nb.png 0"); $::o->ask_warn('', N("Screenshots will be available after install in %s", "/root/DrakX-screenshots")) if $warn; } sub join_lines { my @l; my $s; foreach (@_) { if (/^\s/) { $s .= $_; } else { push @l, $s if $s; $s = $_; } } @l, if_($s, $s); } sub set_alternative { my ($command, $executable) = @_; #- check the existance of $executable as an alternative for $command #- (is this needed???) run_program::rooted_get_stdout($::prefix, 'update-alternatives', '--display', $command) =~ /^\Q$executable /m or return; #- this doesn't handle relative symlink, but neither does update-alternatives ;p symlinkf $executable, "$::prefix/etc/alternatives/$command"; } sub files_exist { and_(map { -f "$::prefix$_" } @_) } sub secured_file { my ($f) = @_; c::is_secure_file($f) or die "can't ensure a safe $f"; $f; } sub set_permissions { my ($file, $perms, $o_owner, $o_group) = @_; # We only need to set the permissions during installation to be able to # print test pages. After installation the devfsd daemon does the business # automatically. return 1 unless $::isInstall; if ($o_owner && $o_group) { run_program::rooted($::prefix, "/bin/chown", "$o_owner.$o_group", $file) or die "Could not start chown!"; } elsif ($o_owner) { run_program::rooted($::prefix, "/bin/chown", $o_owner, $file) or die "Could not start chown!"; } elsif ($o_group) { run_program::rooted($::prefix, "/bin/chgrp", $o_group, $file) or die "Could not start chgrp!"; } run_program::rooted($::prefix, "/bin/chmod", $perms, $file) or die "Could not start chmod!"; } sub mandrake_release() { chomp_(cat_("/etc/mandrakelinux-release")) } sub require_root_capability() { return if $::testing || !$>; # we're already root if (check_for_xserver()) { if (fuzzy_pidofs(qr/\bkwin\b/) > 0) { exec("kdesu", "--ignorebutton", "-c", "$0 @ARGV") or die N("kdesu missing"); } } exec { 'consolehelper' } $0, @ARGV or die N("consolehelper missing"); # still not root ? die "you must be root to run this program" if $>; } sub check_for_xserver() { if (!defined $::xtest) { $::xtest = 0; eval { require xf86misc::main; $::xtest = xf86misc::main::Xtest($ENV{DISPLAY}); } if $ENV{DISPLAY}; } return $::xtest; } #- special unpack #- - returning an array refs for each element like "s10" #- - handling things like s10* at the end of the format sub unpack_with_refs { my ($format, $s) = @_; my $initial_format = $format; my @r; while ($format =~ s/\s*(\w(\d*))(\*?)\s*//) { my ($sub_format, $nb, $many) = ($1, $2, $3); $many && $format and internal_error("bad * in the middle of format in $initial_format"); my $done = $many && !length($s); while (!$done) { my @l = unpack("$sub_format a*", $s); $s = pop @l; push @r, $nb ? \@l : @l; $done = !$many || !length($s); } } @r; } 1;
generated by cgit v1.2.1 (git 2.21.0) at 2025-01-18 01:18:04 +0000