[gast]

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

------_=_NextPart_000_09E8D315.4A242414
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8Bit

Hallo!

Wenn wir haben das gebraucht - vielleicht braucht das jemand auch noch :)

Anbei ist ein PERL-Script, das verschiedene Dokumente aus TAS in einen
Verzeichnis auf der Festplatte/Netzlaufwerk sichert - sagen wir, für
alle Fälle(z.B. totalen Tobit-Absturz), wenn wichtige Dokumente schnell
zugreifbar sein sollen :)

Was funktioniert:
- Sicherung der MS-Office, Acrobat,...-Dateien, die direkt(mit
Drag'n'Drop) ins TAS kopiert worden
- gesicherte Dateien auf der Festplatte werden nach Typ sortiert(Pfade
und Typs einstellbar).
- Es gibt die Möglichkeit, bestimmte Verzeichnisse von der Sicherung
auszuschließen.
- Log-Datei(Pfad einstellbar) im Form "TAS-Dateiname -> Sicherungsname"
- Dateiliste(CSV,Pfad einstellbar) im Form
"Dateiname-Ltz.Änderungsdatum-Größe-Sicherungsordner"

Voraussetzungen:
- Linux BS (unter Windows ist nicht getestet)
- Perl v.5...
- Lesezugriff auf die TAS-Verzeichnisse, wo die Dateien abgelegt sind
- Schreibzugriff auf das Backup-Verzeichnis


Das Script lässt sich ganz bequem als CRON-Aufgabe starten, besser mit
Ausgabe-Umleitung (> /dev/null 2>&1).

Für irgendwelche Schaden, die eventuell das Script verursachen könnte,
übernehme ich keine Verantwortung.
Falls Sie irgendwelche Verbesserungen/Vorschläge machen können - machen
Sie es ruhig. Brauchbare Änderungen im Script teilen Sie mir bitte auch
mit :)

------_=_NextPart_000_09E8D315.4A242414
Content-Type: application/octet-stream; name="docs_backup.pl"
Content-Transfer-Encoding: base64

IyEvdXNyL2Jpbi9wZXJsDQojQmFja3VwIHRoZSBUb2JpdC1BcmNoaXZlIGRvY3VtZW50cyB2
ZXIuMS4wDQojUnVzbGFuIFJ5YmFrIDIwMDYNCnVzZSBGaWxlOjpDb3B5Ow0KdXNlIEZpbGU6
OlNwZWM6OkZ1bmN0aW9uczsNCnVzZSBGaWxlOjpGaW5kOw0KdXNlIEZpbGU6OkJhc2VuYW1l
Ow0KDQpteSBAYWJiciA9IHF3KCBKYW4gRmViIE1hZXIgQXByIE1haSBKdW5pIEp1bGkgQXVn
IFNlcHQgT2t0IE5vdiBEZXogKTsNCg0KDQokbG9nZmlsZT0nL3RtcC90ZXN0L2xvZy50eHQn
OwkjbG9nZmlsZSBuYW1lDQokZmlsZWxpc3Q9Jy90bXAvdGVzdC9maWxlbGlzdC5jc3YnOwkj
bGlzdGZpbGUgbmFtZSAoY29udGVuczogZG9jbmFtZSwgc2l6ZSwgbW9kaWZpY2F0aW9uIHRp
bWUsIGJhY2t1cCBwYXRoKQ0KDQojZGVmaW5lIHN0YXJ0LSwgZXhjbHVkZS0gYW5kIGJhY2t1
cCBwYXRocw0KJHN0YXJ0ZGlyPScvdXNyL2RhdmlkL2FyY2hpdmUnOw0KJGJhY2t1cGRpcj0n
L3RtcC90ZXN0JzsNCg0KJWV4Y2x1ZGU9KAkjZXhjbHVkZSBkaXJlY3RvcmllczsgZm9ybWF0
ICdmdWxsX3BhdGgnPT4nJw0KJy91c3IvZGF2aWQvYXJjaGl2ZS91c2VyJz0+JycsDQojJy91
c3IvZGF2aWQvYXJjaGl2ZS9oaWxmZS9kb2N1ZmllZCc9PicnLA0KKTsNCg0KDQoNCiVkb2N0
eXBlPSgJI3doYXQgdHlwZXMgb2YgZG9jcyB0byBiYWNrdXA7IGZvcm1hdCAidHlwIj0+InJl
bGF0ZWRfYmFja3VwX3BhdGgiDQonY2htJz0+J0NITS1IaWxmZScsCQ0KJ3BkZic9PidQREYt
QWNyb2JhdFJlYWRlcicsDQonZG9jJz0+J0RPQy1Xb3JkLURva3VtZW50JywNCidkb3QnPT4n
RE9DLVdvcmQtRG9rdW1lbnQnLA0KJ3J0Zic9PidET0MtV29yZC1Eb2t1bWVudCcsDQoneGxz
Jz0+J1hMUy1FeGNlbC1UYWJlbGxlJywNCidodG0nPT4nSFRNTC1XZWItRG9rdW1lbnQnLA0K
J2h0bWwnPT4nSFRNTC1XZWItRG9rdW1lbnQnLA0KJ3BwdCc9PidQUFQtUHJlc2VudGF0aW9u
LVBvd2VyUG9pbnQnLA0KJ3BvdCc9PidQUFQtUHJlc2VudGF0aW9uLVBvd2VyUG9pbnQnLA0K
J3Bwcyc9PidQUFQtUHJlc2VudGF0aW9uLVBvd2VyUG9pbnQnDQopOyANCg0KDQoNCg0KDQpv
cGVuKExPRywiPiRsb2dmaWxlIik7DQpvcGVuKExJU1QsIj4kZmlsZWxpc3QiKTsNCnByaW50
IChMSVNUICJEYXRlaW5hbWVcdEx0ei5hZW5kZXJ1bmdcdEdyb2Vzc2VcdFNwZWljaGVyb3J0
XG4iKTsNCg0KZmluZCggXCZkb2NzX3NhdmUsICRzdGFydGRpcik7DQpjbG9zZSBMT0c7DQpj
bG9zZSBMSVNUOw0KDQpzdWIgZG9jc19zYXZlIHsNCglteSAkZm5hbWU9J3plcm8nOw0KCXJl
dHVybiBpZiBleGlzdHMoJGV4Y2x1ZGV7JEZpbGU6OkZpbmQ6OmRpcn0pOw0KCQ0KCWlmICgt
ZiAkXyAmJiBzdWJzdHIoJEZpbGU6OkZpbmQ6Om5hbWUsLTMpIGVxICcwMDEnKSB7DQoJCW9w
ZW4oRklMRSwkRmlsZTo6RmluZDo6bmFtZSk7DQoJCSRmbmFtZT1yZWFkbGluZShGSUxFKTsN
CgkJaWYgKCRmbmFtZSAmJiAhKCRmbmFtZSBlcSAiXG4iKSkgew0KCQkJY2hvbXAoJGZuYW1l
KTsgI2RlbGV0ZSBDUiANCgkJCWNob3AoJGZuYW1lKTsgI2RlbGV0ZSBMRg0KCQkJaWYoZXhp
c3RzKCRkb2N0eXBle2xjKHN1YnN0cigkZm5hbWUsLTMpKX0pKSB7DQoJCQkJJGRvY2Rpcj0k
ZG9jdHlwZXtsYyhzdWJzdHIoJGZuYW1lLC0zKSl9Ow0KCQkJCSRmbG9jYWw9c3Vic3RyKCRG
aWxlOjpGaW5kOjpuYW1lLDAsLTMpLickMDEnOw0KCQkJCWlmKC1mICRmbG9jYWwpIHsNCgkJ
CQkJJGJhY2t1cD1jYXRmaWxlKCRiYWNrdXBkaXIsICRkb2NkaXIpOw0KCQkJCQlta2Rpcigk
YmFja3VwKSBpZiAhIC1kICRiYWNrdXA7DQoJCQkJCSRiYWNrdXA9Y2F0ZmlsZSgkYmFja3Vw
LCAkZm5hbWUpOw0KCQkJCQlAaW5mbz1zdGF0KCRmbG9jYWwpOw0KCQkJCQlAZnRpbWU9bG9j
YWx0aW1lKCRpbmZvWzldKTsNCgkJCQkJJGZ0aW1lWzVdICs9IDE5MDA7DQoJCQkJCSRzaXpl
PWludCgkaW5mb1s3XS8xMDI0KTsNCgkJCQkJY29weSAoJGZsb2NhbCwgJGJhY2t1cCkgfHwg
ZGllIHByaW50KExPRyAiY2FuJ3QgY29weSAkZmxvY2FsIik7DQoJCQkJCUBiYWNrdXA9c3Bs
aXQoJy8nLCRiYWNrdXApOw0KCQkJCQlwcmludCAoTE9HICRmbG9jYWwuIiAtLT4gIi4kYmFj
a3VwLiJcbiIpOw0KCQkJCQlwcmludCAoTElTVCAiJGZuYW1lXHQkZnRpbWVbM10gJGFiYnJb
JGZ0aW1lWzRdXSAkZnRpbWVbNV0gJGZ0aW1lWzJdOiRmdGltZVsxXVx0JHNpemUga0JcdCRi
YWNrdXBbLTJdXG4iKTsNCgkJCQl9DQoJCQl9DQoJCX0NCgkJY2xvc2UgRklMRTsNCgl9DQp9
DQoNCg0KDQoNCg0KDQoNCg0KDQp=

------_=_NextPart_000_09E8D315.4A242414--

[gast]

Sorry - habe ganz vergessen:
Zeile 73

copy ($flocal, $backup) || die print(LOG "can't copy $flocal");

soll auf

copy ($flocal, $backup) || print(LOG "can't copy $flocal");

geändert werden. Sonst wird das Script bei ersten Fehler unterbrochen.

MfG

R.Rybak

Wenn wir haben das gebraucht - vielleicht braucht das jemand auch noch :)

Anbei ist ein PERL-Script, das verschiedene Dokumente aus TAS in einen
Verzeichnis auf der Festplatte/Netzlaufwerk sichert - sagen wir, für
alle Fälle(z.B. totalen Tobit-Absturz), wenn wichtige Dokumente schnell
zugreifbar sein sollen :)

Was funktioniert:
- Sicherung der MS-Office, Acrobat,...-Dateien, die direkt(mit
Drag'n'Drop) ins TAS kopiert worden
- gesicherte Dateien auf der Festplatte werden nach Typ sortiert(Pfade
und Typs einstellbar).
- Es gibt die Möglichkeit, bestimmte Verzeichnisse von der Sicherung
auszuschließen.
- Log-Datei(Pfad einstellbar) im Form "TAS-Dateiname -> Sicherungsname"
- Dateiliste(CSV,Pfad einstellbar) im Form
"Dateiname-Ltz.Änderungsdatum-Größe-Sicherungsordner"

Voraussetzungen:
- Linux BS (unter Windows ist nicht getestet)
- Perl v.5...
- Lesezugriff auf die TAS-Verzeichnisse, wo die Dateien abgelegt sind
- Schreibzugriff auf das Backup-Verzeichnis


Das Script lässt sich ganz bequem als CRON-Aufgabe starten, besser mit
Ausgabe-Umleitung (> /dev/null 2>&1).

Für irgendwelche Schaden, die eventuell das Script verursachen könnte,
übernehme ich keine Verantwortung.
Falls Sie irgendwelche Verbesserungen/Vorschläge machen können - machen
Sie es ruhig. Brauchbare Änderungen im Script teilen Sie mir bitte auch
mit :)