#!/usr/bin/perl -w

do '../web-lib.pl';
$|=1;
&init_config();
%access=&get_module_acl;


&header("Serveur dédié OVH", "", "intro", 0, 1, undef,
        "Written by<BR><A HREF=mailto:hardware\@ovh.net>OVH</A><BR><A HREF=http://sd.ovh.fr>http://sd.ovh.fr</A>");

use DB_File;
use ovhmlib;

tie %LIST,'DB_File',"/etc/ovhm.db";

$ip = ovhmlib::get_ip();
$serveur = &get_system_hostname();

print <<FIN;
<hr>
<a href=restart.cgi>Redemarrer tous les services (pour prendre en compte les changements)</a>
<hr>

Domaines installés sur <b>$serveur</b> - $ip (<a href=#ajouter>Ajouter un domaine</a>)
<p><table border>
  <tr $tb><td>Nom de domaine</td><td>Utilisateur (ftp, mysql...)</td></tr>
FIN

foreach my $key (sort keys %LIST){
	my $val = $LIST{$key};
	print "<tr $cb><td><a href=modifier.cgi?domaine=$key>$key</a></td><td>$val</td></tr>" unless ($key =~ /_alias_/);
}
untie(%LIST);

print <<FIN;
  </table>
</table>

<hr>

<a name=ajouter>
<form action=creer.cgi method=POST>
<table border>
  <tr $tb><td>Ajouter un domaine</td></tr>
  <tr $cb><td>
  <table>

    <tr><td>
    Nom de domaine : 
    </td><td>
    www.<input name=nom size=30>

    </td></tr><tr><td>
    Mot de passe : 
    </td><td>
    <input type=password name=mdp1 size=10>

    </td></tr><tr><td>
    Confirmation : 
    </td><td>
    <input type=password name=mdp2 size=10>
    </td></tr><tr><td>

    </td></tr><tr><td>
    Email de contact :
    </td><td>
    <input name=email size=30>
    </td></tr><tr><td>

    Quotas : 
    </td><td>
    <input name=quotas size=10 value=50>&nbsp;Mo

    </td></tr><tr><td>
    Accès telnet / ssh : 
    </td><td>
    <input type=radio name=telnet value="oui">Oui <input type=radio name=telnet value="non" checked>Non

    </td></tr><tr><td>
    Créer une base Mysql :
    </td><td>
    <input type=radio name=mysql value="oui">Oui <input type=radio name=mysql value="non" checked>Non

    </td></tr><tr><td>
    <font size="-1">Mode verbeux</font>
    </td><td>
    <input type=checkbox name=verbeux value=oui>

    </td></tr><tr><td></td><td>
    <div align=right><input type=submit value="Créer"></div>
    </td></tr>
  </table>
</table>

<hr>
<a href=restart.cgi>Redemarrer tous les services (pour prendre en compte les changements)</a>
<hr>
<a href="http://$serveur/cgi-bin/sqwebmail">Webmail</a>
<br><a href="http://$serveur/cgi-bin/qmailadmin">Qmailadmin</a>
<br><a href="http://$serveur/test.php">PhpInfo</a>
<hr>
FIN


&footer("/", $text{'index'});
