Logo Search packages:      
Sourcecode: octopussy version File versions  Download package

AAT_Config_Database.inc

<%
my %arg = @_;
my $tt = $arg{tooltip};
my $db = AAT::DB::Configuration($arg{appli});
my ($type, $host, $user, $password, $base) =
  ($db->{type}, $db->{host}, $db->{user}, $db->{password}, $db->{db});

my $status = AAT::DB::Connection_Test($arg{appli});
my ($level, $msg) = ($status ? (0, "Database Connection is OK !") 
      : (2, "Database Connection is NOT OK !"));
%>
<AAT:Box width="100%">
<AAT:Form method="POST" action="$arg{action}">
<AAT:Form_Hidden name="config" value="database" />
<AAT:BoxRow>
  <AAT:BoxCol><AAT:Label value="Database" style="B" tooltip="$tt" />
      </AAT:BoxCol>
  <AAT:BoxCol>
  <AAT:Label value="_TYPE" style="B" tooltip="$tt" /></AAT:BoxCol>
  <AAT:BoxCol cspan="2">
  <!--<AAT:Selector_Database name="db_type" selected="$type" />-->
  <AAT:Form_Hidden name="db_type" value="mysql" />        
  <AAT:Label value="MySQL" style="B" />
  </AAT:BoxCol>
</AAT:BoxRow>
<AAT:BoxRow>
  <AAT:BoxCol rspan="4">
      <AAT:IMG name="generic_database" tooltip="$tt" width="64" height="64" /></AAT:BoxCol>
  <AAT:BoxCol>
  <AAT:Label value="_SERVER" style="B" tooltip="$tt" /></AAT:BoxCol>
  <AAT:BoxCol cspan="2">
  <AAT:Entry name="db_host" value="$host" size="50" /></AAT:BoxCol>
</AAT:BoxRow>
<AAT:BoxRow>
  <AAT:BoxCol>
  <AAT:Label value="_USER" style="B" tooltip="$tt" /></AAT:BoxCol>
  <AAT:BoxCol cspan="2">
  <AAT:Entry name="db_user" value="$user" size="50" /></AAT:BoxCol>
</AAT:BoxRow>
<AAT:BoxRow>
  <AAT:BoxCol>
  <AAT:Label value="_PASSWORD" style="B" tooltip="$tt" /></AAT:BoxCol>
  <AAT:BoxCol cspan="2">
  <AAT:Password name="db_password" value="$password" size="50" /></AAT:BoxCol>
</AAT:BoxRow>
<AAT:BoxRow>
  <AAT:BoxCol>
  <AAT:Label value="_BASE" style="B" tooltip="$tt" /></AAT:BoxCol>
  <AAT:BoxCol cspan="2">
  <AAT:Entry name="db_database" value="$base" size="50" /></AAT:BoxCol>
</AAT:BoxRow>
<AAT:BoxRow>
      <AAT:BoxCol cspan="2"></AAT:BoxCol>
      <AAT:BoxCol><AAT:Form_Submit value="_UPDATE" /></AAT:BoxCol>
      <AAT:BoxCol><AAT:Message level="$level" msg="$msg" /></AAT:BoxCol>
</AAT:BoxRow>
</AAT:Form>
</AAT:Box>

Generated by  Doxygen 1.6.0   Back to index