Kdo mi ho dodělá? (objectpascal utilitka)

28.9.2013 17:24 | Přečteno: 1216× | poslední úprava: 28.9.2013 18:35

Zdar,

potřebuji dodělat kopírovací utilitku, co má za úkol v daný čas kopírovat vybraný adresáře do zadaný složky. Stvořil jsem jí kvůli tomu, že mi ostatní nástroje jednoduše nevyhovovaly(i?).

Jak to funguje: nastaví se adresář pro zálohy, naklikaj se adresáře co se maj zálohovat a klikne se na „Zálohovat nyní“. A ono to vytvoří adresář s datem a časem (např. 2013_09_28-17_05_21) a do toho to ty nastavený adresáře zkopíruje. Jupí jej.

Co potřebuju:

- ošetřit věci tak aby to bylo blbuvzdorný (kopírování adresáře do sebe sama, když to nemá co kopírovat, když není (síťový) disk dostupný atd atd)

- dodělat časovátko aby to kopírovalo v nastavený čas

- mazat adresáře starší než nastavený počet dní

- mazat adresáře od nejstaršího po dosažení nastavené velikosti adresáře zálohy

- možnost purgekopírování dat v adresáři – jen poslední verze ProE partů (ukládá soubory jako sestava.asm.1, při změně a uložení to vytvoří nový soubor sestava.asm.2 atd atd a purgekopírování zkopíruje jen ty poslední)

- ukládání nastavení do xml nebo cfg souboru. Nyní to používá registry (fuj?)

Co nabízím: Vděk :) a prachy

Co nepotřebuju: Chytrý kecy o použití velkých zálohovacích programů, inkrementálního zálohování nebo snad verzovacího FS :) Tato utilitka je specifická pro roztěkané konstruktéry, co potřebujou mít zálohy práce za posledních pár desítek dní.

Takže k dospozici diskuze zde nebo ímejl pivoaheavymetal na seznamu.

Update: tutkaj je zdrojový prasokód v Lazaru: http://uloz.to/xoc8uMjS/zalohovani-zip

       

Komentáře

[Dreit]

Zrovna jsem chtěl navrhnout, že by bodlo inkrementální zálohování

[Ivorne]

Moment, object pascal?

Prostě se smiřte s tím, že nalezení a nakonfigurování nějakého již existujícího sw bude rychlejší a snazší. Výsledek možná nebude úplně 100% jak si ho představujete, ale ono když doděláte tenhle váš sw, tak taky zjistíte, že to nefunguje tak skvěle, jak jste si představoval.

[pivoaheavymetal]

Tak základní funkce funguje a dělá to co chci, jen prostě jednou za dva měsíce zpurguju a smažu nejstarší zálohy. Jenom to chci dotáhnout do konce. BTW, výsledek bude právě 100 prc jak si představuju, proto to dělám :)

[Halis]

Takový SW již existuje, jmenuje se BackupPC. Perlové skripty využívající rsync a/nebo ssh, nad nimi webové CGI rozhraní. Pro vaše použití stačí vypnout automatické zálohy, a spouštět je jen ručně. Neukládá se ale do složek podle data, ale do obrovského poolu kvůli deduplikaci (což je asi to co je myšleno purgekopírováním). Obnovu jednotlivých souborů nebo celé zálohy (dle data) lze udělat z webového rozhraní.

[Jardík]

Runtime free pascalu na windows neumí pracovat s case-sensitive filesystémy a s dlouhými názvy souborů (větší jak PATH_MAX, což je tuším 256). NTFS je case-sensitive a podporuje názvy až s 32k znaky. Kvůli této neschopnosti musíte přímo volat Win API funkce (jejich unicode verzi, ansi to nezvládá) s plnou cestou (né relativní), a musíte použít správná lomítka ('\' a nikoliv '/'). Taková cesta vypadá nějak takto: \\?\D:\very long path. Toto předáváte fcím FindFile, CreateFile, ... Taky je potřeba použít FILE_FLAG_POSIX_SEMANTIC, aby to respektovalo case-sensitive názvy a povolilo různé znaky ve výchozím stavu zakázané. Díky tomuto přístupu pak budete moci i otevřít soubory vytvořené z linuxu na NTFS systému, kde jste prdly do názvu věci jako dvojtečku. Pak je taky potřeba počítat se symlinky, hardlinky a junction, na všechno existuje API, ale runtime free pascalu s tím nepočítá (resp. nepočítalo před pár lety, jak je to teď, nevím). Pro zálohovací utilitku je potřeba tohoto použít, jinak záloha může dopadnout špatně a to jistě u zálohy nechcete.

[Rezza]

Jo, tak jsem kdysi narazil s Baculou na win :D.

[Max]

Sice bez zdrojáků, ale je to asi nejlepší free backup nástroj pro widle, který umí i VSS, viz Cobian Backup
Zdar Max

[Bedňa]

V Pascale som pred rokmi napísal tisíce riadkov, no nieje čas. Ale prečo vlastne píšem komentár, to okno je hrozne škaredé, podobá sa to na Widle ale asi to niesu Widle, kurwa ako sa na to môžeš pozerať? To by ma zabilo!

[Jardík]

Jsou to widle 8 nebo 8.1.

[Bedňa]

Aha dík, pokrok nezastavíš

[Salamek]

Proc jsi to u satanovejch kouli nenapsal v necem normalnim ?
V QT by to byla brnkacka... navic multiplaformni...

[Jardík]

Qt možná pro to GUI, na zálohování se Qt třídičky nehodí, protože nepodporují věci, co jsem zmínil výše. Ono málokterý program na Windows umí správně pracovat se soubory, dokonce i Explorer se podělá na prvním souboru s dvojtečkou v názvu, či dlouhém jméně (po 256 znacích začne používat dosovský krátký jména a pak krachne úplně).

[w4rr10r]

To je AFAIK věc souborového systému, ne Windows/Exploreru. Za domácí úkol si, než vyrazíš na ten pochoďák, zkus třeba v Xfce klikátkem nakopírovat na flešku s FAT32 snímek obrazovky pořízený tím nástrojem z Xfce (tzn. soubor obsahuje v názvu dvojtečky jako oddělovače v čase pořízení snímku).

[Jardík]

To je AFAIK věc souborového systému, ne Windows/Exploreru.

NTFS dvojtečku v názvu podporuje, stejně tak < > apod. Dokonce i Windows API se s tím vypořádá a takový soubor otevře, pokud se však to API použije správně a né mizerně, tak jak ho používá Qt či Explorer a mnoho dalších aplikací (už jenom to, že Qt interpretuje '/' jako oddělovač adresářů na Windows je stupidní). Třeba takový 7-zip je jedna z mála aplikací, která to API dokáže použít lépe, než ostatní aplikace (tj. dokáže rozbalit archiv s obrovskou hloubkou adresářů a názvy až 32k dlouhými, tak, že to pak ani nejde smazat z Exploreru, protože to neumí). Bohužel už ale nezvládá case-sensitive názvy, které jak Windows, tak NTFS podporuje.

[Roman Došek]

Před časem jsem došel ke stejnému závěru: že stávající zálohovací programy mi úplně nevyhovují a že si zkusím napsat něco vlastního.

Takže jsem se do toho pustil v C++ & Qt a dotáhnul to do nějakého funkčního stavu, kde fungují alespoň základy. Pak mi ale (typicky) kvůli práci došel čas a už mi to pár měsíců leží bez toho aby na to někdo sáhl. A napsané to taky není kdovíjak skvěle.

Kdyby měl někdo zájem v tom třeba pokračovat, nebo se jen podívat, tak tady to je...

FileFridge

[xxxxxxxxxxx]

Osobně bych nějaký nástroj na zálohování svých pracovních CAD dat bral taktéž. Pokud možno Multiplatformní a v C++/QT. Klidně na to přidám prachy.

[Konqui]

Kdyby se sešlo více lidí a nějaká rozumná částka, jsem ochoten to v C++/QT naprogramovat....

[xxxxxxxxxxx]

Co radši mrknout na formát *.iges?

[Konqui]

To mi nic moc neříká. A soft, co sám nevyužiju se mi moc dělat nechce

[xxxxxxxxxxx]

A co prachy?

[Roman Došek]

Což o to, kdyby o to byl zájem, a nějaké připomínky, tak je klidně do toho svojeho programu zakomponuju.
(For free, ale kdybych pak potřeboval nějaké rady ohledně CADu, tak bych si to vybral.)
Klidně napiš maila.

[xxxxxxxxxxx]

Napsal jsem ti mail. Každopádně rady ohledně CAD máš samo grátis v plném rozsahu.

[xxxxxxxxxxx]

Jo nechceš poslat poslední verzi ZIMA-CAD-Parts? už umíme zobrazovat verzovací soubory a pracujeme na tom aby jsme dokázali načítat parametres z Pro/E souboru do tabulky.

[lertimir]

Zajímalo by mne, co vytýkáte (nevyhovuje) na zálohovacím programu BackupPC? Instalačně je to jeden balik z repozitáře na manožství distribucí.

Konfigurace se zadefinuje:

1. Kam zálohovat: typicky specializovaným oddílem mounutým do BacupPC adresáře
2. koho zálohovat: umí jak linuxové systémy (rsync) tak Windowsí systémy (buď rsyncd z Cygwinu nebo samba sdílení)
3. vše ostatní se nakliká ve webovém CGI: tedy časově kdy, jaké adresáře(soubory) zahrnout jaké vyloučit (třeba videa z adresáře Download), kdy dělat full a kdy incremental backup
4. U každého stroje vidím seznam záloh (a automaticky se mi mažou podle profilu (třeba tak že zálohy starší měsíc nechám mazat) a maže to inteligentně, tedy i když full backup je starší než měsíc tak mi zůstane dokud poslední inkrementální, který na něm závisí není smazaný, mohu také specifikovat kolik posledních full backupů držet, i s tím že některé budou staré pro archivní účely) V každé záloze vidím adresářovou strukturu všech uložených souborů i s tím s jakého backupu je tedy jestli z toho konkrétního inkrementálu nebo starší full. Stejně tak u každého souboru vidím všechny verze, které má uloženo s příslušenstvím k jednotlivým backupům

Vzhledem k tomu, že je to opensource tak je rozběhnutelný i na většinu NASů a mnohé jej mají i jako stáhnutelný instalovatelný balík.

V případě, že někde mám servřík, který mi stále běží, a není to žádná mohutná organizace, kde bych potřeboval Enterprise řešení, tak BackupPC mi připadá jako z uživatelského hlediska velmi přímočaré jednoduché hezky ovladatelné řešení.

[gsnak]

- dodělat časovátko aby to kopírovalo v nastavený čas

Pridaj TTimer (asi zalozka System) na formular, do udalosti OnTimer pridaj

  if now > datum_kedy_sa_to_ma_spustit then
  try
    timer1.Enabled := false;

    ...samotny kod...
    datum_kedy_sa_to_ma_spustit := dalsi_datum;
  finally
    timer1.Enabled := true;
  end;

Pripadne ak chces aby sa to spustalo napr. kazdych 5 minut tak nastav Interval toho timeru na 300000 (to je 300s) a ten kod daj priamo do toho.

- mazat adresáře starší než nastavený počet dní

Listuj adresare cez TSearchRec (cez FindFirst, FindNext, FindClose) a starsie adresare maz cez DeleteDir. Nevie to mazat prazdne takze musis mazat rekurzivne.

- mazat adresáře od nejstaršího po dosažení nastavené velikosti adresáře zálohy

Hod si adresare do listu (alebo string listu, metoda CustomSort), funkcia Sort akceptuje ako parameter triediacu funkciu, vytvor si triediacu funkciu s 2 pointer parametrami ktora bude porovnavat adresare podla datumu. Alebo pouzi rovno datum yyyy-mm-dd-HH-MM-SS-zzz a bude to triedit spravne. Potom len vymazes prvy adresar z toho listu.

- možnost purgekopírování dat v adresáři – jen poslední verze ProE partů (ukládá soubory jako sestava.asm.1, při změně a uložení to vytvoří nový soubor sestava.asm.2 atd atd a purgekopírování zkopíruje jen ty poslední)

To iste ako s tym sortovanim len si vytvoris inu sortovaciu funkciu.

function TriedenieAsmSuborovPodlaPripony(a,b : integer) : integer;
var fa,fb : string;
    ca,cb : integer;
begin
  fa := subory[a];
  fb := subory[b];
  if pos('.asm.', fa) then
    ca := StrToIntDef(ExtractFileExt(fa), -1);
  if pos('.asm.', fb) then
    cb := StrToIntDef(ExtractFileExt(fb), -1);
  result := ca - cb;
end;

- ukládání nastavení do xml nebo cfg souboru. Nyní to používá registry (fuj?)

Pouzi ini subory, pozor, cesta v atribute Create musi byt uplna!

uses IniFiles;

with TIniFile.Create(GetEnvironmentVariable('HOME')+PathDelim+'.config'+PathDelim+'nieco.ini') then
try
  Left := ReadInteger('OKNO', 'Left', 0);
  Top := ReadInteger('OKNO', 'Top', 0);
  b := ReadBool('OKNO', 'B', false);
  s := ReadString('OKNO', 'Meno', '');
  ... zapis cez WriteInteger, WriteString, WriteBool, ...
finally
  Free;
end;