Stručný popis funkce:

1. každý den v 10:00 vytvoření reportu Dataprotectorem
2. každý den v 11:00 hledání VBSkem v txt reportu, pokud není nalezen text že je vše bez chyb, dojde k odeslání reportu na specifikované emaily
3. každý den v 18:00 dojde k přepsání reportu (kdyby spadl DataProtector, nebude report přepisován, nebude nalezen text o proběhlých jobech a report nám bude zaslán s chybou)

Nejdříve je nutné si vytvořit adresářovou strukturu pro lokální ukládání reportů a uložení scriptů.

mkdir c:\scripts
mkdir c:\scripts\dp

Poté si v DP uděláme report, který následně nashedulujeme
DP-> Reporting -> Reports -> Add Report Group a přidat “Report to email” skupinu. V ní vytvořit “Add report”, vybrat “Reports on sessions in a timeframe”, název “Session Errors”, type Session Errors

Potom next, nastavit “Relative time” na 24h za poslednich 24h

Potom samé next až na obrazovku, kde je “Message level” a volbu na “Critical”

Next a nastavit, v jakým formátu a kam se to má ukládat

Stačí už jen danou skupinu jobů nashedulovat, a to 1x denně v 10h

Nyní můžeme mrknout na to, zda to funguje – pravé tlačítko na Skupinu a Start

V cestě C:\scripts\dp bude vygenerovaný soubor errors.txt, který buď bude obsahovat chyby nebo obsah souboru bude obsahovat text “No error messages”  - podle toho bude logika následujícího scriptu rozhodovat o tom, zda nám pošle email či nikoliv.

Vytvoříme VBS script na zasílání reportu v případě nalezených chyb, nazveme ho c:\scripts\check_and_send_errors.vbs. V souboru je nutne zamenit NUTNO_ZADAT_SMTP_SERVER a EMAIL@EMAIL.CZ (význam nebudu popisovat :D), který dáme do Win shedule každý den v 11:00

Option Explicit
Dim objFSO, objSouborPikodrak, strObsahSouboru, intKdeJeHlaska
Const FOR_READING = 1
Const strFileName = "C:\scripts\dp\errors.txt"
Set objFSO = CreateObject ("Scripting.FileSystemObject")
Set objSouborPikodrak = objFSO.OpenTextFile (strFileName,FOR_READING,0,-1)
strObsahSouboru = objSouborPikodrak.ReadAll
intKdeJeHlaska = InStr (strObsahSouboru,"No error messages")
If intKdeJeHlaska = 0 Then
'WScript.Echo "Nenasel jsem hlasku - No error Messages - na pozici " & intKdeJeHlaska
Dim objEmail, iAttachmenCount, aAttachment
Const sSMTPserver = "NUTNO_ZADAT_SMTP_SERVER"
Set objEmail = CreateObject("CDO.Message")
objEmail.To = "EMAIL@EMAIL.CZ, EMAIL2@EMAIL.CZ"
objEmail.ReplyTo = "EMAIL@EMAIL.CZ"
objEmail.Sender = "EMAIL@EMAIL.CZ"
objEmail.Subject = "ERROR BACKUP"
objEmail.Textbody = strObsahSouboru</code>
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sSMTPserver
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
End If
objSouborPikodrak.Close
Set objFSO = Nothing

Dále vytvoříme v C:\scripts\ soubor empty_dp_info_file.bat, který dáme do Win shedule každý den v 18:00

echo Soubor vyprazdnen > E:\scripts\dp\errors.txt

A to je vše přátelé, snad jsem na nic nezapomněl.

Zadání:
- uživatel root na novém serveru musí mít přístup bez hesla na všechny pobočky (ssh, scp), ale pobočky na něj zpět přístup nemají
- uživatel agent na novém serveru musí mít též všude přístup, uživatel agent z pobočky musí mít povolen přístup na nový server

Manuálně to opravdu dělat nebudu :D takže jako vždy – scriptem. Asi bude nejjednodušší script ukázat a okomentovat. K běhu scriptu přepokládám, že máme vygenerované klíče jak pro roota, tak pro agenta a na serverech již existují authorized_hosts apod (komunikace tam již probíhala, ale s jiným serverem).

#!/bin/sh

if [ ! "$1" ] ; then
echo "Zadejte lokalitu."
exit 1
fi

### nejdriv pridame ROOT klic z HLAVNI_SERVER na POBOČKA (pokud již nebyl přidán)
if (ssh "$1" "cat /root/.ssh/authorized_keys | grep root@HLAVNI_SERVER" >> /dev/null );
    then
        echo "INFO: $1: ROOT klic root@HLAVNI_SERVER v authorized keys jiz obsazen";
    else
        echo "OK: $1: pridavam ROOT klic root@HLAVNI_SERVER do authorized keys";
        cat /root/keys/HLAVNI_SERVER_root.id_dsa.pub  | ssh "$1" "cat - >> /root/.ssh/authorized_keys"
fi;

### potom pridame AGENT klic z HLAVNI_SERVER na pobočku (pokud již nebyl přidán)
if (ssh "$1" "cat /home/agent/.ssh/authorized_keys | grep agent@HLAVNI_SERVER" >> /dev/null );
    then
        echo "INFO: $1: AGENT klic agent@HLAVNI_SERVER v authorized keys jiz obsazen";
    else
        echo "OK: $1: pridavam AGENT klic agent@HLAVNI_SERVER do authorized keys";
        cat /root/keys/HLAVNI_SERVER_agent.id_dsa.pub  | ssh "$1" "cat - >> /home/agent/.ssh/authorized_keys"
fi;

### nakonec pridame na HLAVNI_SERVER klic AGENT z POBOČKA (pokud již nebyl přidán)
if (ssh  "HLAVNI_SERVER" "cat /home/agent/.ssh/authorized_keys | grep $1" >> /dev/null );
    then
        echo "INFO: HLAVNI_SERVER: AGENT klic s obsahem $1 v authorized keys jiz obsazen";
    else
        echo "OK: HLAVNI_SERVER: pridavam AGENT klic pobocky $1 do authorized keys";
        ssh "$1" "cat /home/agent/.ssh/id_dsa.pub" | ssh "HLAVNI_SERVER" "cat - >> /home/agent/.ssh/authorized_keys"
fi;

Potom stačí udělat druhý script s jednoduchým cyklem, kde v souboru máme seznam serverů:

#!/bin/sh
echo "Spoustim script na pridani klicu SSH na pobocky
cat /data/pobocky.lst | while read line; do
    echo Pridavam na server$line.local
    prvni-script.sh $line
done

tar -tvf soubor.tar

Vylistovaní .GZ (.TGZ)

tar -ztvf soubor.tar.gz

Vylistování .BZ2

tar -jtvf soubor.tar.bz2

Pokud potřebujeme zjistit počet souborů v archivu, stačí za vylistování přidat počítání řádků, např.:

tar -ztvf soubor.tar.gz | wc -l

No a třeba budete chtít .TGZ rozbalit

tar -xvz soubor.tar.gz -C /cesta/do/pekel

Základ je PERL script na checkování retence pásek v mechanikách – kontrola_pasek.pl:

##### KONFIGURACE #######
@pooly = ("CZ","HU","PL","RO","SK"); #konfigurace poolu v DP vždy obsahuje dané písmena - pro každou lokalitu vlasní pool
@mechaniky = ("cze","hun","pol","rom","svk"); #páskové mechaniky jsou pojmenovány také dle lokalit
$pocet_lokalit = 5; #nebyl čas dohledat fci v perlu na počet prvků v poli
#########################
$zapsat=''; #inicializace promenne kam se zapisuje vystup
$pocet_lokalit--; #pole je od 0 takze jednu odecteme

#projdeme vsechny lokality
for ($i=0;$i<=$pocet_lokalit;$i++) {
	#vylistujeme to, co je v mechanice, radek jen kde je mechanika
	$exec = "\"C:\\Program Files\\OmniBack\\bin\\omnimm.exe\" -repository_update \"HP:Ultrium 3-SCSI_".$mechaniky[$i]."win60ent00\""; #název serveru je dle konceptu, tzn doplňují se jen posledni písmenka
	#print "$exec\n"; #debug
	$vystup=`$exec`;

	#z vystupu potřebujeme jen název pásky, která je v mechanice
	@sekanec = split("Data Protector medium \"", $vystup);
	@sekanec = split("\" found.", $sekanec[1]);
	$sekanec = $sekanec[0];
	$sekanec =~ s/ //g; #regularnim vyrazem smazeme mezery
	#print $sekanec; #debug

	#zjistime z poolu jake maji retence
	$exec = "\"c:\\Program Files\\OmniBack\\bin\\omnimm.exe\" -list_pool \"Acc_".$pooly[$i]."\" | find \"$sekanec\""; #jak jsem psal výše, pooly jsou nazvané dle konceptu
	$vystup=`$exec`;
	#print $vystup; #debug
	#print length($sekanec);	 #debug	

	#pokud je v řetezci dvojtečka, je uveden čas (oáska má retenci). Dále musíme zjistit, zda to vůbec našlo pásku - dle počtu znaků řetezce s páskou
	$je_uvedena_retence = index($vystup, ':');
	if ( ($je_uvedena_retence>0) or (length($sekanec)<1) ) {
		if (length($sekanec)<1) { $sekanec = "NENÍ VLOŽENA PÁSKA"; }
		$zapsat .= "ERROR - PASKA:\"$sekanec\", MECHANIKA:\"HP:Ultrium 3-SCSI_".$mechaniky[$i]."win60ent00\"\n";
	} else {
		$zapsat .= "OK - PASKA:\"$sekanec\", MECHANIKA:\"HP:Ultrium 3-SCSI_".$mechaniky[$i]."win60ent00\"\n";

	}
}

#print "\n\n\n".$zapsat; #debug

#nakonec výstup zapíšeme do souboru (pro zaslání emailem)
open (MYFILE, '>c:\scripts\PIKOpasky.txt');
print MYFILE $zapsat;
close (MYFILE);

Dále je nutné mít mechanismus, který daný soubor zašle na email. Použivám již delší dobu jednoduchý VBS script – pikosendmail.vbs

Sub SendMail ()
	Dim objEmail, iAttachmenCount, aAttachment
	Const sSMTPserver = "666.666.666.666"
	aAttachment = Split(MailAttachment,";",-1,1)
 	Set objEmail = CreateObject("CDO.Message")
	objEmail.To = "PRIJEMCE@DOMENA.CZ"
	objEmail.ReplyTo = "ODESILATEL@DOMENA.CZ"
 	objEmail.Sender = "ODESILATEL@DOMENA.CZ"
	objEmail.AddAttachment "c:\scripts\PIKOpasky.txt" #p
	objEmail.Subject = "List of media"
	objEmail.Textbody = "Kontrolo vlozenych pasek"
	objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sSMTPserver
	objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
	objEmail.Configuration.Fields.Update
	objEmail.Send
End Sub
Call SendMail ()

No a zbývá nám udělat např. BATku, která spustí nejdříve kontrola_pasek.pl a poté pikosendmail.vbs, kterou následně nashedulujeme – piko_kontrola_pasek.bat

"C:\Program Files\OmniBack\bin\perl.exe" "C:\Program Files\OmniBack\bin\kontrola_pasek.pl"
cscript.exe C:\scripts\pikosendmail.vbs

C:\OmniBack\bin\omniabort.exe -session "%SESSIONKEY%"