aboutsummaryrefslogtreecommitdiffstats
path: root/langs/cs/about/values.po
blob: f87705f8bc18ea80ec0de327b574497ca35e6258 (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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214

# gettext catalog for about/values web page(s)
# Copyright (C) 2014 - 2014 Mageia
# This file is distributed under the same license as
# the content of the corresponding web page(s).
# 
# Generated by extract2gettext.php
# Domain: about/values
# 
# include translation strings from:
# en/about/values/index.php
# 
# Translators:
# Luděk Janča <joelp@email.cz>, 2019
msgid ""
msgstr ""
"Project-Id-Version: Mageia\n"
"Report-Msgid-Bugs-To: mageia-i18n@mageia.org\n"
"POT-Creation-Date: 2014-03-16 20:51:26+0000\n"
"PO-Revision-Date: 2019-03-16 13:27+0000\n"
"Last-Translator: Luděk Janča <joelp@email.cz>\n"
"Language-Team: Czech (http://www.transifex.com/MageiaLinux/mageia/language/cs/)\n"
"MIME-Version: 1.0\n"
"Content-Type: text/plain; charset=UTF-8\n"
"Content-Transfer-Encoding: 8bit\n"
"Language: cs\n"
"Plural-Forms: nplurals=4; plural=(n == 1 && n % 1 == 0) ? 0 : (n >= 2 && n <= 4 && n % 1 == 0) ? 1: (n % 1 != 0 ) ? 2 : 3;\n"

#: "/web/en/about/values/index.php +10"
msgid "Mageia Values"
msgstr "Hodnoty Mageii"

#: "/web/en/about/values/index.php +11"
msgid "Mageia project values"
msgstr "Hodnoty projektu Mageia"

#: "/web/en/about/values/index.php +12"
msgid "mageia, values"
msgstr "mageia, hodnoty"

#: "/web/en/about/values/index.php +19"
msgid "Values"
msgstr "Hodnoty"

#: "/web/en/about/values/index.php +24"
msgid "Mageia is Social Software"
msgstr "Mageia je společenský software"

#: "/web/en/about/values/index.php +27"
msgid ""
"We will, as a Community, Value Our Users. We will always be in touch with "
"our user base, for they are as much part of the community as are makers and "
"organisers."
msgstr "Jako komunita si našich uživatelů ceníme. Vždy budeme udržovat spojení s naší uživatelskou základnou, protože je součástí komunity stejně tak jako tvůrci a organizátoři."

#: "/web/en/about/values/index.php +28"
msgid ""
"We understand that our most valuable assets are people and the Community."
msgstr "Chápeme, že lidé a komunita jsou naším nejcennějším aktivem."

#: "/web/en/about/values/index.php +29"
msgid ""
"We will always be a community distribution, valuing all the community's "
"contributions."
msgstr "Vždy budeme komunitní distribucí, která si cení příspěvků."

#: "/web/en/about/values/index.php +30"
msgid ""
"We will be an inclusive distribution, making sure that everyone in the "
"community can make their voice heard."
msgstr "Budeme distribucí, která je přístupná pro všechny, která dbá na hlas každého člena komunity."

#: "/web/en/about/values/index.php +31"
msgid ""
"We esteem friendships highly and will promote social interaction between "
"people."
msgstr "Za velmi důležité považujeme přátelství a budeme podporovat přátelskou spolupráci mezi lidmi."

#: "/web/en/about/values/index.php +32"
msgid ""
"We value integrity, community, trust and will always adhere to the highest "
"ethical standards."
msgstr "Ceníme si zásadovosti, komunity a důvěry a budeme se vždy držet nejvyšších etických měřítek."

#: "/web/en/about/values/index.php +33"
msgid "We will, above all things, enjoy ourselves :-) ."
msgstr "Na každý pád se budeme hodně radovat a práci na projektu si budeme vychutnávat :-) ."

#: "/web/en/about/values/index.php +34"
msgid ""
"We will strive to maintain the goodwill of both our own and the wider Open "
"Source community."
msgstr "Budeme se snažit udržovat dobrou vůli jak v naší komunitě tak šířeji ve společenství Open Source."

#: "/web/en/about/values/index.php +35"
msgid ""
"We will help and support each other. When something isn't right, we will "
"take the appropriate steps to find a better solution and use it."
msgstr "Budeme si pomáhat a podporovat se navzájem. V případě, že něco nebude v pořádku, podnikneme nezbytné kroky, abychom našli a použili správné řešení."

#: "/web/en/about/values/index.php +38"
msgid "Mageia is Powerful Technology"
msgstr "Mageia je mocná technologie"

#: "/web/en/about/values/index.php +40"
msgid ""
"We, as Free Software and as an Operating System, will constantly innovate to"
" remain a premium computing technology choice."
msgstr "Budeme náš svobodný software a náš operační systém plynule dále rozvíjet a zůstaneme prvotřídní volbou při výběru technologie pro práci s počítačem."

#: "/web/en/about/values/index.php +41"
msgid ""
"We will stay up-to-date with the latest trends in Open Source, while "
"choosing wisely to balance between modernization and reliability in our "
"releases."
msgstr "Budeme sledovat nejnovější směry v Open Source, ale zároveň udržíme i rozumnou rovnováhu mezi modernizací a spolehlivostí."

#: "/web/en/about/values/index.php +42"
msgid ""
"We will maintain the vibrancy within our Community, always aiming to lead "
"the way in collaborative development."
msgstr "Budeme uvnitř naší komunity udržovat živost a vždy se budeme snažit směřovat ke společnému vývoji."

#: "/web/en/about/values/index.php +43"
msgid ""
"We will encourage our users to be the best they can be on their computers."
msgstr "Své uživatele budeme povzbuzovat a povedeme je k tomu, aby možnosti svých počítačů využívali tím nejlepším možným způsobem."

#: "/web/en/about/values/index.php +44"
msgid ""
"We will strive for ease of use, but also offer a holistic set of innovations"
" for novice and power users alike."
msgstr "Budeme usilovat o co nejjednodušší používání systému, současně ale nabídneme i celistvý soubor novinek určených jak pro nováčky tak pro pokročilé uživatele."

#: "/web/en/about/values/index.php +47"
msgid "Mageia is Knowledge"
msgstr "Mageia jsou znalosti"

#: "/web/en/about/values/index.php +49"
msgid ""
"Software is an integral part of our daily lives, in almost every interaction"
" at home and around the world, and at its heart is computer Code. We will "
"strive to understand it, and how it works in our daily lives."
msgstr "Programy jsou důležitou součástí našeho každodenního života, při téměř každé výměně informací doma a se světem. Jsou postaveny na kódu pro počítače. Budeme se snažit rozumět jim a používat jejich možnosti a tím zlepšit jejich vliv na náš denní život."

#: "/web/en/about/values/index.php +50"
msgid "We will empower our user base by demystifying advanced technologies."
msgstr "Budeme posilovat znalosti naší uživatelské základny, přičemž učiníme pokročilé technologie srozumitelnějšími."

#: "/web/en/about/values/index.php +51"
msgid ""
"We recognise that we are human. Failure and inadequacies do happen and "
"context changes. We will take that into account in our software and lives, "
"as well as the pursuit of happiness. We will evolve."
msgstr "Víme, že jsme lidé. Chyby a nedostatky se stávají a souvislosti se mění. Bereme to v úvahu jako součást našeho software, a rovněž v našem životě a v našem spění ke štěstí. Budeme se dále rozvíjet."

#: "/web/en/about/values/index.php +52"
msgid ""
"We believe that there is nothing as beautiful as understanding the software "
"you use in daily life. Therefore, we will openly educate people about Free "
"Software, our Community, and our Operating System."
msgstr "Věříme, že pochopení programu, který používáme v našem denním životě, je moc pěkná věc. Proto budeme lidem vysvětlovat otevřeně myšlenku svobodného software, naší komunity a náš operační systém."

#: "/web/en/about/values/index.php +55"
msgid "Mageia is Quality"
msgstr "Mageia je kvalita"

#: "/web/en/about/values/index.php +57"
msgid "Mageia will be based on good quality/stability requirements."
msgstr "Mageia bude založena na požadavcích na dobrou kvalitu a stabilitu."

#: "/web/en/about/values/index.php +58"
msgid "Mageia will be compliant with open source standards."
msgstr "Mageia se bude podřizovat standardům Open Source."

#: "/web/en/about/values/index.php +59"
msgid ""
"Mageia will always adhere to high security and privacy "
"standards/technologies to protect our users' data."
msgstr "Mageia se vždy bude držet vysokých bezpečnostních standardů/technologií hlídajících soukromí, aby byla ochráněna data našich uživatelů."

#: "/web/en/about/values/index.php +62"
msgid "Mageia is Open Relations"
msgstr "Mageia jsou otevřené vztahy"

#: "/web/en/about/values/index.php +64"
msgid "We will secure the future of the distribution through its community."
msgstr "Budoucnost distribuce zajistíme pomocí spolupráce její komunity."

#: "/web/en/about/values/index.php +65"
msgid ""
"We will cooperate with other OSS distributions and core and kernel "
"developers with code contribution."
msgstr "Budeme spolupracovat s dalšími distribucemi OSS a s vývojáři jádra a ostatními hlavními vývojáři a budeme dávat k dispozici kód našich vývojářů."

#: "/web/en/about/values/index.php +66"
msgid "We will work in collaboration with other open source projects."
msgstr "Budeme spolupracovat s jinými projekty s otevřeným zdrojovým kódem."

#: "/web/en/about/values/index.php +67"
msgid "We will welcome any Commercial Enterprise as part of our community."
msgstr "Uvítáme jako součást naší komunity i komerční podniky."

#: "/web/en/about/values/index.php +68"
msgid ""
"Mageia will always be based upon Open Source Software. However, it will also"
" be open to non-OSS contributions, to provide alternatives for our users' "
"diverse needs and expectations."
msgstr "Mageia bude vždy založena na programech s otevřeným zdrojovým kódem. Bude ale jako svým složkám otevřena i příspěvkům, které OSS nejsou, aby nabídla alternativy a vyhověla rozmanitým potřebám a očekáváním svých uživatelů."

#: "/web/en/about/values/index.php +69"
msgid ""
"Mageia will always be a collective, international and organised endeavor, "
"representative of our pluralistic community."
msgstr "Mageia vždy bude společně sdíleným, mezinárodním a organizovaným projektem, zastupujícím naše pluralistické společenství."
generated by cgit v1.2.1 (git 2.21.0) at 2024-06-24 19:36:25 +0000
/span>"/proc/modules") } sub which { ARG: foreach (@_) { foreach my $c (split /:/, $ENV{PATH}) { -x "$c/$_" and print("$c/$_\n"), next ARG } } } sub grep_ { my ($h, $v, $i) = getopts(\@_, qw(hvi)); @_ == 0 || $h and die "usage: grep <regexp> [files...]\n"; my $r = shift; $r = qr/$r/i if $i; @ARGV = @_; (/$r/ xor $v) and print while <>; } sub tr_ { my ($s, $c, $d) = getopts(\@_, qw(s c d)); @_ >= 1 + (!$d || $s) or die "usage: tr [-c] [-s [-d]] <set1> <set2> [files...]\n or tr [-c] -d <set1> [files...]\n"; my $set1 = shift; my $set2; !$d || $s and $set2 = shift; @ARGV = @_; eval "(tr/$set1/$set2/$s$d$c, print) while <>"; } sub mount { @_ or return cat("/proc/mounts"); my ($t, $r) = getopts(\@_, qw(tr)); my $fs = $t && shift; @_ == 2 or die "usage: mount [-r] [-t <fs>] <device> <dir>\n", " (use -r for readonly)\n", " (if /dev/ is left off the device name, a temporary node will be created)\n"; my ($dev, $where) = @_; $fs ||= $where =~ /:/ ? "nfs" : $dev =~ /fd/ ? "vfat" : "ext2"; require fs; require modules; modules::load_dependencies("/modules/modules.dep"); fs::mount($dev, $where, $fs, $r); } sub umount { @_ == 1 or die "umount expects a single argument\n"; require fs; fs::umount($_[0]); } sub mkdir_ { my ($_rec) = getopts(\@_, qw(p)); mkdir_p($_) foreach @_; } sub mknod { if (@_ == 1) { require devices; eval { devices::make($_[0]) }; $@ and die "mknod: failed to create $_[0]\n"; } elsif (@_ == 4) { require c; my $mode = ${{ "b" => c::S_IFBLK(), "c" => c::S_IFCHR() }}{$_[1]} or die "unknown node type $_[1]\n"; syscall_('mknod', my $_a = $_[0], $mode | 0600, makedev($_[2], $_[3])) or die "mknod failed: $!\n"; } else { die "usage: mknod <path> [b|c] <major> <minor> or mknod <path>\n" } } sub ln { my ($force, $soft) = getopts(\@_, qw(fs)); @_ >= 1 or die "usage: ln [-s] [-f] <source> [<dest>]\n"; my ($source, $dest) = @_; $dest ||= basename($source); $force and unlink $dest; ($soft ? symlink($source, $dest) : link($source, $dest)) or die "ln failed: $!\n"; } sub rm { my ($rec, undef) = getopts(\@_, qw(rf)); my $rm; $rm = sub { foreach (@_) { if (!-l $_ && -d $_) { $rec or die "$_ is a directory\n"; &$rm(glob_($_)); rmdir $_ or die "can't remove directory $_: $!\n"; } else { unlink $_ or die "rm of $_ failed: $!\n" } } }; &$rm(@_); } sub chmod_ { @_ >= 2 or die "usage: chmod <mode> <files>\n"; my $mode = shift; $mode =~ /^[0-7]+$/ or die "illegal mode $mode\n"; foreach (@_) { chmod oct($mode), $_ or die "chmod failed $_: $!\n" } } sub chown_ { my ($rec, undef) = getopts(\@_, qw(r)); local $_ = shift or die "usage: chown [-r] name[.group] <files>\n"; my ($name, $group) = (split('\.'), $_); my ($uid, $gid) = (getpwnam($name) || $name, getgrnam($group) || $group); my $chown; $chown = sub { foreach (@_) { chown $uid, $gid, $_ or die "chown of file $_ failed: $!\n"; -d $_ && $rec and &$chown(glob_($_)); } }; &$chown(@_); } sub mkswap { @_ == 1 or die "mkswap <device>\n"; require swap; swap::enable($_[0], 0); } sub swapon { @_ == 1 or die "swapon <file>\n"; require swap; swap::swapon($_[0]); } sub swapoff { @_ == 1 or die "swapoff <file>\n"; require swap; swap::swapoff($_[0]); } sub uncpio { @_ and die "uncpio reads from stdin\n"; # cpioInstallArchive(gzdopen(0, "r"), NULL, 0, NULL, NULL, &fail); } sub rights { my $r = '-' x 9; my @rights = (qw(x w r x w r x w r), ['t', 0], ['s', 3], ['s', 6]); for (my $i = 0; $i < @rights; $i++) { if (vec(pack("S", $_[0]), $i, 1)) { my ($val, $place) = $i >= 9 ? @{$rights[$i]} : ($rights[$i], $i); my $old = \substr($r, 8 - $place, 1); $$old = $$old eq '-' && $i >= 9 ? uc $val : $val; } } my @types = split //, "_pc_d_b_-_l_s"; $types[($_[0] >> 12) & 0xf] . $r; } sub displaySize { my $m = $_[0] >> 12; $m == 4 || $m == 8 || $m == 10; } sub ls { my ($l, $h) = getopts(\@_, qw(lh)); $h and die "usage: ls [-l] <files...>\n"; @_ or @_ = '.'; @_ == 1 && -d $_[0] and @_ = glob_($_[0]); foreach (sort @_) { if ($l) { my @s = lstat or warn("can't stat file $_\n"), next; formline( "@<<<<<<<<< @<<<<<<< @<<<<<<< @>>>>>>>> @>>>>>>>>>>>>>>> @*\n", rights($s[2]), getpwuid $s[4] || $s[4], getgrgid $s[5] || $s[5], displaySize($s[2]) ? $s[7] : join(", ", unmakedev($s[6])), scalar localtime $s[9], -l $_ ? "$_ -> " . readlink $_ : $_); print $^A; $^A = ''; } else { print "$_\n" } } } sub cp { @_ >= 2 or die "usage: cp <sources> <dest>\n(this cp does -Rfl by default)\n"; cp_af(@_); } sub ps { @_ and die "usage: ps\n"; my ($pid, $rss, $cpu, $cmd); my ($uptime) = split ' ', first(cat_("/proc/uptime")); my $hertz = 100; require c; my $page = c::getpagesize() / 1024; open PS, ">&STDOUT"; #- PS must be not be localised otherwise the "format PS" fails format PS_TOP = PID RSS %CPU CMD . format PS = @>>>> @>>>> @>>> @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $pid, $rss, $cpu, $cmd . foreach (sort { $a <=> $b } grep { /\d+/ } all('/proc')) { $pid = $_; my @l = split(' ', cat_("/proc/$pid/stat")); $cpu = sprintf "%2.1f", max(0, min(99, ($l[13] + $l[14]) * 100 / $hertz / ($uptime - $l[21] / $hertz))); $rss = (split ' ', cat_("/proc/$pid/stat"))[23] * $page; (($cmd) = cat_("/proc/$pid/cmdline")) =~ s/\0/ /g; $cmd ||= (split ' ', (cat_("/proc/$pid/stat"))[0])[1]; write PS; } } sub dd { my $u = "usage: dd [-h] [-p] [if=<file>] [of=<file>] [bs=<number>] [count=<number>]\n"; my ($help, $percent) = getopts(\@_, qw(hp)); die $u if $help; my %h = (if => *STDIN, of => *STDOUT, bs => 512, count => undef); foreach (@_) { /(.*?)=(.*)/ && exists $h{$1} or die $u; $h{$1} = $2; } local (*IF, *OF); my ($tmp, $nb, $read); ref($h{if}) eq 'GLOB' ? (*IF = $h{if}) : sysopen(IF, $h{if}, 0) || die "error: can't open file $h{if}\n"; ref($h{of}) eq 'GLOB' ? (*OF = $h{of}) : sysopen(OF, $h{of}, 0x41) || die "error: can't open file $h{of}\n"; $h{bs} = removeXiBSuffix($h{bs}); for ($nb = 0; !$h{count} || $nb < $h{count}; $nb++) { printf "\r%02.1d%%", 100 * $nb / $h{count} if $h{count} && $percent; $read = sysread(IF, $tmp, $h{bs}) or ($h{count} ? die "error: can't read block $nb\n" : last); syswrite(OF, $tmp) or die "error: can't write block $nb\n"; $read < $h{bs} and $read = 1, last; } print STDERR "\r$nb+$read records in\n"; print STDERR "$nb+$read records out\n"; } sub head_tail { my ($h, $n) = getopts(\@_, qw(hn)); $h || @_ < to_bool($n) and die "usage: $0 [-h] [-n lines] [<file>]\n"; $n = $n ? shift : 10; my $fh; @_ ? open($fh, $_[0]) || die "error: can't open file $_[0]\n" : ($fh = *STDIN); if ($0 eq 'head') { local $_; while (<$fh>) { $n-- or return; print } } else { @_ = (); local $_; while (<$fh>) { push @_, $_; @_ > $n and shift } print @_; } } sub head { $0 = 'head'; &head_tail } sub tail { $0 = 'tail'; &head_tail } sub strings { my ($h, $o, $n) = getopts(\@_, qw(hon)); $h and die "usage: strings [-o] [-n min-length] [<files>]\n"; $n = $n ? shift : 4; $/ = "\0"; @ARGV = @_; my $l = 0; local $_; while (<>) { while (/[$printable_chars]{$n,}/og) { printf "%07d ", ($l + length $') if $o; print "$&\n"; } $l += length; } continue { $l = 0 if eof } } sub hexdump { my $i = 0; $/ = \16; @ARGV = @_; local $_; while (<>) { printf "%08lX ", $i; $i += 16; print join(" ", (map { sprintf "%02X", $_ } unpack("C*", $_)), (s/[^$printable_chars]/./og, $_)[1]), "\n"; } } sub more { @ARGV = @_; require devices; my $tty = devices::make('tty'); my $n = 0; open(my $IN, $tty) or die "can't open $tty\n"; local $_; while (<>) { if (++$n == 25) { my $v = <$IN>; $v =~ /^q/ and exit 0; $n = 0; } print } } sub insmod { my ($h) = getopts(\@_, qw(h)); $h || @_ == 0 and die "usage: insmod <module> [options]\n"; my $f = local $_ = shift; require run_program; #- try to install the module if it exist else extract it from archive. #- needed for cardmgr. unless (-r $f) { $_ = $1 if m!.*/([^/]*)\.o!; unless (-r ($f = "/lib/modules/$_.o")) { $f = "/tmp/$_.o"; my $cz = "/lib/modules" . (arch() eq 'sparc64' && "64") . ".cz"; -e $cz or $cz .= '-'.c::kernel_version(); if (-e $cz) { eval { require packdrake; my $packer = new packdrake($cz, quiet => 1); $packer->extract_archive("/tmp", "$_.o"); }; } elsif (-e "/lib/modules.cpio.bz2") { run_program::run("cd /tmp ; $ENV{LD_LOADER} bzip2 -cd /lib/modules.cpio.bz2 | $ENV{LD_LOADER} cpio -i $_.o"); } else { die "unable to find an archive for modules"; } } } -r $f or die "can't find module $_"; run_program::run(["/usr/bin/insmod_", "insmod"], "-f", $f, @_) or die("insmod $_ failed"); unlink $f; } sub modprobe { my ($h) = getopts(\@_, qw(h)); $h || @_ == 0 and die "usage: modprobe <module> [options]\n"; my $name = shift; require modules; modules::load_dependencies("/modules/modules.dep"); modules::load([ $name, @_ ]); } sub route { @_ == 0 or die "usage: route\nsorry, no modification handled\n"; my ($titles, @l) = cat_("/proc/net/route"); my @titles = split ' ', $titles; my %l; open ROUTE, ">&STDOUT"; #- ROUTE must be not be localised otherwise the "format ROUTE" fails format ROUTE_TOP = Destination Gateway Mask Iface . format ROUTE = @<<<<<<<<<<<< @<<<<<<<<<<<< @<<<<<<<<<<<< @<<<<<<< $l{Destination}, $l{Gateway}, $l{Mask}, $l{Iface} . foreach (@l) { /^\s*$/ and next; @l{@titles} = split; $_ = join ".", reverse map { hex $_ } unpack "a2a2a2a2", $_ foreach @l{qw(Destination Gateway Mask)}; $l{Destination} = 'default' if $l{Destination} eq "0.0.0.0"; $l{Gateway} = '*' if $l{Gateway} eq "0.0.0.0"; write ROUTE; } } sub df { my ($h) = getopts(\@_, qw(h)); my ($dev, $size, $free, $used, $use, $mntpoint); open DF, ">&STDOUT"; #- DF must be not be localised otherwise the "format DF" fails format DF_TOP = Filesystem Size Used Avail Use Mounted on . format DF = @<<<<<<<<<<<<<<<< @>>>>>>> @>>>>>>> @>>>>>>> @>>>>>% @<<<<<<<<<<<<<<<<<<<<<<<<< $dev, $size, $used, $free, $use, $mntpoint . my %h; foreach (cat_("/proc/mounts"), cat_("/etc/mtab")) { ($dev, $mntpoint) = split; $h{$dev} = $mntpoint; } foreach (sort keys %h) { $dev = $_; ($size, $free) = MDK::Common::System::df($mntpoint = $h{$dev}); $size or next; $use = int(100 * ($size - $free) / $size); $used = $size - $free; if ($h) { $used = int($used / 1024 . "M"); $size = int($size / 1024 . "M"); $free = int($free / 1024 . "M"); } write DF if $size; } } sub kill { my $signal = 15; @_ or die "usage: kill [-<signal>] pids\n"; $signal = (shift, $1)[1] if $_[0] =~ /^-(.*)/; kill $signal, @_ or die "kill failed: $!\n"; } sub lspci { require detect_devices; print join "\n", detect_devices::stringlist(1), ''; } *lssbus = \&lspci;