Subversion Repositories ALCASAR

Rev

Rev 1 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log

Rev 1 Rev 34
Line 27... Line 27...
27 
		$strResult = 0;
 27 
		$strResult = 0;
28 
		// Déclaration des paramètres de connexion
 28 
		// Déclaration des paramètres de connexion
29 
		$host = "localhost";
 29 
		$host = "localhost";
30 
		$DB_USER = "radius";
 30 
		$DB_USER = "radius";
31 
		$DB_RADIUS = "radius";
 31 
		$DB_RADIUS = "radius";
32 
		$radiuspwd = "radius";
 32 
		$radiuspwd = "gLMmnOpk";
33 
		// Connexion au serveur
 33 
		// Connexion au serveur
34 
		mysql_connect($host, $DB_USER,$radiuspwd) or die("erreur de connexion au serveur");
 34 
		mysql_connect($host, $DB_USER,$radiuspwd) or die("erreur de connexion au serveur");
35 
		mysql_select_db($DB_RADIUS) or die("erreur de connexion a la base de donnees");
 35 
		mysql_select_db($DB_RADIUS) or die("erreur de connexion a la base de donnees");
36 
		// Creation et envoi de la requete
 36 
		// Creation et envoi de la requete
37 
		$query = "SELECT UserName FROM userinfo";
 37 
		$query = "SELECT UserName FROM userinfo";
Line 47... Line 47...
47 
		$strResult = 0;
 47 
		$strResult = 0;
48 
		// Déclaration des paramètres de connexion
 48 
		// Déclaration des paramètres de connexion
49 
		$host = "localhost";
 49 
		$host = "localhost";
50 
		$DB_USER = "radius";
 50 
		$DB_USER = "radius";
51 
		$DB_RADIUS = "radius";
 51 
		$DB_RADIUS = "radius";
52 
		$radiuspwd = "radius";
 52 
		$radiuspwd = "gLMmnOpk";
53 
		// Connexion au serveur
 53 
		// Connexion au serveur
54 
		mysql_connect($host, $DB_USER,$radiuspwd) or die("erreur de connexion au serveur");
 54 
		mysql_connect($host, $DB_USER,$radiuspwd) or die("erreur de connexion au serveur");
55 
		mysql_select_db($DB_RADIUS) or die("erreur de connexion a la base de donnees");
 55 
		mysql_select_db($DB_RADIUS) or die("erreur de connexion a la base de donnees");
56 
		// Creation et envoi de la requete
 56 
		// Creation et envoi de la requete
57 
		$query = "SELECT GroupName FROM radusergroup GROUP BY GroupName";
 57 
		$query = "SELECT GroupName FROM radusergroup GROUP BY GroupName";
Line 96... Line 96...
96 
	global $XPath;
 96 
	global $XPath;
97 
	global $text;
 97 
	global $text;
98 
 
 98 
 
99 
	$file_version = "/var/www/html/VERSION";
 99 
	$file_version = "/var/www/html/VERSION";
100 
	$handle = fopen ($file_version, "r");
 100 
	$handle = fopen ($file_version, "r");
101 
	$VERSIONPORTAIL = fread ($handle, filesize ($file_version));
 101 
	$INSTALLEDVERSION = fread ($handle, filesize ($file_version));
102 
	fclose ($handle);
 102 
	fclose ($handle);
103
- 
 
- 
 
 103 
	$version_stable = dns_get_record("version.alcasar.info",DNS_TXT);
- 
 
 104 
	$AVAILABLEDVERSION = $version_stable[0]['txt'];
- 
 
 105 
	$version_devel = dns_get_record("devel.alcasar.info",DNS_TXT);
- 
 
 106 
	$DEVELVERSION = $version_devel[0]['txt'];
104 
	$file_bl = "/var/www/html/VERSION-BL";
 107 
	$file_bl = "/var/www/html/VERSION-BL";
105 
	$handle = fopen ($file_bl, "r");
 108 
	$handle = fopen ($file_bl, "r");
106 
	$VERSIONBL = fread ($handle, filesize ($file_bl));
 109 
	$VERSIONBL = fread ($handle, filesize ($file_bl));
107 
	fclose ($handle);
 110 
	fclose ($handle);
108 
	$nbr_user = utilisateur ();
 111 
	$nbr_user = utilisateur ();
109 
	$nbr_grp  = groupe ();
 112 
	$nbr_grp  = groupe ();
110 
	$nbr_user_online = exec ("sudo /usr/sbin/chilli_query list | cut -d\" \" -f5 | grep \"1\" | wc -l");
 113 
	$nbr_user_online = exec ("sudo /usr/sbin/chilli_query list | cut -d\" \" -f5 | grep \"1\" | wc -l");
111 
	//$IP_PUB = exec ("wget http://checkip.dyndns.org/ -O - -o /dev/null | cut -d: -f 2 | cut -d\< -f 1");
- 
 
112 
 
 114 
 
113 
	if (InternetTest()){
 115 
	if (InternetTest()){
114 
		$internet_status =  "<img src='/images/state_ok.gif'>".$text['internet_enable'];
 116 
		$internet_status =  "<img src='/images/state_ok.gif'>".$text['internet_enable'];
115 
	} else {
 117 
	} else {
116 
		$internet_status =  "<img src='/images/state_error.gif'>".$text['internet_disable'];
 118 
		$internet_status =  "<img src='/images/state_error.gif'>".$text['internet_disable'];
117 
	}
 119 
	}
118
120
119 
	$_text = "<table border=\"0\" width=\"100%\" align=\"center\">\n"
 121 
	$_text = "<table border=\"0\" width=\"100%\" align=\"center\">\n"
120 
		. "  <tr>\n"
 122 
		. "  <tr>\n"
121 
		. "    <td valign=\"top\"><font size=\"-1\">" . $text['portail-version'] . "</font></td>\n"
 123 
		. "    <td valign=\"top\"><font size=\"-1\">" . $text['portail-version'] . "</font></td>\n"
- 
 
 124 
		. "    <td><font size=\"-1\">" . $INSTALLEDVERSION . "</font></td>\n"
- 
 
 125 
		. "  </tr>\n"
- 
 
 126 
		. "  <tr>\n"
- 
 
 127 
		. "    <td valign=\"top\"><font size=\"-1\">" . $text['portail-stable'] . "</font></td>\n"
- 
 
 128 
		. "    <td><font size=\"-1\">" . $AVAILABLEDVERSION . "</font></td>\n"
- 
 
 129 
		. "  </tr>\n"
- 
 
 130 
		. "  <tr>\n"
- 
 
 131 
		. "    <td valign=\"top\"><font size=\"-1\">" . $text['portail-devel'] . "</font></td>\n"
122 
		. "    <td><font size=\"-1\">" . $VERSIONPORTAIL . "</font></td>\n"
 132 
		. "    <td><font size=\"-1\">" . $DEVELVERSION . "</font></td>\n"
123 
		. "  </tr>\n"
 133 
		. "  </tr>\n"
124 
		. "  <tr>\n"
 134 
		. "  <tr>\n"
125 
		. "    <td valign=\"top\"><font size=\"-1\">" . $text['utilisateur'] . "</font></td>\n"
 135 
		. "    <td valign=\"top\"><font size=\"-1\">" . $text['utilisateur'] . "</font></td>\n"
126 
		. "    <td><font size=\"-1\">" . $nbr_user_online . " / " . $nbr_user . "</font></td>\n"
 136 
		. "    <td><font size=\"-1\">" . $nbr_user_online . " / " . $nbr_user . "</font></td>\n"
127 
		. "  </tr>\n"
 137 
		. "  </tr>\n"
Line 131... Line 141...
131 
		. "  </tr>\n"
 141 
		. "  </tr>\n"
132 
		. "  <tr>\n"
 142 
		. "  <tr>\n"
133 
		. "    <td valign=\"top\"><font size=\"-1\">" . $text['bl-version'] . "</font></td>\n"
 143 
		. "    <td valign=\"top\"><font size=\"-1\">" . $text['bl-version'] . "</font></td>\n"
134 
		. "    <td><font size=\"-1\">" . $VERSIONBL . "</font></td>\n"
 144 
		. "    <td><font size=\"-1\">" . $VERSIONBL . "</font></td>\n"
135 
		. "  </tr>\n"
 145 
		. "  </tr>\n"
136 
		/*. "  <tr>\n"
 - 
 
137 
		. "    <td valign=\"top\"><font size=\"-1\">" . $text['public-ip'] . "</font></td>\n"
 - 
 
138 
		. "    <td><font size=\"-1\">" . $IP_PUB . "</font></td>\n"
 - 
 
139 
		. "  </tr>\n"*/
 - 
 
140 
		. "  <tr>\n"
 146 
		. "  <tr>\n"
141 
		. "    <td valign=\"top\"><font size=\"-1\">" . $text['internet_link'] . "</font></td>\n"
 147 
		. "    <td valign=\"top\"><font size=\"-1\">" . $text['internet_link'] . "</font></td>\n"
142 
		. "    <td><font size=\"-1\">" . $internet_status . "</font></td>\n"
 148 
		. "    <td><font size=\"-1\">" . $internet_status . "</font></td>\n"
143 
		. "  </tr>\n"
 149 
		. "  </tr>\n"
144 
		. "  <tr>\n"
 150 
		. "  <tr>\n"