Customize

Jm0u · 2005-11-22 21:18:35

Bonjour,

Tout d'abord bravo pour la customization.

Serait'il possible d'avoir ton code concernant la recuperation des sauvegardes.

Merci d'avance et encore bravo pour ton travaille

Jm0u

sevenman · 2005-11-23 11:59:21

Ce code ne fait qu'afficher des pages HTML générées toutes les nuit par VBscript et rapatriées par FTP tout les matins. Il ne recupere pas les sauvegarde mais juste les rapports HTML.

script de generation de l'html (vous avez besoin de et dans le repertoire des rapports ainsi que d'un logo.gif):

dim trouve

Const ForReading = 1
Const ForCreating = 2
Const ForAppending = 8

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service")

'Fichiers sql dans c:\sauve et f:\sauve afin de verifier + tard leur date de modification

Set colFilesC = objWMIService.ExecQuery _
("Select * from CIM_Datafile Where name like '%c:\\sauve\\%'and Extension='sql'")
Set colFilesF = objWMIService.ExecQuery _
("Select * from CIM_Datafile Where name like '%f:\\sauve\\%'and Extension='sql'")

'Fichier de log d'export Oracle

Set objFSOreadOracle = CreateObject("Scripting.FileSystemObject")

'Fichier de log CA ArcServe

Set objFSOreadARCSERVE = CreateObject("Scripting.FileSystemObject")

'Creation du fichier HTML rapport.html

Set objFSOwrite = CreateObject("Scripting.FileSystemObject")
Set objTextFilewrite = objFSOwrite.OpenTextFile ("R:\HTML\rapport.htm", ForCreating , True)

'debut generation Code HTML

objTextFilewrite.WriteLine("<html>" & VbCrLf & "<head>" & VbCrLf & _
"<title>Titre</title>" & VbCrLf & _
"</head>" & VbCrLf & "<body bgcolor='white'>" & VbCrLf & _
"<center><img src='./logo.gif'></img>" & VbCrLf & _
"<h3> Rapport de Sauvegarde Oracle</h3></center>" & VbCrLf &_
"<table width='' ALIGN='center' bgcolor='#ffffff' border='0'>" & VbCrLf &_
"<tr>" & VbCrLf &_
"<td width='80'>Date</td>"& VbCrLf &_
"<td width='80'>Heure</td>"& VbCrLf &_
"<td width='160'>Nom</td>"& VbCrLf &_
"<td width='40'>statuts</td>"& VbCrLf &_
"</tr>")

trouve =false
Set objTextFilereadOracle = objFSOreadOracle.OpenTextFile("R:\Oracle\sauvegarde\log\Oracle.log", ForReading)
Do While objTextFilereadOracle.AtEndOfStream <> True
compteur = compteur + 1
strLinetoParse = objTextFilereadOracle.ReadLine
if InStr(strLinetoParse,"Procédure d'export terminée avec succès.") then
trouve =true
end if
Loop
objTextFilewrite.WriteLine("<tr><td>" & Date() & "</td><td>" & Time() & "</td>" )
objTextFilewrite.WriteLine("<td>Oracle</td><td align='center'>")
if trouve then
objTextFilewrite.WriteLine("<img src=./ok.gif></img></td></tr>")
else
objTextFilewrite.WriteLine("<img src=./pasok.gif></img></td></tr>")
end if
objTextFilereadOracle.Close

objTextFilewrite.WriteLine("</table>")

'Lecture des services et affichage de leur etat

objTextFilewrite.WriteLine("<center><h3> statuts des Services </h3></center>")
objTextFilewrite.WriteLine("<table width='' ALIGN='center' bgcolor='#ffffff' border='0'>" & VbCrLf &_
"<tr>" & VbCrLf &_
"<td width='200' align='center'>Nom</td>"& VbCrLf &_
"<td width='40'>statuts</td>"& VbCrLf &_
"</tr>")
'on teste ici si les services sont ceux d'oracle ou Arcserve
For Each objService in colListOfServices
if ((InStr(objService.Name,"OracleService")>0) or (InStr(objService.Name,"OracleOraHome81TNSListener")>0) or (InStr(objService.Name,"Centura")>0) or (InStr(objService.Name,"CASTapeEngine")>0) or (InStr(objService.Name,"CASDBEngine")>0) or (InStr(objService.Name,"CASJobEngine")>0) ) then
objTextFilewrite.WriteLine("<tr><td align='center'>" & (objService.Name) & "</td>")
if InStr(objService.State,"Stopped")>0 then
objTextFilewrite.WriteLine("<td align='center'><img src=./pasok.gif></img></td></tr>")

else
objTextFilewrite.WriteLine("<td align='center'><img src=./ok.gif></img></td></tr>")
end if

end if
Next
objTextFilewrite.WriteLine("</table>")

'On lit ici les dates de modifications des fichiers SQL

objTextFilewrite.WriteLine("<center><h3> statuts des Sauvegardes SQLBase </h3></center>")
objTextFilewrite.WriteLine("<table width='' ALIGN='center' bgcolor='#ffffff' border='0'>" & VbCrLf &_
"<tr>" & VbCrLf &_
"<td width='120' align='center'>Nom</td>"& VbCrLf &_
"<td width='40' align='center'>Emplacement</td>"& VbCrLf &_
"<td width='200' align='center'>Dernière Sauvegarde</td>"& VbCrLf &_
"<td width='40' align='center'>statuts</td>"& VbCrLf &_
"</tr>")
For Each objFile in colFilesC
objTextFilewrite.WriteLine("<tr><td align='center'>" & (objFile.FileName)&"." & (objFile.Extension) & "</td>")
objTextFilewrite.WriteLine("<td align='center'>" & (objFile.drive & objFile.path) & "</td>")
objTextFilewrite.WriteLine("<td align='center'>" & WMIDateStringToDate(objFile.LastModified) & "</td>")
if DateDiff("h",WMIDateStringToDate(objFile.LastModified),now) > 24 then
objTextFilewrite.WriteLine("<td align='center'><img src=./pasok.gif></img></td></tr>")

else
objTextFilewrite.WriteLine("<td align='center'><img src=./ok.gif></img></td></tr>")
end if

Next
For Each objFile in colFilesF
objTextFilewrite.WriteLine("<tr><td align='center'>" & (objFile.FileName)&"." &(objFile.Extension) & "</td>")
objTextFilewrite.WriteLine("<td align='center'>" & (objFile.drive & objFile.path) & "</td>")
objTextFilewrite.WriteLine("<td align='center'>" & WMIDateStringToDate(objFile.LastModified) & "</td>")
if DateDiff("h",WMIDateStringToDate(objFile.LastModified),now) > 24 then
objTextFilewrite.WriteLine("<td align='center'><img src=./pasok.gif></img></td></tr>")

else
objTextFilewrite.WriteLine("<td align='center'><img src=./ok.gif></img></td></tr>")
end if
Next
objTextFilewrite.WriteLine("</table>")

'Lecture du log ARCSERVE utilisation de fonctions de detag et dateligne car le log arc serve ressemble à:
'[06/01/2005-16:28:01 ,1,0,0,0,-1,2,3,0,0] Le moteur de messages est démarré.
'[06/01/2005-16:30:44 ,1,0,0,0,-1,2,3,0,0] Le moteur de base de données est démarré.(VLDB)
'[06/01/2005-16:30:52 ,1,0,0,0,-1,2,3,0,0] Le moteur de jobs a démarré sur le serveur [Nom : SERVEUR-901A] [IP(s) : 192.168.1.100]
'[06/01/2005-16:41:13 ,1,0,0,0,-1,2,3,0,0] Le moteur de jobs est arrêté.

Set objTextFilereadARC = objFSOreadARCSERVE.OpenTextFile("C:\Program Files\CA\BrightStor ARCserve Backup\LOG\BrightStor.log", ForReading)
objTextFilewrite.WriteLine("<center><h3> statuts des Sauvegardes sur Bande </h3>")
debut =false
Do While objTextFilereadARC.AtEndOfStream <> True
strLinetoParse = objTextFilereadARC.ReadLine
if DateDiff("h",dateligne(strLinetoParse ),now) < 24 then
if (InStr(strLinetoParse,"Nombre de répertoires sauvegardés")>0) then
   debut =true
   objTextFilewrite.WriteLine("<h3>Sauvegarde du " & dateligne(strLinetoParse )& "</h3>")
end if
if debut then
   objTextFilewrite.WriteLine(detag(strLinetoParse))
   objTextFilewrite.WriteLine("<br>" )
end if

if ((InStr(strLinetoParse,"Opération Sauvegarde réussie.")>0) or (InStr(strLinetoParse,"Opération Sauvegarde incomplète.")>0)) then
   debut = false
end if
end if
Loop

objTextFilewrite.WriteLine("</center></body>" & VbCrLf & _
"</html>")

objTextFilewrite.Close

Function WMIDateStringToDate(dtmBootup)
WMIDateStringToDate = CDate(Mid(dtmBootup, 7, 2) & "/" & _
Mid(dtmBootup, 5, 2) & "/" & Left(dtmBootup, 4) _
& " " & Mid (dtmBootup, 9, 2) & ":" & _
Mid(dtmBootup, 11, 2) & ":" & Mid(dtmBootup,13, 2))
End Function

Function detag(strg)
u=strg
fin=""
x=0
for i=1 to len(u)
te=mid (u,i,1)

if te="[" or x=1 then
if te="[" then
x=1
else
if te="]" then
x=0
end if
end if

else
fin=fin&te
end if
next
detag=fin
End Function

function dateligne(ligne)
dat = mid(ligne,5,2) & "/" & mid (ligne,2,2) & "/" & mid (ligne,8,4) & " " & mid (ligne,13,8)
dateligne = cdate(dat)
end function

le script de mise à jour via FTP est un batch en tache planifiée

copy "R:\HTML\rapport.htm" "R:\HTML\dist\serveur1.htm" /Y
ftp -inv -s:"cmd.ftp" -v

avec cmd.ftp=

open AdresseServeurFTP
USER USER MDP
lcd R:\HTML\dist
ascii
mput serveur1.htm
bye

Voila ....

J'ai ensuite dans /glpi/glpi/common/functions.php modifié apres

if ($navigation->utils) {
echo "<td align='center' valign='top' width='20%'>\n";
echo "<img class='icon_nav' src=\"".$HTMLRel."pics/outils.png\" alt=\"\" title=\"".$lang["Menu"][18]."\"><br>\n";
echo "<span class='menu_title'>".$lang["Menu"][18]."</span><br>\n";
foreach ($utils as $key => $val) {
echo "<span class='menu'><a href=\"".$cfg_install["root"].$val[0]."\" accesskey=\"".$val[1]."\">".$key."</a></span><br>\n";
}
echo "</td>\n";
}

// Sites par Sevenman****************************************************************************
// va lire le repertoire ip/rapports (rep root du serveur FTP) et liste tout les fichier HTML, creer un lien et les ouvre dans une
// nouvelle fentre

$dirsites=$phproot."/ip/rapports";
$dh = opendir($dirsites);
while (false !== ($filename = readdir($dh))) {

      if ($filename!="CVS"&&$filename!="."&&$filename!=".."){
      $sites[]=$filename;
   }
}
if (isset($sites)&&count($sites)>0){
echo "<td align='center' valign='top'>\n";
echo "<img class='icon_nav' src=\"".$HTMLRel."pics/plugins.png\" alt=\"\" title=\"".$lang["Menu"][15]."\"><br>\n";
echo "<span class='menu_title'>Rapports</span><br>\n";
$i=0;
echo "<table cellspacing='0' border='0' cellpadding='0'>\n";
echo "<tr><td colspan='3'>";
foreach ($sites as $key => $val) {
if ($i%2==1) echo "</td><td style='border-left:1px groove #000000; border-right:1px groove #000000'> </td><td style='padding-left:5px; padding-right:5px;' align='center' width='45%'>\n";
   else echo "</td></tr><tr><td style='padding-left:5px; padding-right:5px;' align='center' width='45%'>\n";
$Nom = explode(".", $val);
if ($Nom[1]=="gif"){
}
else {
echo "<span class='menu'><a href='#' onClick=\"window.open('/ip/rapports/".$val."','".$Nom[0]."', 'resizable=yes,scrollbars=yes,statuts=yes,width=800,height=600,fullscreen=no,top=0,left=0');\">$Nom[0]</a>\n";
$i++;
}

}
if ($i%2==1) echo "</td><td style='border-left:1px groove #000000; border-right:1px groove #000000'> </td><td style='padding-left:5px; padding-right:5px;' align='center' width='45%'>\n";
else echo "</td></tr><tr><td style='padding-left:5px; padding-right:5px;' align='center' width='45%'>\n";
echo "</td></tr></table>\n";
//if ($i%2==1) echo "</td><td style='border-left:1px groove #000000; border-right:1px groove #000000'> test</td><td style='padding-left:5px; padding-right:5px;' align='center' width='45%'>\n";
//else echo "</td></tr><tr><td style='padding-left:5px; padding-right:5px;' align='center' width='45%'>\n";
echo "<span class='menu'><a href='#' onClick=\"window.open('/ip/all.php','".$Nom[0]."', 'resizable=yes,scrollbars=yes,statuts=yes,width=800,height=600,fullscreen=no,top=0,left=0');\">Tous</a>\n";
//echo "</td></tr></table>\n";

}

voila ....

Last edited by sevenman (2005-11-23 12:12:51)

aurel · 2005-11-27 18:38:39

C'est clair que ça peut donner une fois de plus une certaine valeur à GLPI qui est déjà plus qu'exploitable .

Jm0u · 2005-12-14 00:29:46

Bonsoir,

Concernant la possibilité de se connecter à des bureaux distants je viens de faire un plugin totalement "incorporable" dans glpi.

Un mail à JMD et à la liste de distrib des dev à était envoyé afin d'avoir des remontés sur le plugin.

Voilà un petit post a titre d'information

Maintenant il reste plus que le plugin avec les graphs lol

Bonne nuit

Jm0u

jm.cierniewski · 2005-12-14 08:17:47

Salut Jmou,
j'ai tout une plateforme de test de glpi, versions 0.65...
je veux bien tester ton plugin...( en plus j'attendais cette fonctionnalité avec impatience )
je t'ai envoyé un mail avec mon adresse mail
Bonne matinée

JMD · 2005-12-14 12:56:05

Jm0u wrote:

Bonsoir,

Un mail à JMD et à la liste de distrib des dev à était envoyé afin d'avoir des remontés sur le plugin.

J'ai rien reçu en tout cas , ni sur la liste de dev, ni sur sur ma boite.

Jm0u · 2005-12-14 14:16:22

Bizrd ça je te le renvoie JMD

EDIT : C'est je te les renvoyé

Jm0u

Last edited by Jm0u (2005-12-14 14:30:31)

jm.cierniewski · 2005-12-15 11:19:21

Pas mal votre plugin mr JmOu, il fonctionne bien, mème si j'ai des erreures qui apparaissent quand je lie des fichiers ( mais c'est sans doute du à mon probléme sql...)
par contre petite remarque. lors qu'on à beaucoup de serveurs, ( 500) la page risque d'étre vite encombrée.
Sinon, vous m'avez donné la solution.
je met dans les documents les x.rdp correspondant à mes serveurs, puis je lie ces documents aux machines concernées. Résultat, quand je suis sur une machine, j'ai le lien rdp au niveau document de la machine ... du coup je ne passe mème plus par le plugin
c'est génial ... merci msieur JmOu

Jm0u · 2005-12-15 11:34:44

De rien jm une communauté sert a cela.

Le fait de lier le doc .rdp au pc en question n'est pas con aussi mais dans mon plugin cela permet de les regrouper

je vais voir pour integrer a ce plugin une recherche car si tu me dis que tu a 500 machine en connexion RDP c clair que ca doit être le bordel donc je vais regarder ca.

Maintenant je vois l'utiliter de la recherche.

Je te redis sa jm

Jm0u

Jm0u · 2005-12-16 14:39:56

Avis au dévellopeur.

Je viens de faire évoluer mon plugin pour les bureaux distant.

L'ajout d'un bureaux distant dans la base avec l'ip et le nom genere automatique un fichier .rdp.

Cependant je narrive pas a mettre le fichier generer dans le rep /doc/RDP/ alors que si je veux le mettre a la racine du plugin ca marche nickel.

Je vous met ci-dessous le code que j'utilise afin d'envoyer le fichier dans docs/RDP/

$handle = fopen($cfg_install["root"]."/docs/RDP/".$file.".rdp", "w+");

Le repertoire docs/RDP existe je ne voie pas pourquoi ( jai bien les droits sur ce fichier) ca ne genere pas mon fichier dans le rep alors que si je tape la meme variable comme si dessous le fichier se creer bien a la racine de mon fichier.

$handle = fopen("./".$file.".rdp", "w+");

merci d'avance.

Jm0u

Jm0u · 2005-12-16 14:43:09

Maintenant plus besoin de creer auparavant les fichier RDP et les importer dans la base de document, cela se creer automatiquement c'est trop bon :):)

sevenman · 2005-12-16 15:25:41

Je suis preneur de la version Plugin des bureau distant,

Pour ma part, J'ai modifié le script PHP de création de fichier RDP afin qu'il prenne en Deuxieme parametre un numero de port
afin de traverser un Routeur avec des redirection du type port TCP 100 en entree vers IPMACHINE:3389
Voila.

J'ai rencontré quelques probleme avec le type mime application/octet-stream, Firefox me lancait bien le bureau mais IE l'ouvrait et afficher le fichier RDP. J'ai donc creer un type mime application/rdp et la ca fonctionne correctement ..!

Merci à Tous pour le boulot effectué sur les bureau distants, ca represente un vrai + pour GLPI ....

Jm0u · 2005-12-16 15:33:13

je te transfert le plugin tout nouveau je peux même intégrer le port si ça peut apporter un plus

jm.cierniewski · 2005-12-16 15:53:51

Et moi et moi
Moi aussi jle veu

jm.cierniewski · 2005-12-16 15:56:18

y aurrai moyen de créer des regroupement des serveurs en se basant sur le champ lieu qui existe déja dans glpi ?
afin de ne pas avoir tout les serveurs en liste plate ?

Jm0u · 2005-12-16 15:57:46

c'est a dire ?

Tu voudrai dans le plugin des bureaux distant pouvoir associé un lieu au bureaux distant ?

jm.cierniewski · 2005-12-16 16:18:25

quand on ouvre ton plugin, on se retrouve avec la liste de tout les serveurs pour lesquels on a mis en place le rdp. Si on n'à que quelque serveurs, ça va, mais si on en a toute une tripotée, il pourrait ètre avantageux de pouvoir viltrer la vue , cela pourrait ètre fait soit par un filtre évolué , soit en se basant directement sur le champ "lieu" que l'on peu renseigner dans glpi...
C'était juste une idée pour faire avancer le schmilblik

Jm0u · 2005-12-16 17:02:54

j'ai mis la recherche pour les bureau distant dans le plugin qui permet de faire une recherche

Jm0u

jm.cierniewski · 2005-12-16 17:21:31

chouette
tu peu m'envoyer par mail le plugin ?
Merci

Jm0u · 2005-12-16 17:34:30

Je tenvoi ca ce soir :)

Jm0u

jm.cierniewski · 2005-12-16 17:55:37

oki merci

JMD · 2005-12-17 02:48:05

Pour Jmou

Pour votre problème il faut ajouter dans votre fonction install

Un test sur la création du rep sinon création ex :

if (!is_dir($cfg_install["doc_dir"]."/".$dir)){
@mkdir($cfg_install["doc_dir"]."/".$dir);
}

Et utiliser la variable $cfg_install["doc_dir"] dans votre fonction generaterdp

Jm0u · 2005-12-17 11:11:38

Merci JMG.

Maintenant ca marche nickel

Jm0u

jm.cierniewski · 2005-12-17 11:27:33

salut jmOu, tu peu m'envoyer ton plugin steplay, j'ai hate de le tester
jm.cierniewski@wanadoo.fr
merci msieur

Jm0u · 2005-12-17 12:21:32

Envoyé :)

Forum GLPI-Project

Announcement

#26 2005-11-22 21:18:35

Re: Customize

#27 2005-11-23 11:59:21

Re: Customize

#28 2005-11-27 18:38:39

Re: Customize

#29 2005-12-14 00:29:46

Re: Customize

#30 2005-12-14 08:17:47

Re: Customize

#31 2005-12-14 12:56:05

Re: Customize

#32 2005-12-14 14:16:22

Re: Customize

#33 2005-12-15 11:19:21

Re: Customize

#34 2005-12-15 11:34:44

Re: Customize

#35 2005-12-16 14:39:56

Re: Customize

#36 2005-12-16 14:43:09

Re: Customize

#37 2005-12-16 15:25:41

Re: Customize

#38 2005-12-16 15:33:13

Re: Customize

#39 2005-12-16 15:53:51

Re: Customize

#40 2005-12-16 15:56:18

Re: Customize

#41 2005-12-16 15:57:46

Re: Customize

#42 2005-12-16 16:18:25

Re: Customize

#43 2005-12-16 17:02:54

Re: Customize

#44 2005-12-16 17:21:31

Re: Customize

#45 2005-12-16 17:34:30

Re: Customize

#46 2005-12-16 17:55:37

Re: Customize

#47 2005-12-17 02:48:05

Re: Customize

#48 2005-12-17 11:11:38

Re: Customize

#49 2005-12-17 11:27:33

Re: Customize

#50 2005-12-17 12:21:32

Re: Customize

Board footer