- alias list.write {
- if (!%listpath) { set %listpath liste.html }
- if ($var(%create.*,1)) {
- write -c %listpath <center><b>Liste Des salles:</b><br>
- write %listpath <table cellpadding="0" cellspacing="1" border="0" style="width: 90%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="Black">
- write %listpath <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White">Users</font></b><br></td>
- write %listpath <td style="vertical-align: top;"><b><font face="verdana" size="1" color="White">Nom de la salle</font></b><br></td>
- write %listpath <td style="vertical-align: top;"><b><font face="verdana" size="1" color="White">Sujet</font></b><br></td>
- write %listpath <td style="vertical-align: top;"><b><font face="verdana" size="1" color="White">Modes</font></b><br></td></tr>
- var %n = 1
- var %a = 1
- while (%n <= $var(%create.*,0)) {
- if (%a == 2) { write %listpath <tr bgcolor="bbbbbb"><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2),\b,$chr(32)) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,modes,room) </font></td></tr> | dec %a }
- elseif (%a == 1) { write %listpath <tr bgcolor="dddddd"><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2),\b,$chr(32)) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,modes,room) </font></td></tr> | inc %a }
- inc %n
- }
- write %listpath </table></center> |
- }
- else {
- write -c %listpath <center><b>Liste Des salles:</b><br>
- write %listpath Aucune salle Disponible pour le moment
- write %listpath </center> |
- }
- }
alias list.write {
if (!%listpath) { set %listpath liste.html }
if ($var(%create.*,1)) {
write -c %listpath <center><b>Liste Des salles:</b><br>
write %listpath <table cellpadding="0" cellspacing="1" border="0" style="width: 90%; text-align: left;" bordercolor="#A0a0a0"><tr bgcolor="Black">
write %listpath <td style="vertical-align: top;" width="50"><b><font face="verdana" size="1" color="White">Users</font></b><br></td>
write %listpath <td style="vertical-align: top;"><b><font face="verdana" size="1" color="White">Nom de la salle</font></b><br></td>
write %listpath <td style="vertical-align: top;"><b><font face="verdana" size="1" color="White">Sujet</font></b><br></td>
write %listpath <td style="vertical-align: top;"><b><font face="verdana" size="1" color="White">Modes</font></b><br></td></tr>
var %n = 1
var %a = 1
while (%n <= $var(%create.*,0)) {
if (%a == 2) { write %listpath <tr bgcolor="bbbbbb"><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2),\b,$chr(32)) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,modes,room) </font></td></tr> | dec %a }
elseif (%a == 1) { write %listpath <tr bgcolor="dddddd"><td style="vertical-align: top;"><font face="verdana" size="1"> $lines(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .txt) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $replace($right($gettok($var(%create.*,%n),2,$asc(.)),-2),\b,$chr(32)) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,info,topic) </font></td><td style="vertical-align: top;"><font face="verdana" size="1"> $readini(rooms/ $+ $gettok($var(%create.*,%n),2,$asc(.)) $+ .ini,modes,room) </font></td></tr> | inc %a }
inc %n
}
write %listpath </table></center> |
}
else {
write -c %listpath <center><b>Liste Des salles:</b><br>
write %listpath Aucune salle Disponible pour le moment
write %listpath </center> |
}
}