mirror of https://github.com/sipwise/www_admin.git
Daniel Tiefnig
15 years ago
parent
187aeb5abe
commit
9d35039b68
@ -1,226 +0,0 @@
|
|||||||
package admin::Controller::xmlctrl;
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
use warnings;
|
|
||||||
use base 'Catalyst::Controller';
|
|
||||||
use Data::Dumper;
|
|
||||||
use UNIVERSAL 'isa';
|
|
||||||
|
|
||||||
|
|
||||||
=head1 NAME
|
|
||||||
|
|
||||||
admin::Controller::xmlctrl - Catalyst Controller
|
|
||||||
|
|
||||||
=head1 DESCRIPTION
|
|
||||||
|
|
||||||
Catalyst Controller.
|
|
||||||
|
|
||||||
=head1 METHODS
|
|
||||||
|
|
||||||
=head2 index
|
|
||||||
|
|
||||||
Display and edit XMLRPC control interfaces
|
|
||||||
|
|
||||||
=cut
|
|
||||||
|
|
||||||
sub index : Private {
|
|
||||||
my ( $self, $c ) = @_;
|
|
||||||
$c->stash->{template} = 'tt/xmlctrl.tt';
|
|
||||||
|
|
||||||
my $xmlhosts = undef;
|
|
||||||
return unless $c->model('Provisioning')->call_prov( $c, 'voip', 'get_xmlctrl_hosts',
|
|
||||||
undef,
|
|
||||||
\$xmlhosts
|
|
||||||
);
|
|
||||||
$c->stash->{xmlhosts} = $xmlhosts if eval { @$xmlhosts };
|
|
||||||
|
|
||||||
my $xmlgroups = undef;
|
|
||||||
return unless $c->model('Provisioning')->call_prov( $c, 'voip', 'get_xmlctrl_groups',
|
|
||||||
undef,
|
|
||||||
\$xmlgroups
|
|
||||||
);
|
|
||||||
$c->stash->{xmlgroups} = $xmlgroups if eval { @$xmlgroups };
|
|
||||||
|
|
||||||
|
|
||||||
$c->stash->{edit_host} = $c->request->params->{edit_host};
|
|
||||||
|
|
||||||
if(exists $c->session->{crefill}) {
|
|
||||||
$c->stash->{crefill} = $c->session->{crefill};
|
|
||||||
delete $c->session->{crefill};
|
|
||||||
}
|
|
||||||
if(exists $c->session->{erefill}) {
|
|
||||||
$c->stash->{erefill} = $c->session->{erefill};
|
|
||||||
delete $c->session->{erefill};
|
|
||||||
} elsif($c->request->params->{edit_host}) {
|
|
||||||
foreach my $host (eval { @$xmlhosts }) {
|
|
||||||
if($$host{id} == $c->request->params->{edit_host}) {
|
|
||||||
$c->stash->{erefill} = $host;
|
|
||||||
last;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return 1;
|
|
||||||
}
|
|
||||||
|
|
||||||
=head2 do_create_host
|
|
||||||
|
|
||||||
Create a new xmlctrl interface in the database.
|
|
||||||
|
|
||||||
=cut
|
|
||||||
|
|
||||||
sub do_create_host : Local {
|
|
||||||
my ( $self, $c ) = @_;
|
|
||||||
|
|
||||||
my %messages;
|
|
||||||
my %settings;
|
|
||||||
|
|
||||||
$settings{ip} = $c->request->params->{ip};
|
|
||||||
$settings{port} = $c->request->params->{port};
|
|
||||||
$settings{path} = $c->request->params->{path};
|
|
||||||
$settings{description} = $c->request->params->{description}
|
|
||||||
if length $c->request->params->{description};
|
|
||||||
|
|
||||||
unless(isa($c->request->params->{groups}, 'ARRAY')) {
|
|
||||||
my @tmp = ($c->request->params->{groups});
|
|
||||||
$settings{groups} = \@tmp;
|
|
||||||
} else {
|
|
||||||
$settings{groups} = $c->request->params->{groups};
|
|
||||||
}
|
|
||||||
|
|
||||||
$messages{chosterr} = 'Client.Voip.InputErrorFound'
|
|
||||||
unless(length $settings{ip} && $settings{ip} =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/ &&
|
|
||||||
length $settings{port} && $settings{port} =~ /^[0-9]+$/ &&
|
|
||||||
defined $settings{groups} &&
|
|
||||||
defined $settings{path}
|
|
||||||
);
|
|
||||||
|
|
||||||
unless(keys %messages) {
|
|
||||||
if($c->model('Provisioning')->call_prov( $c, 'voip', 'create_xmlctrl_host',
|
|
||||||
\%settings,
|
|
||||||
undef))
|
|
||||||
{
|
|
||||||
$messages{chostmsg} = 'Server.Voip.SavedSettings';
|
|
||||||
$c->session->{messages} = \%messages;
|
|
||||||
$c->response->redirect("/xmlctrl#create_host");
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
$messages{chosterr} = 'Client.Voip.InputErrorFound';
|
|
||||||
$c->session->{messages} = \%messages;
|
|
||||||
$c->session->{crefill} = \%settings;
|
|
||||||
$c->response->redirect("/xmlctrl#create_host");
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
=head2 do_update_host
|
|
||||||
|
|
||||||
Update settings of an xmlctrl interface in the database.
|
|
||||||
|
|
||||||
=cut
|
|
||||||
|
|
||||||
sub do_update_host : Local {
|
|
||||||
my ( $self, $c ) = @_;
|
|
||||||
|
|
||||||
my %messages;
|
|
||||||
my %settings;
|
|
||||||
|
|
||||||
|
|
||||||
$settings{id} = $c->request->params->{host};
|
|
||||||
$settings{ip} = $c->request->params->{ip};
|
|
||||||
$settings{port} = $c->request->params->{port};
|
|
||||||
$settings{path} = $c->request->params->{path};
|
|
||||||
$settings{description} = $c->request->params->{description}
|
|
||||||
if length $c->request->params->{description};
|
|
||||||
unless(isa($c->request->params->{groups}, 'ARRAY')) {
|
|
||||||
my @tmp = ($c->request->params->{groups});
|
|
||||||
$settings{groups} = \@tmp;
|
|
||||||
} else {
|
|
||||||
$settings{groups} = $c->request->params->{groups};
|
|
||||||
}
|
|
||||||
|
|
||||||
$messages{ehosterr} = 'Client.Voip.InputErrorFound'
|
|
||||||
unless(length $settings{id} && $settings{id} =~ /^\d+$/ &&
|
|
||||||
length $settings{ip} && $settings{ip} =~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/ &&
|
|
||||||
length $settings{port} && $settings{port} =~ /^[0-9]+$/ &&
|
|
||||||
defined $settings{groups} &&
|
|
||||||
defined $settings{path}
|
|
||||||
);
|
|
||||||
|
|
||||||
unless(keys %messages) {
|
|
||||||
if($c->model('Provisioning')->call_prov( $c, 'voip', 'update_xmlctrl_host',
|
|
||||||
\%settings,
|
|
||||||
undef))
|
|
||||||
{
|
|
||||||
$messages{ehostmsg} = 'Server.Voip.SavedSettings';
|
|
||||||
$c->session->{messages} = \%messages;
|
|
||||||
$c->response->redirect("/xmlctrl");
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
$c->response->redirect("/xmlctrl?edit_host=$settings{id}");
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
$messages{ehosterr} = 'Client.Voip.InputErrorFound';
|
|
||||||
$c->session->{messages} = \%messages;
|
|
||||||
$c->response->redirect("/xmlctrl?edit_level=$settings{id}");
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
=head2 do_delete_host
|
|
||||||
|
|
||||||
Delete an xmlrpc control interface from the database.
|
|
||||||
|
|
||||||
=cut
|
|
||||||
|
|
||||||
sub do_delete_host : Local {
|
|
||||||
my ( $self, $c ) = @_;
|
|
||||||
|
|
||||||
my %settings;
|
|
||||||
|
|
||||||
$settings{id} = $c->request->params->{host};
|
|
||||||
unless(length $settings{id}) {
|
|
||||||
$c->response->redirect("/xmlctrl");
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
if($c->model('Provisioning')->call_prov( $c, 'voip', 'delete_xmlctrl_host',
|
|
||||||
\%settings,
|
|
||||||
undef))
|
|
||||||
{
|
|
||||||
$c->session->{messages} = { ehostmsg => 'Server.Voip.SavedSettings' };
|
|
||||||
$c->response->redirect("/xmlctrl");
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
$c->response->redirect("/xmlctrl");
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
=head1 BUGS AND LIMITATIONS
|
|
||||||
|
|
||||||
=over
|
|
||||||
|
|
||||||
=item none
|
|
||||||
|
|
||||||
=back
|
|
||||||
|
|
||||||
=head1 SEE ALSO
|
|
||||||
|
|
||||||
Provisioning model, Sipwise::Provisioning::Billing, Catalyst
|
|
||||||
|
|
||||||
=head1 AUTHORS
|
|
||||||
|
|
||||||
Andreas Granig <agranig@sipwise.com>
|
|
||||||
|
|
||||||
=head1 COPYRIGHT
|
|
||||||
|
|
||||||
The xmlctrl controller is Copyright (c) 2010 Sipwise GmbH, Austria. All
|
|
||||||
rights reserved.
|
|
||||||
|
|
||||||
=cut
|
|
||||||
|
|
||||||
# ende gelaende
|
|
||||||
1;
|
|
||||||
@ -1,145 +0,0 @@
|
|||||||
<h3>XMLRPC Control Interfaces</h3>
|
|
||||||
|
|
||||||
<div class="p1">
|
|
||||||
[% IF messages.ehostmsg %]<div class="goodmsg">[% messages.ehostmsg %]</div>[% END %]
|
|
||||||
[% IF messages.ehosterr %]<div class="errormsg">[% messages.ehosterr %]</div>[% END %]
|
|
||||||
|
|
||||||
[% IF xmlhosts %]
|
|
||||||
<table class="ncoslevels">
|
|
||||||
<tr class="table_header">
|
|
||||||
<td>IP</td>
|
|
||||||
<td>Port</td>
|
|
||||||
<td>Path</td>
|
|
||||||
<td>Roles</td>
|
|
||||||
<td>Description</td>
|
|
||||||
<td/>
|
|
||||||
<td/>
|
|
||||||
</tr>
|
|
||||||
[% FOREACH host = xmlhosts %]
|
|
||||||
[% IF host.id == edit_host %]
|
|
||||||
<tr>
|
|
||||||
<form action="/xmlctrl/do_update_host" method="post">
|
|
||||||
<input type="hidden" name="host" value="[% host.id %]" />
|
|
||||||
<td><input type="text" title="IP Address" size="15"
|
|
||||||
name="ip" value="[% host.ip %]" />
|
|
||||||
</td>
|
|
||||||
<td><input type="text" title="Port" size="5"
|
|
||||||
name="port" value="[% host.port %]" />
|
|
||||||
</td>
|
|
||||||
<td><input type="text" title="Port" size="10"
|
|
||||||
name="path" value="[% host.path %]" />
|
|
||||||
</td>
|
|
||||||
<td>
|
|
||||||
<select size="[% xmlgroups.size %]" name="groups" multiple="multiple">
|
|
||||||
[% FOREACH grp = xmlgroups %]
|
|
||||||
<option value="[% grp.id %]">[% grp.name %]</option>
|
|
||||||
[% END %]
|
|
||||||
</select>
|
|
||||||
</td>
|
|
||||||
<td>
|
|
||||||
<input type="text" size="20" title="free-form description string"
|
|
||||||
name="description" value="[% host.description %]" />
|
|
||||||
</td>
|
|
||||||
<td>
|
|
||||||
<div class="postlink">
|
|
||||||
<label for="hostsave[% host.id %]">save</label>
|
|
||||||
<input type="image" class="hidden" src="/static/images/dot_trans.gif" alt="" id="hostsave[% host.id %]" />
|
|
||||||
</div>
|
|
||||||
</td>
|
|
||||||
</form>
|
|
||||||
<td><a href="/xmlctrl" class="aaction">cancel</a></td>
|
|
||||||
</tr>
|
|
||||||
[% IF messages.ehost %]
|
|
||||||
<tr><td colspan="5"><div class="errormsg">[% messages.ehost %]</div></td></tr>
|
|
||||||
[% END %]
|
|
||||||
[% ELSE %]
|
|
||||||
<tr>
|
|
||||||
<td>[% host.ip %]</a></td>
|
|
||||||
<td>[% host.port %]</td>
|
|
||||||
<td>[% host.path %]</td>
|
|
||||||
<td>
|
|
||||||
<select size="[% host.groups.size %]" name="groups">
|
|
||||||
[% FOREACH grp = host.groups %]
|
|
||||||
<option value="[% grp.id %]">[% grp.name %]</option>
|
|
||||||
[% END %]
|
|
||||||
</select>
|
|
||||||
</td>
|
|
||||||
<td>[% host.description %]</td>
|
|
||||||
<td>
|
|
||||||
[% UNLESS Catalyst.session.admin.read_only %]
|
|
||||||
<a href="/xmlctrl?edit_host=[% host.id %]" class="aaction">edit</a>
|
|
||||||
[% END %]
|
|
||||||
</td>
|
|
||||||
<form action="/xmlctrl/do_delete_host" method="post">
|
|
||||||
<input type="hidden" name="host" value="[% host.id %]" />
|
|
||||||
<td>
|
|
||||||
[% UNLESS Catalyst.session.admin.read_only %]
|
|
||||||
<div class="postlink">
|
|
||||||
<label for="hostdel[% host.id %]">delete</label>
|
|
||||||
<input type="image" class="hidden" src="/static/images/dot_trans.gif" alt="" id="hostdel[% host.id %]" />
|
|
||||||
</div>
|
|
||||||
[% END %]
|
|
||||||
</td>
|
|
||||||
</form>
|
|
||||||
</tr>
|
|
||||||
[% END %]
|
|
||||||
[% END %]
|
|
||||||
</table>
|
|
||||||
[% ELSE %]
|
|
||||||
No XMLRPC Control Interfaces found.
|
|
||||||
[% END %]
|
|
||||||
</div>
|
|
||||||
|
|
||||||
[% UNLESS Catalyst.session.admin.read_only %]
|
|
||||||
<h3 id="create_host">Create XMLRPC Control Interface</h3>
|
|
||||||
|
|
||||||
<div class="p1">
|
|
||||||
[% IF messages.chostmsg %]<div class="goodmsg">[% messages.chostmsg %]</div>[% END %]
|
|
||||||
[% IF messages.chosterr %]<div class="errormsg">[% messages.chosterr %]</div>[% END %]
|
|
||||||
|
|
||||||
<form action="/xmlctrl/do_create_host" method="post">
|
|
||||||
<table class="ncoslevels">
|
|
||||||
<tr class="table_header">
|
|
||||||
<td>IP</td>
|
|
||||||
<td>Port</td>
|
|
||||||
<td>Path</td>
|
|
||||||
<td>Roles</td>
|
|
||||||
<td>Description</td>
|
|
||||||
<td/>
|
|
||||||
</tr>
|
|
||||||
<tr>
|
|
||||||
<td><input type="text" title="IP Address" size="15"
|
|
||||||
name="ip" value="[% crefill.ip %]" />
|
|
||||||
</td>
|
|
||||||
<td><input type="text" title="Port" size="5"
|
|
||||||
name="port" value="[% crefill.port %]" />
|
|
||||||
</td>
|
|
||||||
<td><input type="text" title="Path" size="10"
|
|
||||||
name="path" value="[% crefill.path %]" />
|
|
||||||
</td>
|
|
||||||
<td>
|
|
||||||
<select size="[% xmlgroups.size %]" name="groups" multiple="multiple">
|
|
||||||
[% FOREACH grp = xmlgroups %]
|
|
||||||
<option value="[% grp.id %]">[% grp.name %]</option>
|
|
||||||
[% END %]
|
|
||||||
</select>
|
|
||||||
</td>
|
|
||||||
<td>
|
|
||||||
<input type="text" size="20" title="free-form description string"
|
|
||||||
name="description" value="[% crefill.description %]" />
|
|
||||||
</td>
|
|
||||||
<td>
|
|
||||||
<div class="postlink">
|
|
||||||
<label for="hostadd">add</label>
|
|
||||||
<input type="image" class="hidden" src="/static/images/dot_trans.gif" alt="" id="hostadd" />
|
|
||||||
</div>
|
|
||||||
</td>
|
|
||||||
<td />
|
|
||||||
</tr>
|
|
||||||
</table>
|
|
||||||
</form>
|
|
||||||
[% IF crefill && prov_error %]<div class="errormsg">[% prov_error %]</div>[% END %]
|
|
||||||
|
|
||||||
</div>
|
|
||||||
[% END %]
|
|
||||||
|
|
||||||
Loading…
Reference in new issue