Ajout d'un message d'erreur quand vador est down, plutôt que le mot de passe en clair...

getGraphsFDN/base.html

@@ -18,6 +18,15 @@
 		padding: 10px;
 		color: #FFF;
 	}
+
+	div#error {
+		background-color: #eee;
+		border-bottom: 1px solid #f00;
+		padding: 20px;
+		font-weight: bold;
+		text-align: center;
+		vertical-align: center;
+	}
 -->
 </style>
 </head>

getGraphsFDN/getGraphsFDN.pl

@@ -1,9 +1,8 @@
 #!/usr/bin/perl
 
-# Recuperation des graphiques de consommation de FDN dans le repertoire courant
-# a partir des identifiants d'adherent du FAI en marque blanche (depuis le
-# 31/10/11, l'identification avec le login radius d'un ligne n'est plus
-# possible).
+# Recuperation des graphiques de consommation de FDN a partir des identifiants
+# d'adherent du FAI en marque blanche (depuis le 31/10/11, l'identification avec
+# le login radius d'un ligne n'est plus possible).
 #
 # USAGE: ./% prenom nom
 
@@ -21,15 +20,22 @@ if(@ARGV != 2) {
 }
 
 # Identifiants d'adherent du FAI en marque blanche
-my $adh_login = 'adhacc-XXX';
+my $adh_login = '';
 my $adh_pwd = '';
 
 # Abonne concerne
 my $prenom = $ARGV[0];
 my $nom = $ARGV[1];
 
-# Identification sur le SI de FDN
-$mech->get("https://vador.fdn.fr/adherents/index.cgi?adhlogin=$adh_login&adhpasswd=$adh_pwd&do=yes");
+eval {
+	# Identification sur le SI de FDN
+	$mech->get("https://vador.fdn.fr/adherents/index.cgi?adhlogin=$adh_login&adhpasswd=$adh_pwd&do=yes");
+};
+
+if($@) {
+	print "<div id='error'>Le service semble indisponible actuellement,<br />la version des graphs consultés dernièrement est affichée.</div>";
+	exit 1;
+}
 
 # Recuperation de l'ID de session dans l'URL de redirection (aucun cookie)
 my $graphs_uri = $mech->uri();