\n#!perl -I..\/lib\/perl -X -CA<\/p>\n### needed modules
\nuse Omniback;<\/p>\n
# Get DP folders
\nmy $OMNIHOME = Omniback::CmnQuotePath($Omniback::PAN{'BASE'});
\nmy $OMNIHOME_STR = $OMNIHOME;
\n$OMNIHOME_STR =~ s\/\\\"\/\/g;
\nmy $OMNIBIN = \"\\\"${OMNIHOME_STR}\/bin\\\"\";<\/p>\n
# define the exclude pools, pool for vaulting, ...
\n$exclude_pools=\"Pool1,Pool2,PoolX\";<\/p>\n
# the pool mus exist in DP
\n$vault_pool=\"Vaulting\";<\/p>\n
# the time frame to retriev the session information
\n# assuming the script should run monday 8am, the timeframe of
\n# 60 month covers backups starting friday evening
\n$timeframe_start=\"60\";
\n$timeframe_duration=\"60\";<\/p>\n
# the stuff needed to send a mail at the end of the script
\n# you need to download blat (mail program) search for blat at google<\/p>\n
$mailrecipient=\"firstname.lastname\\@domain.com\"; \t\t# please remind the quoted (at)
\n$mailserver=\"192.168.2.10\"; \t\t\t\t\t# the ip address of the smtp server
\n$mailsender=\"dataprotector\\@domain.com\";\t\t\t# please remind the quoted (at)
\n$mailsubject=\"Media vaulting\";\t\t\t\t\t# Subject for the mail<\/p>\n
print \"Generating Report\\n\";
\nprint \"- skipping pools: $exclude_pools\\n\";
\nprint \"- target pool is: $vault_pool\\n\";
\nprint \"- start time: $timeframe_start\\n\";
\nprint \"- duration: $timeframe_duration\\n\";
\nprint \"\\n\\nNote: Ignore messages regarding \\\"No medium found\\\"\\n\\n\";<\/p>\n
@exec=`${OMNIBIN}\/omnirpt -report list_sessions -timeframe $timeframe_start $timeframe_duration -tab`;
\nforeach (@exec)
\n{
\n\tchomp $_;
\n\tnext if \/^#\/;
\n\t(@sessionid)=split(\/\\t\/,$_,23);
\n\tpush(@sessions,$sessionid[22]);
\n}<\/p>\n
foreach (@sessions)
\n{
\n\t@exec=`${OMNIBIN}\/omnidb.exe -session \\\"$_\\\" -media`;
\n\t$media = $exec[2];
\n\tchomp $media;
\n\t($media_short,$dummy)=split(\/ \/,$media,2);
\n\tif ($media_short ne \"\")
\n\t{
\n\t\tpush(@media,$media_short);
\n\t}
\n}<\/p>\n
@newmedia=&del_double(@media);<\/p>\n
print \"Summary\\n\";
\n@movedmedia=();
\nforeach (sort(@newmedia))
\n{<\/p>\n
\t($media1,$dummy)=split(\/ \/,$_,2);
\n\t$media1 =~ s\/\\[\/\/ig;
\n\t$media1 =~ s\/\\]\/\/ig;<\/p>\n
\t@exec=`${OMNIBIN}\/omnimm -media_info \\\"$media1\\\" -detail`;
\n\t$pool = $exec[2];
\n\tchomp $pool;
\n\tchop $pool;
\n\t$pool =~ s\/Pool name : \/\/ig;
\n\tif ($exclude_pools =~ \/$pool\/)
\n\t{
\n\t\tprint \"skipping media: $media1 \\n\";
\n\t}
\n\telse
\n\t{
\n\t\tprint \"moving media: $media1 \\n\";
\n\t\t@exec=`${OMNIBIN}\/omnimm -move_medium \\\"$media1\\\" $vault_pool`;
\n\t\tpush(@moved_media,$media1);<\/p>\n
\t}
\n}<\/p>\n
$anzahl=@moved_media;
\nif ($anzahl gt 0)
\n{
\n\t$message=\"\";
\n\t$message=\"Vaulting media:\\n============================\\n\\n\";
\n\t$message=$message.\"Following media were moved to pool: $vault_pool for vaulting.\\n\";
\n\t$message=$message.\"Media:\\n\";
\n\tforeach (@moved_media)
\n\t{
\n\t\t$message=$message.$_.\"\\n\";
\n\t}<\/p>\n
\t$message=$message.\"\\n\\nMail generated by robot\\n\\n\";
\n\t`${OMNIBIN}\/blat -to $mailrecipient -f $mailsender -subject \\\"$mailsubject\\\" -body \\\"$message\\\"`;
\n}<\/p>\n
exit;<\/p>\n
sub del_double{
\nmy %all;
\ngrep {$all{$_}=0} @_;
\nreturn (keys %all);
\n}
\n<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"
Der Wunsch die Daten seiner Server auf Medien zu sichern und somit Datensicherheit zu erhalten h\u00f6rt nicht nur bei der Datensicherung auf Band auf, oft besteht auch der Wunsch oder Anforderung die beschriebenen B\u00e4nder vor weiterem Beschreiben zu sch\u00fctzen oder die Medien aus der Bandlibrary zu entfernen und an einem sicheren Ort (Tresor, Ausfall Rechenzentrum, …) zu verwahren. Jeder […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_mi_skip_tracking":false,"spay_email":""},"categories":[11],"tags":[129],"translation":{"provider":"WPGlobus","version":"2.8.8","language":"de","enabled_languages":["en","de"],"languages":{"en":{"title":true,"content":true,"excerpt":false},"de":{"title":false,"content":true,"excerpt":false}}},"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p28cjj-dM","jetpack_sharing_enabled":true,"jetpack-related-posts":[{"id":1428,"url":"https:\/\/www.data-protector.org\/wordpress\/de\/2013\/06\/basics-dp-catalog-protection-data-protection\/","url_meta":{"origin":854,"position":0},"title":"BASICS – DP Catalog Protection and Data Protection","date":"10. Juni 2013","format":false,"excerpt":"{:en}Within Data Protector the protection is set per backup job and not for the tape, which might be misunderstood by customers. In the GUI a distinction is made between \"Data Protection\" and \"Catalog Protection\". \"Data Protection\" describes how long the data is kept on media and \"Catalog Protection\" describes how\u2026","rel":"","context":"In "BASICS"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":87,"url":"https:\/\/www.data-protector.org\/wordpress\/de\/2010\/12\/was-ist-eigentlich-device-polling\/","url_meta":{"origin":854,"position":1},"title":"What is device polling","date":"31. Dezember 2010","format":false,"excerpt":"{:de}Bestimmt jeder Data Protector Kunde mit einer Fibre Channel Tape Library hat dieses Problem schon mal wissentlich oder unwissentlich erlebt: ein SCSI Reset w\u00e4hrend einer Sicherung... und das ganze Band ist zerst\u00f6rt. Was war passiert? Das Bandlaufwerk wurde mit\u00a0SCSI Kommandos \u00fcbersch\u00fcttet - das nennt man auch Device Polling. Polling ist\u2026","rel":"","context":"In "Common"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":694,"url":"https:\/\/www.data-protector.org\/wordpress\/de\/2011\/07\/data-protector-migration-unix-to-other-os\/","url_meta":{"origin":854,"position":2},"title":"Data Protector Migration Unix to other OS","date":"29. Juli 2011","format":false,"excerpt":"{:de}Ich kenne nicht viele gute Gr\u00fcnde warum man eine Data Protector Installation von HP-UX auf ein anderes Betriebssystem wechseln sollte,\u00a0dennoch gibt es viele Kunden die diesen Schritt gehen wollen und zum Beispiel auf Windows oder Linux wechseln;\u00a0meist noch verbunden mit einem Upgrade auf eine aktuelle Version von Data Protector.\u00a0Und hier\u2026","rel":"","context":"In "HowTo"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":93,"url":"https:\/\/www.data-protector.org\/wordpress\/de\/2010\/07\/corrupt-media-header\/","url_meta":{"origin":854,"position":3},"title":"Corrupt Media Header","date":"5. Juli 2010","format":false,"excerpt":"{:en}No translation for this article available.{:} {:de} Woran erkennt man das ein Band korrupt ist und der Header nicht mehr lesbar ist? Folgende Meldungen k\u00f6nnen ein Indiz daf\u00fcr sein. In der Regel ist ein Restore von solchen B\u00e4ndern nicht mehr m\u00f6glich, einzig das HP lab k\u00f6nnte unter Umst\u00e4nden noch Daten\u2026","rel":"","context":"In "Common"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1424,"url":"https:\/\/www.data-protector.org\/wordpress\/de\/2013\/06\/storeonce-software-store-daily-maintenance\/","url_meta":{"origin":854,"position":4},"title":"StoreOnce Software Store – daily maintenance","date":"6. Juni 2013","format":false,"excerpt":"{:en}When in Data Protector media of a StoreOnce software store become expired, the used disk space is not released immediately. The disk space will be released once the media is overwritten or deleted. The housekeeping process running in the background to release the space will start only when the media\u2026","rel":"","context":"In "Common"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1360,"url":"https:\/\/www.data-protector.org\/wordpress\/de\/2013\/05\/data-management-business\/","url_meta":{"origin":854,"position":5},"title":"COM IN – data management for business","date":"8. Mai 2013","format":false,"excerpt":"{:de}Der HP Partner Comline l\u00e4dt am 18.06.2013 nach N\u00fcrnberg zu einer Veranstaltung rund um das Thema Datenmanagement ein. Business IT Alignment, unstrukturierte Daten, Sicherung von Au\u00dfenstellen (Deduplizierung), Archivierung, Enterprise Search, Backup to Cloud, Datensicherheit sind Punkte die w\u00e4hrend der Vortr\u00e4ge besprochen werden und diskutiert werden k\u00f6nnen. Mit der COM IN\u2026","rel":"","context":"In "SCD"","img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/www.data-protector.org\/wordpress\/de\/wp-json\/wp\/v2\/posts\/854"}],"collection":[{"href":"https:\/\/www.data-protector.org\/wordpress\/de\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.data-protector.org\/wordpress\/de\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.data-protector.org\/wordpress\/de\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.data-protector.org\/wordpress\/de\/wp-json\/wp\/v2\/comments?post=854"}],"version-history":[{"count":25,"href":"https:\/\/www.data-protector.org\/wordpress\/de\/wp-json\/wp\/v2\/posts\/854\/revisions"}],"predecessor-version":[{"id":2708,"href":"https:\/\/www.data-protector.org\/wordpress\/de\/wp-json\/wp\/v2\/posts\/854\/revisions\/2708"}],"wp:attachment":[{"href":"https:\/\/www.data-protector.org\/wordpress\/de\/wp-json\/wp\/v2\/media?parent=854"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.data-protector.org\/wordpress\/de\/wp-json\/wp\/v2\/categories?post=854"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.data-protector.org\/wordpress\/de\/wp-json\/wp\/v2\/tags?post=854"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}