internetova kavarna

[Petr Vileta]

> jedna z veci ktore mi v linuxe chybaju je podpora 'spolahliveho' cistenia
> suborov - aby kazdy uvolneny blok bol prepisany nulami (alebo nulami,
> jednotkami, nulami...)

No a co treba tohle:
---CUT---
#!/usr/bin/perl
# WIPEFILE - program pro bezpecne smazani souboru
#author: Petr Vileta - Practisoft, Pilsen, CZ, mailto:petr na practisoft.cz

use CGI qw(:standard);
$filename=$ARGV[0];
if(! $ARGV[0]) {print "\nPouziti: wipefile /path/filename\n"; exit 1}
@st = stat $filename;
if($#st < 0) {print "\nSoubor $filename neexistuje\n"; exit 2}
if($st[7] < 128) {$blok=1; $zbytek=0;}
elsif($st[7] < 256) {$blok=128; $zbytek=$st[7] - int($st[7] / $blok)*$blok;}
elsif($st[7] < 512) {$blok=256; $zbytek=$st[7] - int($st[7] / $blok)*$blok;}
elsif($st[7] < 1024) {$blok=1024; $zbytek=$st[7] - int($st[7] /
$blok)*$blok;}
else {$blok=2048; $zbytek=$st[7] - int($st[7] / $blok)*$blok;}
open (FAJL,"+<$filename");
seek FAJL,0,0;
for($q=0; $q < int($st[7] / $blok)*$blok; $q++) {print FAJL chr(0)x$blok;}
print FAJL chr(0)x$zbytek if($zbytek > 0);
close FAJL;
---CUT---

Je to spichnute na rychlo, tak tam muze byt chybicka a je mozne tam pridelat
vice podminek na delku bloku pro mazani velkych souboru.

Jo a protoze to je pro Linux, tak:
Davam svoleni k libovolnemu pouziti, na libovolnem poctu stroju, pro
libovolne ucely, libovolne upravene, ale nesmi to nikdo PRODAVAT jako
samostatny soubor, ovsem smi to pouzit jako soucast komercni aplikace.
Soubor se smi jmenovat pouze "wipefile", "wf" nebo smi mit k temto jmenum
priponu ".pl" nebo ".cgi"
(sorry, ale ja se v tech GPL, LGPL a podobnych licencich nevyznam).

--
Petr