Alzabo-GUI-Mason

 view release on metacpan or  search on metacpan

mason/execute_sql.mhtml  view on Meta::CPAN

<p>
<a href="view_schema<% Alzabo::GUI::Mason::Config::mason_extension() %>?schema=<% $s->name | u %>">Back</a>
</p>

</div>

  </td>
<%args>
$s
$user => undef
$password => undef
$host => undef
$port => undef
</%args>

<%init>
eval
{
    $s->create( user => $user,
		password => $password,
		host => $host,
		port => $port,
	      );
    $s->save_to_file;
};

my $e = $@;

$m->comp( 'exception', $e ) if $e;
</%init>

mason/execute_sync_sql.mhtml  view on Meta::CPAN

<p>
<a href="view_schema<% Alzabo::GUI::Mason::Config::mason_extension() %>?schema=<% $s->name | u %>">Back</a>
</p>

</div>

  </td>
<%args>
$s
$user => undef
$password => undef
$host => undef
$port => undef
</%args>

<%init>
eval
{
    $s->sync_backend( user => $user,
		      password => $password,
		      host => $host,
		      port => $port,
		    );
    $s->save_to_file;
};

my $e = $@;

$m->comp( 'exception', $e ) if $e;
</%init>

mason/index.mhtml  view on Meta::CPAN

   <td><input class="h4" type="textfield" name="name" size="20"></td>
  </tr>

  <tr>
   <td width="30%"><h4>Username:</h4></td>
   <td><input class="h4" type="textfield" name="username" size="20"></td>
  </tr>

  <tr>
   <td width="30%"><h4>Password:</h4></td>
   <td><input class="h4" type="password" name="password" size="20"></td>
  </tr>

  <tr>
   <td width="30%"><h4>Host:</h4></td>
   <td><input class="h4" type="text" name="host" size="20"></td>
  </tr>

  <tr>
   <td width="30%"><h4>Port:</h4></td>
   <td><input class="h4" type="text" name="port" size="6"></td>

mason/login_form.mas  view on Meta::CPAN

 <h4>Username:</h4>
 <input type="text" name="user"><br>
 <h4>Password:</h4>
 <input type="password" name="password"><br>
 <h4>Host:</h4>
 <input type="text" name="host"><br>
 <h4>Port:</h4>
 <input type="text" name="port"><br>

mason/reverse_engineer.mhtml  view on Meta::CPAN

<%args>
$name
$username => undef
$password => undef
$host => undef
$port => undef
$rdbms
</%args>

<%init>

my $s;
eval
{
    $s = Alzabo::Create::Schema->reverse_engineer( name => $name,
						   rdbms => $rdbms,
						   user => $username,
						   password => $password,
						   host => $host,
						   port => $port,
						 );

    $s->save_to_file;
};

my $e = $@;

$m->comp( 'exception', $e ) if $e;

mason/view_sync_sql.mhtml  view on Meta::CPAN

<a href="view_schema<% Alzabo::GUI::Mason::Config::mason_extension() %>?schema=<% $s->name | u %>">Back</a>
</p>
% }

</div>

  </td>
<%args>
$s
$user => undef
$password => undef
$host => undef
$port => undef
</%args>
<%init>
my @sql;
eval
{
    @sql = $s->sync_backend_sql( user => $user,
				 password => $password,
				 host => $host,
				 port => $port,
			       );
};

my $e = $@;

$m->comp( 'exception', $e ) if $e;

</%init>