Portál AbcLinuxu, 9. února 2026 16:51
Predchvíľou som zažil mierne stresovú situáciu, za ktorú sa ani náhodou nehanbím, lebo sa môže stať kľudne hocikomu :)
Kolegyňa sa vydávala a ako to už býva zvykom, zmena mena bola nevyhnutná. Z toho vyplýva aj zmena mailovej schránky a podobne. Hneď som sa teda s chuťou pustil do vytvárania nového konta, presúvania súborov v /home medzi kontami, až kým som neprišiel k zmene vlastníckych práv. Jedna hviezdička hore-dole a dokáže to narobiť peknú paseku v podobe celého /home adresára, ktorý vlastní jedna osoba (a nie je to root
). Päť sekúnd po tomto osudovom momente sa rozzvonil telefón a ja som jednou rukou vysvetľoval ľuďom cez telefón, že maily nepôjdu asi 10 minút a druhou rukou som už písal perlovský skript, ktorý to všetko opraví.
#!/usr/bin/perl -w
use strict;
my $subor;
my $prikaz;
opendir(DIR,"/home");
while (defined($subor = readdir(DIR))) {
$prikaz="chown -R ".$subor.":".$subor." /home/".$subor."/\n";
system($prikaz);
}
Čo z toho vypláva? Dvakrát meraj a raz rež a nikdy nechoď do práce s chuťou, lebo sa ti to vypomstí. A nehanbím sa za to, že som urobil chybu, učím sa aj na vlastných chybách. Chyba bola tak či tak vyriešená za 10 minút.
Tiskni
Sdílej:
$ cd /home; for i in *; do chown -R $i.$i $i; done
xargs?
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.