initial commit of file from CVS for smeserver-manager on Fri Mar 22 14:54:28 AEDT 2024
This commit is contained in:
@@ -0,0 +1,29 @@
|
||||
<div id='dom_del'>
|
||||
|
||||
% my $btn = l('REMOVE');
|
||||
%= form_for '/domains2' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'dom_REMOVE_TITLE'
|
||||
</h2>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
%= $c->l('dom_REMOVE_DESCRIPTION', $dom_datas->{domain}, $dom_datas->{description});
|
||||
</p>
|
||||
|
||||
<p><b>
|
||||
%= l('dom_ABOUT_TO_REMOVE')
|
||||
<b></p>
|
||||
|
||||
<p>
|
||||
<br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $dom_datas->{trt}
|
||||
%= hidden_field 'Domain' => $dom_datas->{domain}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,105 @@
|
||||
<div id='dom_list'>
|
||||
|
||||
% my $btn = l('dom_ADD_DOMAIN');
|
||||
|
||||
|
||||
%= form_for '/domains' => (method => 'POST') => begin
|
||||
|
||||
%= l('dom_FORM_DESCRIPTION');
|
||||
|
||||
<p>
|
||||
<br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => 'ADD'
|
||||
|
||||
% end
|
||||
|
||||
<h2>
|
||||
%=l 'dom_CURRENT_DOMAINS'
|
||||
</h2>
|
||||
<table class="sme-border TableSort"><thead>
|
||||
<tr>
|
||||
<th class='sme-border'>
|
||||
%=l 'DOMAIN_NAME'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'DESCRIPTION_BRIEF'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'dom_CONTENT'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'dom_LABEL_NAMESERVERS'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'ACTION'
|
||||
</th>
|
||||
</tr>
|
||||
</thead><tbody>
|
||||
|
||||
% foreach my $domain ( @$domains ) {
|
||||
<tr>
|
||||
%= t td => (class => 'sme-border') => $domain->{Domain}
|
||||
%= t td => (class => 'sme-border') => $domain->{'Description'}
|
||||
%= t td => (class => 'sme-border') => $domain->{'Content'}
|
||||
%= t td => (class => 'sme-border') => l('dom_' . $domain->{'Nameservers'})
|
||||
|
||||
% my $actionModify = "<a href='domains2?CsrfDef=TOKEN&trt=UPD&Domain=" . $domain->{Domain} . "'>" . "<button class='sme-modify-button' title=".l('MODIFY').">".l('MODIFY')."</button>" . "</a>";
|
||||
|
||||
% my $removable = ($domain->{Removable} || 'yes');
|
||||
% my $actionRemove = ' ';
|
||||
|
||||
% if ($removable eq 'yes') {
|
||||
% $actionRemove = "<a href='domains2?CsrfDef=TOKEN&trt=DEL&Domain=" . $domain->{Domain} . "'>" . "<button class='sme-remove-button' title=".l('REMOVE').">".l('REMOVE')."</button>" . "</a>";
|
||||
% }
|
||||
|
||||
<td class='sme-border' style="min-width:15em">
|
||||
<%= $c->render_to_string(inline => $actionModify) %> <%= $c->render_to_string(inline => $actionRemove) %>
|
||||
</td>
|
||||
</tr>
|
||||
% }
|
||||
|
||||
</tbody>
|
||||
</table>
|
||||
|
||||
%= hidden_field 'trt' => 'ADD'
|
||||
|
||||
%= form_for '/domains' => (method => 'POST') => begin
|
||||
|
||||
<HR class="sectionbar">
|
||||
|
||||
% my $btn2 = l('dom_DOMAINS_PAGE_CORPORATE_DNS');
|
||||
|
||||
<h3>
|
||||
%= l 'dom_DESC_CORPORATE_DNS_CURRENT'
|
||||
</h3>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'dom_LABEL_CORPORATE_DNS_PRIMARY'
|
||||
</span><span class=data>
|
||||
%= $dom_datas->{forwarder}
|
||||
</span>
|
||||
</p>
|
||||
|
||||
% if ($dom_datas->{forwarder2}) {
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'dom_LABEL_CORPORATE_DNS_SECONDARY'
|
||||
</span><span class=data>
|
||||
%= $dom_datas->{forwarder2}
|
||||
</span>
|
||||
</p>
|
||||
% }
|
||||
|
||||
<p>
|
||||
%= submit_button "$btn2", class => 'action'
|
||||
</p>
|
||||
%= hidden_field 'trt' => 'UP2'
|
||||
% end
|
||||
|
||||
|
||||
|
||||
</div>
|
@@ -0,0 +1,37 @@
|
||||
<div id='dom_up2'>
|
||||
|
||||
% my $btn = l('SAVE');
|
||||
|
||||
%= form_for '/domains2' => (method => 'POST') => begin
|
||||
|
||||
<p><br>
|
||||
%=l 'dom_DESC_CORPORATE_DNS'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'dom_LABEL_CORPORATE_DNS_PRIMARY'
|
||||
</span><span class=data>
|
||||
% param 'Forwarder' => $dom_datas->{forwarder} unless param 'Forwarder';
|
||||
%= text_field 'Forwarder', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'dom_LABEL_CORPORATE_DNS_SECONDARY', class => 'label'
|
||||
</span><span class=data>
|
||||
% param 'Forwarder2' => $dom_datas->{forwarder2} unless param 'Forwarder2';
|
||||
%= text_field 'Forwarder2', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $dom_datas->{trt}
|
||||
|
||||
%end
|
||||
|
||||
</div>
|
@@ -0,0 +1,70 @@
|
||||
<div id='dom_upd'>
|
||||
|
||||
% my $btn = l('ADD');
|
||||
|
||||
%= form_for '/domains2' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
% if ( $dom_datas->{trt} eq "ADD" ) {
|
||||
%=l 'dom_CREATE_TITLE'
|
||||
% } else {
|
||||
%=l 'dom_MODIFY_TITLE'
|
||||
% $btn = l('MODIFY');
|
||||
% }
|
||||
</h2>
|
||||
</p>
|
||||
|
||||
<p><br>
|
||||
<span class=label>
|
||||
%=l 'DOMAIN_NAME', class => 'label'
|
||||
</span><span class=data>
|
||||
% if ( $dom_datas->{trt} eq "ADD" ) {
|
||||
% param 'Domain' => $dom_datas->{domain} unless param 'Domain';
|
||||
%= text_field 'Domain', class => 'input'
|
||||
% } else {
|
||||
%= hidden_field 'Domain' => $dom_datas->{domain}
|
||||
%= $dom_datas->{domain}, class => 'data'
|
||||
% }
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p><br>
|
||||
<span class=label>
|
||||
%=l 'DESCRIPTION_BRIEF', class => 'label'
|
||||
</span><span class=data>
|
||||
% param 'Description' => $dom_datas->{description} unless param 'Description';
|
||||
%= text_field 'Description', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p><br>
|
||||
%=l 'dom_CONTENT_FIELD_DESCRIPTION'
|
||||
<br>
|
||||
<span class=label>
|
||||
%= $c->l('dom_CONTENT', '');
|
||||
</span><span class=data>
|
||||
% param 'Content' => $dom_datas->{content} unless param 'Content';
|
||||
%= select_field 'Content', $c->content_options_list(), class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p><br>
|
||||
%=l 'dom_DESC_NAMESERVERS'
|
||||
<br>
|
||||
<span class=label>
|
||||
%=l 'dom_LABEL_NAMESERVERS', class => 'label'
|
||||
</span><span class=data>
|
||||
% param 'Nameservers' => $dom_datas->{nameservers} unless param 'Nameservers';
|
||||
%= select_field 'Nameservers', $c->nameserver_options_list(), class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $dom_datas->{trt}
|
||||
|
||||
%end
|
||||
|
||||
</div>
|
@@ -0,0 +1,11 @@
|
||||
<div id="footer">
|
||||
<HR class="sme-copyrightbar">
|
||||
<font class="sme-copyright">
|
||||
% if ( $c->is_logged_in ) {
|
||||
SME Server <%= session 'releaseVersion' %> - Manager <%= $c->app->VERSION %>
|
||||
% }
|
||||
<br>Copyright 1999-2006 Mitel Corporation<br>
|
||||
%= session 'copyRight'
|
||||
<br>Copyright (c) 2013-2024 Koozali Foundation Inc.<br>
|
||||
</font>
|
||||
|
@@ -0,0 +1,59 @@
|
||||
<div id='grp_add'>
|
||||
|
||||
% my $btn = l('ADD');
|
||||
|
||||
%= form_for '/groups2' => (method => 'POST') => begin
|
||||
<p><h2>
|
||||
%=l 'CREATE_GROUP'
|
||||
</h2><br><br>
|
||||
%=l 'grp_GROUP_NAMING'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'GROUP_NAME', class => 'label'
|
||||
</span><span class=data>
|
||||
%= text_field 'groupName', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
%=l 'grp_GROUP_DESC_EXPL'
|
||||
<br><br>
|
||||
<span class=label>
|
||||
%=l 'grp_GROUP_DESC', class => 'label'
|
||||
</span><span class=data>
|
||||
%= text_field 'groupDesc', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'GROUP_MEMBERS', class => 'label'
|
||||
</span>
|
||||
<br>
|
||||
<span class=data>
|
||||
%= check_box 'groupMembers' => 'admin'
|
||||
Administrator (admin)
|
||||
<br>
|
||||
% my $users = $c->gen_users_list();
|
||||
% foreach my $key ( sort keys %$users )
|
||||
% {
|
||||
%= check_box 'groupMembers' => $key
|
||||
%=$users->{$key}
|
||||
%= "(" . $key . ")"
|
||||
<br>
|
||||
% }
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $grp_datas->{trt}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,63 @@
|
||||
<div id='grp_del'>
|
||||
|
||||
% my $btn = l('REMOVE');
|
||||
%= form_for '/groups2' => (method => 'POST') => begin
|
||||
<p><h2>
|
||||
%=l 'REMOVE_USER_GROUP'
|
||||
</h2>
|
||||
|
||||
<p>
|
||||
%=l('grp_DELETE_DESCRIPTION', $grp_datas->{group})
|
||||
</p>
|
||||
|
||||
<p>
|
||||
% my $size = keys %$members;
|
||||
% if ( ! $size ){
|
||||
%=l 'ACCOUNT_GROUP_NONE'
|
||||
% } else {
|
||||
%=l 'grp_GROUP_HAS_MEMBERS'
|
||||
<br>
|
||||
<ul>
|
||||
% foreach my $key ( keys %$members)
|
||||
% {
|
||||
<li>
|
||||
%=$key
|
||||
(
|
||||
%=$members->{$key}
|
||||
)
|
||||
</li>
|
||||
% }
|
||||
</ul>
|
||||
% }
|
||||
</p>
|
||||
|
||||
<p>
|
||||
% $size = keys %$ibays;
|
||||
% if ( $size ) {
|
||||
%=l 'grp_IBAYS_WILL_BE_CHANGED'
|
||||
<br>
|
||||
<ul>
|
||||
% foreach my $key (sort ( keys %$ibays ))
|
||||
% {
|
||||
<li>
|
||||
%=$key
|
||||
(
|
||||
%=$ibays->{$key}
|
||||
)
|
||||
</li>
|
||||
% }
|
||||
</ul>
|
||||
% }
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $grp_datas->{trt}
|
||||
%= hidden_field 'groupName' => $grp_datas->{group}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,53 @@
|
||||
<div id='grp_list'>
|
||||
|
||||
% my $btn = l('GROUP_ADD');
|
||||
|
||||
%= form_for '/groups' => (method => 'POST') => begin
|
||||
|
||||
%= hidden_field 'trt' => 'ADD'
|
||||
|
||||
<p> <br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
% end
|
||||
|
||||
|
||||
<p> <h2>
|
||||
%=l 'grp_CURRENT_LIST'
|
||||
</h2><br><br>
|
||||
% my $numGroups = @$groups;
|
||||
% if ($numGroups == 0){
|
||||
%=l 'ACCOUNT_GROUP_NONE'
|
||||
% } else {
|
||||
<table class="sme-border TableSort"><thead>
|
||||
<tr>
|
||||
<th class='sme-border'>
|
||||
%=l 'GROUP'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'DESCRIPTION'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'ACTION'
|
||||
</th>
|
||||
</tr>
|
||||
</thead><tbody>
|
||||
|
||||
% foreach my $group ( @$groups )
|
||||
% {
|
||||
<tr>
|
||||
%= t td => (class => 'sme-border') => $group->key
|
||||
%= t td => (class => 'sme-border') => $group->prop('Description')
|
||||
<td class='sme-border' style="min-width:15em">
|
||||
<a href='groups2?CsrfDef=TOKEN&trt=UPD&group=<%= $group->key%>'><button class='sme-modify-button' title=<%=l('MODIFY')%>><%=l('MODIFY') %></button></a>
|
||||
<a href='groups2?CsrfDef=TOKEN&trt=DEL&group=<%= $group->key%>'><button class='sme-remove-button' title=<%=l('REMOVE')%>><%=l('REMOVE') %></button></a>
|
||||
</td>
|
||||
</tr>
|
||||
% }
|
||||
</tbody>
|
||||
</table>
|
||||
<%} %>
|
||||
</p>
|
||||
|
||||
|
||||
</div>
|
@@ -0,0 +1,69 @@
|
||||
<div id='grp_upd'>
|
||||
|
||||
% my $btn = l('SAVE');
|
||||
|
||||
%= form_for '/groups2' => (method => 'POST') => begin
|
||||
|
||||
<p><h2>
|
||||
%=l 'MODIFY_USER_GROUP'
|
||||
</h2><br></p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'GROUP_NAME', class => 'label'
|
||||
</span><span class=data>
|
||||
%= $grp_datas->{group}, class => 'data'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
%=l 'grp_GROUP_DESC_EXPL'
|
||||
<br><br>
|
||||
<span class=label>
|
||||
%=l 'grp_GROUP_DESC', class => 'label'
|
||||
</span><span class=data>
|
||||
% param 'groupDesc' => $grp_datas->{description} unless param 'groupDesc';
|
||||
%= text_field 'groupDesc', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'GROUP_MEMBERS', class => 'label'
|
||||
</span>
|
||||
<br>
|
||||
<span class=data>
|
||||
% if ( $members->{'admin'} ) {
|
||||
%= check_box 'groupMembers', value => 'admin', checked => undef
|
||||
%} else {
|
||||
%= check_box 'groupMembers' => 'admin'
|
||||
%}
|
||||
Administrator (admin)
|
||||
<br>
|
||||
|
||||
% my $users = $c->gen_users_list();
|
||||
% foreach my $key ( sort keys %$users )
|
||||
% {
|
||||
% if ( $members->{ $key } ) {
|
||||
<!-- % = check_box 'groupMembers', value => $key, checked => 'checked' -->
|
||||
<input type='checkbox' name='groupMembers' checked value='<%= $key %>'>
|
||||
%} else {
|
||||
%= check_box 'groupMembers' => $key
|
||||
%}
|
||||
%=$users->{$key} . " (" . $key . ")"
|
||||
<br>
|
||||
% }
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $grp_datas->{trt}
|
||||
%= hidden_field 'groupName' => $grp_datas->{group}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,27 @@
|
||||
<div id="header2" class="hd2">
|
||||
<div id="h2l1">
|
||||
<div id="h2e11">
|
||||
<a target='_blank' href="http://www.koozali.org"><img src="images/smeserver_logo.jpg" height="40" alt="SME Server"></a>
|
||||
</div>
|
||||
<!-- <div id="h2e12"><h5><a href="initial">Server Manager</a>
|
||||
<a href="/server-manager" target='_blank'>    (Prev SM)</a></h5> -->
|
||||
<div id="h2e12" style="float:right;"><br><a href="/server-manager" target='_blank'><button style="background-color:#98d36e;font-weight:bold;color:#063;">Legacy SM</button></a></div>
|
||||
</div>
|
||||
|
||||
<div id="h2l2" class="infobar">
|
||||
<div id="h2e21">
|
||||
<b>
|
||||
<%= session 'SystemName' %>@<%= session 'DomainName' %></b>
|
||||
</div>
|
||||
<div id="h2e22">
|
||||
<a target="_parent" href="manual"> <b> ? </b> </a>
|
||||
</div>
|
||||
<div id="h2e23">
|
||||
% if ( not defined $c->session->{username} ) {
|
||||
<a target="_parent" href="login"><b>Login</b></a>
|
||||
% } else {
|
||||
<a target="_parent" href="logout"><b><%= $c->session->{username} %> Logout</b></a>
|
||||
% }
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
@@ -0,0 +1,29 @@
|
||||
<div id='hos_del'>
|
||||
|
||||
% my $btn = l('REMOVE');
|
||||
%= form_for '/hostentriesd' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'hos_REMOVE_TITLE'
|
||||
</h2>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
%= $c->l('hos_REMOVE_PAGE_DESCRIPTION', $hos_datas->{hostname});
|
||||
</p>
|
||||
|
||||
<p><b>
|
||||
%=l 'hos_ABOUT_TO_REMOVE'
|
||||
</b></p>
|
||||
|
||||
<p>
|
||||
<br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $hos_datas->{trt}
|
||||
%= hidden_field 'Hostname' => $hos_datas->{hostname}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,73 @@
|
||||
<div id='hos_list'>
|
||||
|
||||
% my $btn = l('hos_ADD_HOSTNAME');
|
||||
|
||||
%= form_for '/hostentries' => (method => 'POST') => begin
|
||||
|
||||
<p>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
<br></p>
|
||||
|
||||
%= hidden_field 'trt' => $hos_datas->{trt}
|
||||
|
||||
% end
|
||||
|
||||
% my %dom_hos = %{$dom_hosts};
|
||||
% foreach my $domain ( sort ( keys %dom_hos ) ) {
|
||||
|
||||
<p><br><b>
|
||||
%= $c->l('hos_CURRENT_HOSTNAMES_FOR_LOCAL_DOMAIN', $domain);
|
||||
</b><br></p>
|
||||
|
||||
<table class="sme-border TableSort"><thead>
|
||||
<tr>
|
||||
<th class='sme-border'>
|
||||
%=l 'hos_HOSTNAME'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'hos_HOSTTYPE'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'IP_ADDRESS_OR_FQDN'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'hos_ETHERNET_ADDRESS'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'COMMENT'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'ACTION'
|
||||
</th>
|
||||
</tr>
|
||||
</thead><tbody>
|
||||
|
||||
% foreach (@{$dom_hos{$domain}{'HOSTS'}}) {
|
||||
<tr>
|
||||
%= t td => (class => 'sme-border') => $_->{'HostName'};
|
||||
%= t td => (class => 'sme-border') => $_->{'HostType'};
|
||||
%= t td => (class => 'sme-border') => $_->{'IP'};
|
||||
%= t td => (class => 'sme-border') => $_->{'MACAddress'};
|
||||
%= t td => (class => 'sme-border') => $_->{'Comment'};
|
||||
% my ($actionModify, $actionRemove) = ' ';
|
||||
% if ($_->{'static'} ne 'yes') {
|
||||
% $actionModify = "<a href='hostentriesd?CsrfDef=TOKEN&trt=UPD&Hostname=" . $_->{'HostName'} . "'>" . "<button class='sme-modify-button' title=".l('MODIFY').">".l('MODIFY')."</button>" . "</a>";
|
||||
% $actionRemove = "<a href='hostentriesd?CsrfDef=TOKEN&trt=DEL&Hostname=" . $_->{'HostName'} . "'>" . "<button class='sme-remove-button' title=".l('REMOVE').">".l('REMOVE')."</button>" . "</a>";
|
||||
% }
|
||||
<td class='sme-border' style="min-width:15em">
|
||||
<%= $c->render_to_string(inline => $actionModify) %>
|
||||
<%= $c->render_to_string(inline => $actionRemove) %>
|
||||
</td>
|
||||
|
||||
</tr>
|
||||
|
||||
% }
|
||||
|
||||
</tbody>
|
||||
</table>
|
||||
</p>
|
||||
|
||||
% }
|
||||
|
||||
|
||||
</div>
|
@@ -0,0 +1,60 @@
|
||||
<div id='hos_ulc'>
|
||||
<!-- UPDATE HOST TYPE -->
|
||||
|
||||
% my $btn = l('NEXT');
|
||||
|
||||
%= form_for '/hostentriesd' => (method => 'POST') => begin
|
||||
<p><h2>
|
||||
% if ( $hos_datas->{trt} eq "ALC" ) {
|
||||
%=l 'hos_CREATE_TYPE'
|
||||
% } else {
|
||||
%=l 'hos_MODIFY_TYPE'
|
||||
% $btn = l('MODIFY');
|
||||
% }
|
||||
</h2></p>
|
||||
|
||||
<p>
|
||||
%=l 'hos_LOCAL_PAGE_DESCRIPTION'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
%=l 'hos_LOCAL_IP_DESCRIPTION'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'hos_LOCAL_IP', class => 'label'
|
||||
</span><span class=data>
|
||||
% param 'Internalip' => $hos_datas->{internalip} unless param 'Internalip';
|
||||
%= text_field 'Internalip', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
%=l 'hos_ETHERNET_ADDRESS_DESCRIPTION'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'hos_ETHERNET_ADDRESS', class => 'label'
|
||||
</span><span class=data>
|
||||
% param 'Macaddress' => $hos_datas->{macaddress} unless param 'Macaddress';
|
||||
%= text_field 'Macaddress', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $hos_datas->{trt}
|
||||
%= hidden_field 'Hostname' => $hos_datas->{hostname}
|
||||
%= hidden_field 'Name' => $hos_datas->{name}
|
||||
%= hidden_field 'Domain' => $hos_datas->{domain}
|
||||
%= hidden_field 'Comment'=> $hos_datas->{comment}
|
||||
%= hidden_field 'Hosttype'=> $hos_datas->{hosttype}
|
||||
%= hidden_field 'Externalip' => $hos_datas->{externalip}
|
||||
|
||||
%end
|
||||
|
||||
</div>
|
@@ -0,0 +1,77 @@
|
||||
<div id='hos_upd'>
|
||||
|
||||
% my $btn = l('NEXT');
|
||||
|
||||
%= form_for '/hostentriesd' => (method => 'POST') => begin
|
||||
<p><h2>
|
||||
% if ( $hos_datas->{trt} eq "ADD" ) {
|
||||
%=l 'hos_CREATE_TITLE'
|
||||
% } else {
|
||||
%=l 'hos_MODIFY_TITLE'
|
||||
% $btn = l('MODIFY');
|
||||
% }
|
||||
</h2></p>
|
||||
|
||||
<p>
|
||||
%=l 'hos_HOSTNAME_DESCRIPTION'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'hos_HOSTNAME', class => 'label'
|
||||
</span><span class=data>
|
||||
% if ( $hos_datas->{trt} eq "ADD" ) {
|
||||
% param 'Name' => $hos_datas->{name} unless param 'Name';
|
||||
%= text_field 'Name', class => 'input'
|
||||
% } else {
|
||||
%= hidden_field 'Name' => $hos_datas->{name}
|
||||
%= $hos_datas->{name}, class => 'data'
|
||||
% }
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'DOMAIN', class => 'label'
|
||||
</span><span class=data>
|
||||
% if ( $hos_datas->{trt} eq "ADD" ) {
|
||||
% param 'Domain' => $hos_datas->{domain} unless param 'Domain';
|
||||
%= select_field 'Domain', $c->domains_list(), class => 'input'
|
||||
% } else {
|
||||
%= hidden_field 'Domain' => $hos_datas->{domain}
|
||||
%= $hos_datas->{domain}, class => 'data'
|
||||
% }
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%= $c->l('COMMENT', '');
|
||||
</span><span class=data>
|
||||
% param 'Comment' => $hos_datas->{comment} unless param 'Comment';
|
||||
%= text_field 'Comment', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'LOCATION', class => 'label'
|
||||
</span><span class=data>
|
||||
% param 'Hosttype' => $hos_datas->{hosttype} unless param 'Hosttype';
|
||||
%= select_field 'Hosttype', $c->hosttype_list(), class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $hos_datas->{trt}
|
||||
%= hidden_field 'Hostname' => $hos_datas->{hostname}
|
||||
%= hidden_field 'Internalip' => $hos_datas->{internalip}
|
||||
%= hidden_field 'Externalip' => $hos_datas->{externalip}
|
||||
%= hidden_field 'Macaddress' => $hos_datas->{macaddress}
|
||||
|
||||
%end
|
||||
|
||||
</div>
|
@@ -0,0 +1,37 @@
|
||||
<div id='hos_urm'>
|
||||
<!-- UPDATE HOST TYPE -->
|
||||
|
||||
% my $btn = l('MODIFY');
|
||||
|
||||
%= form_for '/hostentriesd' => (method => 'POST') => begin
|
||||
|
||||
<p>
|
||||
%=l 'hos_REMOTE_PAGE_DESCRIPTION'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'IP_ADDRESS_OR_FQDN', class => 'label'
|
||||
</span><span class=data>
|
||||
% param 'Externalip' => $hos_datas->{externalip} unless param 'Externalip';
|
||||
%= text_field 'Externalip', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
|
||||
<p><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $hos_datas->{trt}
|
||||
%= hidden_field 'Hostname' => $hos_datas->{hostname}
|
||||
%= hidden_field 'Name' => $hos_datas->{name}
|
||||
%= hidden_field 'Domain' => $hos_datas->{domain}
|
||||
%= hidden_field 'Comment'=> $hos_datas->{comment}
|
||||
%= hidden_field 'Hosttype'=> $hos_datas->{hosttype}
|
||||
%= hidden_field 'Internalip' => $hos_datas->{internalip}
|
||||
%= hidden_field 'Macaddress' => $hos_datas->{macaddress}
|
||||
|
||||
%end
|
||||
|
||||
</div>
|
@@ -0,0 +1,22 @@
|
||||
<div id='iba_del'>
|
||||
|
||||
% my $btn = l('REMOVE');
|
||||
%= form_for '/ibaysd' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'iba_REMOVE_TITLE'
|
||||
</h2>
|
||||
<br>
|
||||
%= $c->render_to_string(inline => l('iba_REMOVE_DESC', $iba_datas->{ibay}, $iba_datas->{description}));
|
||||
<br>
|
||||
</p>
|
||||
<p>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $iba_datas->{trt}
|
||||
%= hidden_field 'ibay' => $iba_datas->{ibay}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,79 @@
|
||||
<div id='iba_list'>
|
||||
|
||||
|
||||
% my $btn = l('iba_ADD_IBAY');
|
||||
|
||||
%= form_for '/ibays' => (method => 'POST') => begin
|
||||
|
||||
<p>
|
||||
<br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
% end
|
||||
|
||||
<p>
|
||||
%=l 'iba_FIRSTPAGE_DESC'
|
||||
<br><br>
|
||||
</p>
|
||||
|
||||
% my $numIbays = @$ibays;
|
||||
% if ($numIbays == 0){
|
||||
%=l 'iba_NO_IBAYS'
|
||||
% } else {
|
||||
<table class="sme-border TableSort"><thead>
|
||||
<tr>
|
||||
<th class='sme-border'>
|
||||
%=l 'NAME'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'DESCRIPTION'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'ACTION'
|
||||
</th>
|
||||
</tr>
|
||||
</thead><tbody>
|
||||
% foreach my $ibay (@$ibays)
|
||||
% {
|
||||
% my $modifiable = $ibay->prop('Modifiable') || 'yes';
|
||||
% my $passwordable = $ibay->prop('Passwordable') || 'yes';
|
||||
% my $removable = $ibay->prop('Removable') || 'yes';
|
||||
% my $needPassword = grep { $_ eq $ibay->prop('PublicAccess') }
|
||||
% qw(local-pw global-pw global-pw-remote);
|
||||
|
||||
<tr>
|
||||
%= t td => (class => 'sme-border') => $ibay->key
|
||||
%= t td => (class => 'sme-border') => $ibay->prop('Name')
|
||||
% my ($actionModify, $actionResetPw, $actionRemove) = ' ';
|
||||
% if ($modifiable eq 'yes') {
|
||||
% $actionModify = "<a href='ibaysd?CsrfDef=TOKEN&trt=UPD&ibay=" . $ibay->key . "'>" . "<button class='sme-modify-button' title=".l('MODIFY').">".l('MODIFY')."</button>" . "</a>";
|
||||
% }
|
||||
% if ($passwordable eq 'yes') {
|
||||
% if ($ibay->prop('PasswordSet') ne 'yes' && $needPassword) {
|
||||
%# $actionResetPw .= "<a href='ibaysd?CsrfDef=TOKEN&trt=PWD&ibay=" . $ibay->key . "' class='error'>" . l('PASSWORD_RESET') . "</a>";
|
||||
% $actionResetPw .= "<a href='ibaysd?CsrfDef=TOKEN&trt=PWD&ibay=" . $ibay->key. "'>" . "<button class='sme-password-button' style ='border-color:red;' title=".l("Reset-Password").">".l("Reset-Password")."</button></a>";
|
||||
% } else {
|
||||
% $actionResetPw .= "<a href='ibaysd?CsrfDef=TOKEN&trt=PWD&ibay=" . $ibay->key . "'>" . "<button class='sme-password-button' title=".l("Reset-Password").">".l("Reset-Password")."</button></a>";
|
||||
%# $actionResetPw .= "<a href='ibaysd?CsrfDef=TOKEN&trt=PWD&ibay=" . $ibay->key . "'>" . l('PASSWORD_RESET') . "</a>";
|
||||
% }
|
||||
% $actionResetPw .= ' ';
|
||||
% }
|
||||
% if ($removable eq 'yes') {
|
||||
% $actionRemove = "<a href='ibaysd?CsrfDef=TOKEN&trt=DEL&ibay=" . $ibay->key . "'>" . "<button class='sme-remove-button' title=".l('REMOVE').">".l('REMOVE')."</button>" . "</a>";
|
||||
% }
|
||||
<td class='sme-border' style="min-width:20em">
|
||||
<%= $c->render_to_string(inline => $actionModify) %>
|
||||
<%= $c->render_to_string(inline => $actionResetPw)%>
|
||||
<%= $c->render_to_string(inline => $actionRemove) %>
|
||||
</td>
|
||||
</tr>
|
||||
% }
|
||||
</tbody>
|
||||
</table>
|
||||
|
||||
<%} %>
|
||||
|
||||
%= hidden_field 'trt' => $iba_datas->{trt}
|
||||
|
||||
</div>
|
@@ -0,0 +1,42 @@
|
||||
<div id='iba_net'>
|
||||
|
||||
% my $btn = l('SAVE');
|
||||
|
||||
%= form_for '/ibaysd' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'PASSWORD_RESET'
|
||||
</h2>
|
||||
|
||||
<br><br>
|
||||
%=l 'iba_PASSWORD_DESC'
|
||||
%= $iba_datas->{ibay}
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'PASSWORD_NEW', class => 'label'
|
||||
</span><span class=data>
|
||||
%= password_field 'newPass', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'PASSWORD_VERIFY_NEW', class => 'label'
|
||||
</span><span class=data>
|
||||
%= password_field 'newPassVerify', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $iba_datas->{trt}
|
||||
%= hidden_field 'ibay' => $iba_datas->{ibay}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,101 @@
|
||||
<div id='iba_upd'>
|
||||
|
||||
|
||||
% my $btn = l('ADD');
|
||||
|
||||
%= form_for '/ibaysd' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'iba_ADD_TITLE'
|
||||
</h2>
|
||||
<br>
|
||||
%=l 'iba_NAME_FIELD_DESC'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'iba_NAME_LABEL', class => 'label'
|
||||
</span><span class=data>
|
||||
% if ( $iba_datas->{trt} eq 'ADD' ) {
|
||||
% param 'ibay' => $iba_datas->{ibay} unless param 'ibay';
|
||||
%= text_field 'ibay', class => 'input'
|
||||
% } else {
|
||||
% $btn = l('SAVE');
|
||||
%= $iba_datas->{ibay}, class => 'data'
|
||||
% }
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'DESCRIPTION', class => 'label'
|
||||
</span><span class=data>
|
||||
% param 'ibayDesc' => $iba_datas->{description} unless param 'ibayDesc';
|
||||
%= text_field 'ibayDesc', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'GROUP'
|
||||
</span><span class=data>
|
||||
% param 'group' => $iba_datas->{group} unless param 'group';
|
||||
%= select_field 'group' => $c->group_list_m(), class => 'input'
|
||||
<br>
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'iba_USER_ACCESS'
|
||||
</span><span class=data>
|
||||
% param 'userAccess' => $iba_datas->{userAccess} unless param 'userAccess';
|
||||
%= select_field 'userAccess' => $c->userAccess_list_m(), class => 'input'
|
||||
|
||||
<br>
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'iba_PUBLIC_ACCESS'
|
||||
</span><span class=data>
|
||||
% param 'publicAccess' => $iba_datas->{publicAccess} unless param 'publicAccess';
|
||||
%= select_field 'publicAccess' => $c->publicAccess_list_m(), class => 'input'
|
||||
<br>
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'iba_ALLOW_DYNAMIC_CONTENT'
|
||||
</span><span class=data>
|
||||
% param 'CgiBin' => $iba_datas->{CgiBin} unless param 'CgiBin';
|
||||
%= select_field 'CgiBin' => [[ (l 'DISABLED') => 'disabled'], [ (l 'ENABLED') => 'enabled']], class => 'input'
|
||||
<br>
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'iba_HTTPS_Only'
|
||||
</span><span class=data>
|
||||
% param 'SSL' => $iba_datas->{SSL} unless param 'SSL';
|
||||
%= select_field 'SSL' => [[ (l 'DISABLED') => 'disabled'], [ (l 'ENABLED') => 'enabled']], class => 'input'
|
||||
<br>
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br><br>
|
||||
%= submit_button $btn, class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $iba_datas->{trt}
|
||||
% if ( $iba_datas->{trt} eq 'UPD' ) {
|
||||
%= hidden_field 'ibay' => $iba_datas->{ibay}
|
||||
% }
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,16 @@
|
||||
<div id="info">
|
||||
<% if (! $c->session->{PwdSet} ) { %>
|
||||
<div class="sme-error"><h5>
|
||||
Warning: you have not yet changed the default system password.</h5></div>
|
||||
<% } %>
|
||||
<% if ( $c->is_unsafe ) { %>
|
||||
<div class="sme-error"><h5>
|
||||
Warning: a reconfigure and reboot is required before proceeding! Failure to do so now
|
||||
may leave your system in an unknown state!</h5></div>
|
||||
<% } %>
|
||||
<% if ( $c->session->{Access} eq 'public' && (($config->{debug} ne '0') || ($config->{mode} ne 'production')) ) { %>
|
||||
<div class="sme-error"><h5>
|
||||
Warning: Development or debug mode enabled AND public access is offered !
|
||||
</h5></div>
|
||||
<% } %>
|
||||
</div>
|
@@ -0,0 +1,101 @@
|
||||
|
||||
<!--*** toggle hide/unhide password field in login panel ***-->
|
||||
|
||||
% content_for 'js_togglePassword' => begin
|
||||
%= javascript begin
|
||||
|
||||
$(document).ready(function() {
|
||||
|
||||
const togglePassword = document.querySelector('#togglePassword');
|
||||
const password = document.querySelector('#id_password');
|
||||
|
||||
if (( togglePassword ) && ( password )) {
|
||||
togglePassword.addEventListener('click', function (e) {
|
||||
// toggle the type attribute
|
||||
const type = password.getAttribute('type') === 'password' ? 'text' : 'password';
|
||||
password.setAttribute('type', type);
|
||||
// toggle the eye slash icon
|
||||
// this.classList.toggle('eye-slash');
|
||||
})
|
||||
}
|
||||
});
|
||||
|
||||
% end
|
||||
% end
|
||||
|
||||
|
||||
<!--*** toggle hide/unhide menu contents navigation menu ***-->
|
||||
|
||||
% content_for 'js_toggleMenu' => begin
|
||||
%= javascript begin
|
||||
|
||||
$(document).ready(function() {
|
||||
$('#tognav').click(function() {
|
||||
//alert('click1:'+window.localStorage.getItem('menunav'));
|
||||
window.localStorage.setItem('menunav',!$('#menunav').is(':visible'));
|
||||
//alert('click2:'+window.localStorage.getItem('menunav'));
|
||||
$('#menunav').toggle({ duration: 300 });
|
||||
});
|
||||
|
||||
$('#toguser').click(function() {
|
||||
window.localStorage.setItem('menuuser',!$('#menuuser').is(':visible'));
|
||||
$('#menuuser').toggle({ duration: 300 });
|
||||
});
|
||||
|
||||
$('#togadm').click(function() {
|
||||
window.localStorage.setItem('menuadm',!$('#menuadm').is(':visible'));
|
||||
$('#menuadm').toggle({ duration: 300 });
|
||||
});
|
||||
|
||||
|
||||
$('.section-title').click(function() {
|
||||
var $section = $(this).parent().next('div');
|
||||
if(!$section.length){
|
||||
return false;
|
||||
}
|
||||
let localStorageTag = "admSection-"+this.innerHTML;
|
||||
var jqObj = $($section);
|
||||
window.localStorage.setItem(localStorageTag,!jqObj.is(':visible'));
|
||||
$section.toggle({ duration: 600 });
|
||||
})
|
||||
});
|
||||
|
||||
% end
|
||||
% end
|
||||
|
||||
<!--*** swap class on menu element chosen ***-->
|
||||
|
||||
% content_for 'js_swapClass' => begin
|
||||
%= javascript begin
|
||||
(function($) {
|
||||
$.fn.swapClass = function(class1, class2) {
|
||||
this.each(function() {
|
||||
var $elem = $(this);
|
||||
if ($elem.hasClass(class1)) {
|
||||
$elem.removeClass(class1).addClass(class2);
|
||||
}
|
||||
else if ($elem.hasClass(class2)) {
|
||||
$elem.removeClass(class2).addClass(class1);
|
||||
}
|
||||
});
|
||||
};
|
||||
})(jQuery);
|
||||
|
||||
$(document).ready(function() {
|
||||
$('a.item-current').swapClass('item-current','item');
|
||||
|
||||
var pathname = $(location).attr('pathname');
|
||||
|
||||
//alert('jQuery loaded. Path searched: ' + pathname);
|
||||
|
||||
var menus = $('a.item');
|
||||
$.each(menus, function() {
|
||||
if ( $(this).attr('href') == pathname ) {
|
||||
$(this).swapClass('item', 'item-current');
|
||||
// alert('menu found! ' + $(this).attr('href') + ' ' + $(this).attr('class'));
|
||||
}
|
||||
})
|
||||
|
||||
});
|
||||
% end
|
||||
% end
|
@@ -0,0 +1,69 @@
|
||||
<div id='ln_add'>
|
||||
|
||||
% my $retref= $c->stash("ret");
|
||||
% my %ret;
|
||||
% unless (length($retref)) {%ret = (ret=>"");}
|
||||
% else {%ret = %$retref;}
|
||||
|
||||
% my @vars = split(",",$ret{vars});
|
||||
% my $var1 = @vars[0];
|
||||
% my $var2 = @vars[1];
|
||||
% my $var3 = @vars[2];
|
||||
% my $var4 = @vars[3];
|
||||
% my $var5 = @vars[4];
|
||||
% my $var6 = @vars[5];
|
||||
|
||||
%if ($ret{'ret'} eq "") {
|
||||
|
||||
%} elsif (index($ret{ret},"SUCCESS") != -1) {
|
||||
<div class='success'>
|
||||
<h2> Operation Status Report</h2>
|
||||
%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6);
|
||||
</div>
|
||||
%} else {
|
||||
<div class='sme-error'>
|
||||
<h2> Operation Status Report - Error</h2>
|
||||
%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6);
|
||||
</div>
|
||||
%}
|
||||
<br />
|
||||
% my $btn = l('ADD');
|
||||
% my $network_db = esmith::NetworksDB->open();
|
||||
|
||||
% if ($config->{debug} == 1) {
|
||||
<p>
|
||||
%= dumper $c->current_route
|
||||
%= dumper $c->stash("ret")
|
||||
</p>
|
||||
% }
|
||||
|
||||
%= form_for '/localnetworksb' => (method => 'POST') => begin
|
||||
<h2>
|
||||
%=l "ln_ADD_TITLE"
|
||||
</h2>
|
||||
<p>
|
||||
%= $c->render_to_string(inline => l('ln_ADD_DESC'));
|
||||
</p><br>
|
||||
<span class=label>
|
||||
%=l "NETWORK"
|
||||
</span><span class=data>
|
||||
%=text_field 'networkAddress'
|
||||
</span><br><br>
|
||||
<span class=label>
|
||||
%=l "ln_SUBNET_MASK"
|
||||
</span><span class=data>
|
||||
%=text_field 'networkMask'
|
||||
</span><br><br>
|
||||
<span class=label>
|
||||
%=l "ROUTER"
|
||||
</span>
|
||||
<span class=data>
|
||||
%=text_field 'networkRouter'
|
||||
</span><br><br>
|
||||
<div class='center'>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</div>
|
||||
%end
|
||||
|
||||
</div>
|
||||
|
@@ -0,0 +1,57 @@
|
||||
<div id='ln_del'>
|
||||
|
||||
% my $btn = l('REMOVE');
|
||||
% my $deletehosts = $ln_datas->{deletehosts};
|
||||
% my $subnet = $ln_datas->{subnet};
|
||||
% my $router = $ln_datas->{router};
|
||||
|
||||
% if ($config->{debug} == 1) {
|
||||
<p>
|
||||
%= dumper $c->current_route
|
||||
%= dumper $c->stash("ret")
|
||||
%= dumper %$ln_datas
|
||||
%= dumper $deletehosts
|
||||
</p>
|
||||
% }
|
||||
|
||||
%= form_for '/localnetworkse' => (method => 'POST') => begin
|
||||
<h2>
|
||||
%=l "ln_REMOVE_TITLE"
|
||||
</h2>
|
||||
<p>
|
||||
%=l "ln_REMOVE_DESC"
|
||||
</p><br>
|
||||
<span class=label>
|
||||
%=l "NETWORK"
|
||||
</span><span class=data>
|
||||
%=$localnetwork
|
||||
</span><br><br>
|
||||
<span class=label>
|
||||
%=l "ln_SUBNET_MASK"
|
||||
</span><span class=data>
|
||||
%= $subnet
|
||||
</span><br><br>
|
||||
<span class=label>
|
||||
%=l "ROUTER"
|
||||
</span>
|
||||
<span class=data>
|
||||
%= $router
|
||||
</span><br><br>
|
||||
% if($deletehosts) {
|
||||
<br>
|
||||
%=$c->l("ln_REMOVE_HOSTS_DESC")
|
||||
<br>
|
||||
<span class=label>
|
||||
%= $c->l("ln_REMOVE_HOSTS_LABEL")
|
||||
</span>
|
||||
<span class= data>
|
||||
%=check_box deletehost=>1, checked=>1
|
||||
</span><br><br>
|
||||
%}
|
||||
%= hidden_field localnetwork=>$localnetwork
|
||||
<div class='center'>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</div>
|
||||
%end
|
||||
|
||||
</div>
|
@@ -0,0 +1,99 @@
|
||||
<div id='ln_list'>
|
||||
% my $btn = l('ln_LOCALNETWORK_ADD');
|
||||
%= form_for '/localnetworksa' => (method => 'POST') => begin
|
||||
<p>
|
||||
|
||||
% my $retref= $c->stash("ret");
|
||||
% my %ret;
|
||||
% unless (length($retref)) {%ret = (ret=>"");}
|
||||
% else {%ret = %$retref;}
|
||||
|
||||
% if ($config->{debug} == 1) {
|
||||
<p>
|
||||
%= dumper "Ret:".$ret{ret};
|
||||
</p>
|
||||
%}
|
||||
|
||||
% my @vars = split(",",$ret{vars});
|
||||
% my $var1 = @vars[0];
|
||||
% my $var2 = @vars[1];
|
||||
% my $var3 = @vars[2];
|
||||
% my $var4 = @vars[3];
|
||||
% my $var5 = @vars[4];
|
||||
% my $var6 = @vars[5];
|
||||
% my $var7 = @vars[6];
|
||||
|
||||
|
||||
%if ($ret{ret} eq "") {
|
||||
%=l "ln_FIRSTPAGE_DESC"
|
||||
%} elsif (index($ret{ret},"SUCCESS") != -1) {
|
||||
<div class='success'>
|
||||
<h2> Operation Status Report</h2>
|
||||
%= $c->render_to_string(inline => l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6,$var7));
|
||||
</div>
|
||||
%} else {
|
||||
<div class='sme-error'>
|
||||
<h2> Operation Status Report - Error</h2>
|
||||
%= $c->render_to_string(inline => l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6,$var7));
|
||||
</div>
|
||||
%}
|
||||
<br><br>
|
||||
<div class='center'>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</div>
|
||||
% end
|
||||
|
||||
<br>
|
||||
% my $numlocalnetworks = @$localnetworks;
|
||||
% if ($numlocalnetworks == 0){
|
||||
%=l 'ln_LOCAL_NETWORK_NONE'
|
||||
% } else {
|
||||
<br>
|
||||
<table class="sme-border TableSort"><thead>
|
||||
<tr>
|
||||
<th class='sme-border'>
|
||||
%=l 'NETWORK'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'ln_SUBNET_MASK'
|
||||
</th>
|
||||
|
||||
<th class='sme-border'>
|
||||
%=l 'ln_NUMBER_OF_HOSTS'
|
||||
</th>
|
||||
|
||||
<th class='sme-border'>
|
||||
%=l 'ROUTER'
|
||||
</th>
|
||||
|
||||
<th class='sme-border' '>
|
||||
%=l 'ACTION'
|
||||
</th>
|
||||
</tr>
|
||||
</thead><tbody>
|
||||
% foreach my $localnetwork (@$localnetworks )
|
||||
% {
|
||||
% my ($num_hosts) = esmith::util::computeHostRange( $localnetwork->key, $localnetwork->prop('Mask') );
|
||||
% my $removable = $localnetwork->prop('Removable') || "yes";
|
||||
% my $system = $localnetwork->prop('SystemLocalNetwork') || "no";
|
||||
% if ( $system eq "yes" ) { $removable = "no"; }
|
||||
<tr>
|
||||
%= t td => (class => 'sme-border') => $localnetwork->key
|
||||
%= t td => (class => 'sme-border') => $localnetwork->prop('Mask')
|
||||
%= t td => (class => 'sme-border') => $num_hosts
|
||||
%= t td => (class => 'sme-border') => $localnetwork->prop('Router')
|
||||
% if ($removable eq "yes") {
|
||||
<td class='sme-border'>
|
||||
<a href="localnetworksd?CsrfDef=TOKEN&trt=DEL&localnetwork=<%= $localnetwork->key%>"><button class='sme-remove-button' title="<%=l('REMOVE')%>"><%=l('REMOVE') %></button></a></td>
|
||||
% } else {
|
||||
<td class='sme-border'> </td>
|
||||
%}
|
||||
</tr>
|
||||
% }
|
||||
</tbody>
|
||||
</table>
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $ln_datas->{trt}
|
||||
%}
|
||||
</div>
|
@@ -0,0 +1,42 @@
|
||||
% layout 'default', title => 'Sme server 2 - Support';
|
||||
|
||||
% content_for 'head' => begin
|
||||
%= include 'partials/_head'
|
||||
% end
|
||||
|
||||
% content_for 'header' => begin
|
||||
%= include 'partials/_header'
|
||||
% end
|
||||
|
||||
% content_for 'info' => begin
|
||||
%= include 'partials/_info'
|
||||
% end
|
||||
|
||||
% content_for 'navigation' => begin
|
||||
< %= $navigation % >
|
||||
%= include 'partials/_navig'
|
||||
% end
|
||||
|
||||
% content_for 'footer' => begin
|
||||
%= include 'partials/_footer'
|
||||
% end
|
||||
|
||||
% content_for 'end' => begin
|
||||
<div id="end" class="sme-copyrightbar">
|
||||
content_end
|
||||
</div>
|
||||
% end
|
||||
|
||||
<div id="module">
|
||||
<p> < %= $title % ></p><br>
|
||||
<%= $modul %><br>
|
||||
Et eu humo modo paratus quadrum turpis validus. Abico appellatio augue qui refero valetudo vereor. Augue diam eu genitus ille letalis nobis typicus veniam.
|
||||
|
||||
Dignissim dolus loquor lucidus probo proprius tation torqueo. Abluo luptatum quidem. Acsi aliquip eu ex iaceo natu populus quae scisco si.
|
||||
|
||||
Aliquam autem blandit decet in jus loquor quidne saluto te. Eu meus voco wisi. Abico defui euismod huic jumentum lobortis mos vulpes. Causa eros feugiat hendrerit illum luctus nimis quidem valetudo. Elit ex obruo tation usitas vero. Abigo dolus hendrerit huic iriure jumentum letalis lobortis melior nulla. Blandit causa immitto iriure metuo nutus pagus ut voco.
|
||||
<br>
|
||||
<p>
|
||||
%= link_to Welcome => '/'
|
||||
</p>
|
||||
</div>
|
@@ -0,0 +1,36 @@
|
||||
% use SrvMngr qw( getNavigation );
|
||||
% my %nav = %{SrvMngr->getNavigation( $c->languages(), 'N' )};
|
||||
|
||||
<div id='navmenu'>
|
||||
<!-- <a href='#' id='tognav' class='menu-title'>NAVIGATION</a> -->
|
||||
<div id='menunav'>
|
||||
|
||||
% my $cc = 1;
|
||||
% foreach my $h (sort { ($nav{$a}{'WEIGHT'}/$nav{$a}{'COUNT'})
|
||||
% <=> ($nav{$b}{'WEIGHT'}/$nav{$b}{'COUNT'}) } keys %nav) {
|
||||
%
|
||||
<!-- div class='section section-title'><%= $h %></div -->
|
||||
<div><a href='#' class='section section-title'><%= $h %></a></div>
|
||||
<div class='togms'>
|
||||
% my ($classNew, $target, $href) = '';
|
||||
% foreach (sort { $a->{'WEIGHT'} <=> $b->{'WEIGHT'} } @{$nav{$h}{'DESCRIPTIONS'}}) {
|
||||
|
||||
% next if ($_->{'MENUCAT'} ne 'N' ); # menu Navigation
|
||||
|
||||
% if ( $_->{'FILENAME'} =~ m/^2\// ) {
|
||||
% $target = '_self';
|
||||
% (my $file2 = $_->{'FILENAME'}) =~ s|^2/||;
|
||||
% $href = '/smanager/' . $file2;
|
||||
% } else {
|
||||
% $target = 'main';
|
||||
% $href = '/server-manager' . $_->{'FILENAME'};
|
||||
% }
|
||||
<div class='menu-cell'><a class='item<%= $classNew %>' target='<%= $target %>'
|
||||
id='sme<%= $cc %>' href='<%= $href %>'><%= $_->{'DESCRIPTION'} %></a></div>
|
||||
% $cc++;
|
||||
% }
|
||||
</div>
|
||||
|
||||
% }
|
||||
</div>
|
||||
</div>
|
@@ -0,0 +1,38 @@
|
||||
% use SrvMngr qw( getNavigation );
|
||||
% my %nav = %{SrvMngr->getNavigation( $c->languages(), 'A' )};
|
||||
|
||||
<div id='navigat2'>
|
||||
<!-- ><div><a href='#' id='togadm' class='menu-title'>ADMINISTRATION</a></div> -->
|
||||
<div id='menuadm'>
|
||||
|
||||
% my $cc = 1;
|
||||
% foreach my $h (sort { ($nav{$a}{'WEIGHT'}/$nav{$a}{'COUNT'})
|
||||
% <=> ($nav{$b}{'WEIGHT'}/$nav{$b}{'COUNT'}) } keys %nav) {
|
||||
<div><a href='#' class='section section-title'><%= $h %></a></div>
|
||||
<div class='togms'>
|
||||
% my ($classNew, $target, $href) = '';
|
||||
% foreach (sort { $a->{'WEIGHT'} <=> $b->{'WEIGHT'} } @{$nav{$h}{'DESCRIPTIONS'}}) {
|
||||
|
||||
% next if ($_->{'MENUCAT'} ne 'A' ); # menu Admin
|
||||
|
||||
% if ( $_->{'FILENAME'} =~ m/^2\// ) {
|
||||
% $target = '_self';
|
||||
% (my $file2 = $_->{'FILENAME'}) =~ s|^2/||;
|
||||
% $href = '/smanager/' . $file2;
|
||||
% } else {
|
||||
% $target = 'main';
|
||||
%# $href = '/server-manager' . $_->{'FILENAME'};
|
||||
%# $href = $c->getlegacyurl($c,'/server-manager' . $_->{'FILENAME'});
|
||||
% my $host = $c->req->url->to_abs->host;
|
||||
% $href = "/smanager/legacypanel?url=https://$host/server-manager" . $_->{'FILENAME'};
|
||||
%
|
||||
% }
|
||||
<div class='menu-cell'><a class='item<%= $classNew %>' target='<%= $target %>'
|
||||
id='sme<%= $cc %>' href='<%= $href %>'><%= $_->{'DESCRIPTION'} %></a></div>
|
||||
% $cc++;
|
||||
% }
|
||||
</div>
|
||||
% }
|
||||
|
||||
</div>
|
||||
</div>
|
@@ -0,0 +1,85 @@
|
||||
<div id='pf_add'>
|
||||
|
||||
% my $retref= $c->stash("ret");
|
||||
% my %ret;
|
||||
% unless (length($retref)) {%ret = (ret=>"");}
|
||||
% else {%ret = %$retref;}
|
||||
|
||||
% my @vars = split(",",$ret{vars});
|
||||
% my $var1 = @vars[0];
|
||||
% my $var2 = @vars[1];
|
||||
% my $var3 = @vars[2];
|
||||
% my $var4 = @vars[3];
|
||||
% my $var5 = @vars[4];
|
||||
% my $var6 = @vars[5];
|
||||
|
||||
%if ($ret{'ret'} eq "") {
|
||||
|
||||
%} elsif (index($ret{ret},"SUCCESS") != -1) {
|
||||
<div class='success'>
|
||||
<h2> Operation Status Report</h2>
|
||||
%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6);
|
||||
</div>
|
||||
%} else {
|
||||
<div class='sme-error'>
|
||||
<h2> Operation Status Report - Error</h2>
|
||||
%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6);
|
||||
</div>
|
||||
%}
|
||||
<br />
|
||||
% my $btn = l('ADD');
|
||||
|
||||
% if ($config->{debug} == 1) {
|
||||
<p>
|
||||
%= dumper $c->current_route
|
||||
%= dumper $c->stash("ret")
|
||||
</p>
|
||||
% }
|
||||
|
||||
%= form_for '/portforwardingb' => (method => 'POST') => begin
|
||||
<h2>
|
||||
%=l "pf_CREATE_RULE"
|
||||
</h2>
|
||||
<p>
|
||||
%=l "pf_SUMMARY_ADD_DESC"
|
||||
</p><br>
|
||||
<span class=label>
|
||||
%=l "pf_LABEL_PROTOCOL"
|
||||
</span><span class=data>
|
||||
%=select_field 'proto'=>["TCP","UDP"]
|
||||
</span><br><br>
|
||||
<span class=label>
|
||||
%=l "pf_LABEL_SOURCE_PORT"
|
||||
</span><span class=data>
|
||||
%=text_field 'sport'
|
||||
</span><br><br>
|
||||
<span class=label>
|
||||
%=l "pf_LABEL_DESTINATION_PORT"
|
||||
</span>
|
||||
<span class=data>
|
||||
%=text_field 'dport'
|
||||
</span><br><br>
|
||||
<span class=label>
|
||||
%=l "pf_LABEL_DESTINATION_HOST"
|
||||
</span>
|
||||
<span class=data>
|
||||
%=text_field 'dhost'
|
||||
</span><br><br>
|
||||
<span class=label>
|
||||
%=l "pf_ALLOW_HOSTS"
|
||||
</span>
|
||||
<span class=data>
|
||||
%=text_field 'allow'
|
||||
</span><br><br>
|
||||
<span class=label>
|
||||
%=l "pf_RULE_COMMENT"
|
||||
</span>
|
||||
<span class=data>
|
||||
%=text_field 'cmmnt'
|
||||
</span><br><br>
|
||||
<div class='center'>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</div>
|
||||
%end
|
||||
|
||||
</div>
|
@@ -0,0 +1,65 @@
|
||||
<div id='ln_del'>
|
||||
|
||||
% my $btn = l('REMOVE');
|
||||
% my $proto = $pf_datas->{proto};
|
||||
% my $sport = $pf_datas->{sport};
|
||||
% my $dport = $pf_datas->{dport};
|
||||
% my $dhost = $pf_datas->{dhost};
|
||||
% my $cmmnt = $pf_datas->{cmmnt};
|
||||
% my $allow = $pf_datas->{allow};
|
||||
|
||||
% if ($config->{debug} == 1) {
|
||||
<p>
|
||||
%= dumper $c->current_route
|
||||
%= dumper $c->stash("ret")
|
||||
%= dumper %$pf_datas
|
||||
</p>
|
||||
% }
|
||||
|
||||
%= form_for '/portforwardinge' => (method => 'POST') => begin
|
||||
<br>
|
||||
%= l "pf_SUMMARY_REMOVE_DESC"
|
||||
</p><br>
|
||||
<span class=label>
|
||||
%=l "pf_LABEL_PROTOCOL"
|
||||
</span><span class=data>
|
||||
%=$proto
|
||||
</span><br><br>
|
||||
<span class=label>
|
||||
%=l "pf_LABEL_SOURCE_PORT"
|
||||
</span><span class=data>
|
||||
%=$sport
|
||||
</span><br><br>
|
||||
<span class=label>
|
||||
%=l "pf_LABEL_DESTINATION_HOST"
|
||||
</span>
|
||||
<span class=data>
|
||||
%=$dport
|
||||
</span><br><br>
|
||||
<span class=label>
|
||||
%=l "pf_LABEL_DESTINATION_PORT"
|
||||
</span>
|
||||
<span class=data>
|
||||
%=$dhost
|
||||
</span><br><br>
|
||||
<span class=label>
|
||||
%=l "pf_RULE_COMMENT"
|
||||
</span>
|
||||
<span class=data>
|
||||
%=$cmmnt
|
||||
</span><br><br>
|
||||
<span class=label>
|
||||
%=l "pf_ALLOW_HOSTS"
|
||||
</span>
|
||||
<span class=data>
|
||||
%=$allow
|
||||
</span><br><br>
|
||||
%#}
|
||||
%= hidden_field sport=>$sport
|
||||
%= hidden_field proto=>$proto
|
||||
<div class='center'>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</div>
|
||||
%end
|
||||
|
||||
</div>
|
@@ -0,0 +1,109 @@
|
||||
<div id='pf_list'>
|
||||
% my $btn = l('pf_CREATE_RULE');
|
||||
%= form_for '/portforwardinga' => (method => 'POST') => begin
|
||||
|
||||
% my $retref= $c->stash("ret");
|
||||
% my %ret;
|
||||
% unless (length($retref)) {%ret = (ret=>"");}
|
||||
% else {%ret = %$retref;}
|
||||
|
||||
% my $numtcpforwards = @$tcpforwards;
|
||||
% my $numudpforwards = @$udpforwards;
|
||||
|
||||
% my @vars = split(",",$ret{vars});
|
||||
% my $var1 = @vars[0];
|
||||
% my $var2 = @vars[1];
|
||||
% my $var3 = @vars[2];
|
||||
% my $var4 = @vars[3];
|
||||
% my $var5 = @vars[4];
|
||||
% my $var6 = @vars[5];
|
||||
|
||||
|
||||
|
||||
%if ($ret{ret} eq "") {
|
||||
%= $c->render_to_string(inline => l('pf_FIRST_PAGE_DESCRIPTION'));
|
||||
%} elsif (index($ret{ret},"SUCCESS") != -1) {
|
||||
<div class='success'>
|
||||
<h2> Operation Status Report</h2>
|
||||
%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6);
|
||||
</div>
|
||||
%} else {
|
||||
<div class='sme-error'>
|
||||
<h2> Operation Status Report - Error</h2>
|
||||
%= $c->l($ret{ret},$var1,$var2,$var3,$var4,$var5,$var6);
|
||||
</div>
|
||||
%}
|
||||
<br><br>
|
||||
<div class='center'>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</div>
|
||||
% end
|
||||
|
||||
<br>
|
||||
|
||||
% if ($empty){
|
||||
<br>
|
||||
%=l 'pf_NO_FORWARDS'
|
||||
% } else {
|
||||
<br>
|
||||
%=l 'pf_SHOW_FORWARDS'
|
||||
<br>
|
||||
<table class="sme-border TableSort"><thead>
|
||||
<tr>
|
||||
<th class='sme-border'>
|
||||
%=l 'pf_LABEL_PROTOCOL'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'pf_LABEL_SOURCE_PORT'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'pf_LABEL_DESTINATION_HOST'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'pf_LABEL_DESTINATION_PORT'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'pf_ALLOW_HOSTS'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'pf_RULE_COMMENT'
|
||||
</th>
|
||||
<th class='sme-border' '>
|
||||
%=l 'ACTION'
|
||||
</th>
|
||||
</tr>
|
||||
</thead><tbody>
|
||||
% my %forwards = ();
|
||||
% $forwards{TCP} = $tcpforwards;
|
||||
% $forwards{UDP} = $udpforwards;
|
||||
|
||||
% foreach my $proto (sort keys %forwards) {
|
||||
|
||||
% if (@{ $forwards{$proto} }) {
|
||||
% foreach my $entry (@{ $forwards{$proto} }) {
|
||||
<tr>
|
||||
% my $sport = $entry->key;
|
||||
% my $dhost = $entry->prop('DestHost');
|
||||
% my $dport = $entry->prop('DestPort') || '';
|
||||
% my $cmmnt = $entry->prop('Comment') || '';
|
||||
% my $allow = $entry->prop('AllowHosts') || '';
|
||||
%= t td => (class => 'sme-border') => $proto
|
||||
%= t td => (class => 'sme-border') => $sport
|
||||
%= t td => (class => 'sme-border') => $dhost
|
||||
%= t td => (class => 'sme-border') => $dport
|
||||
%= t td => (class => 'sme-border') => $allow
|
||||
%= t td => (class => 'sme-border') => $cmmnt
|
||||
<td class='sme-border'>
|
||||
<a href="portforwardingd?CsrfDef=TOKEN&trt=DEL&sport=<%= $sport%>&proto=<%= $proto%>"><button class='sme-remove-button' title="<%=l('REMOVE')%>"><%=l('REMOVE') %></button></a>
|
||||
</td>
|
||||
</tr>
|
||||
% }
|
||||
% }
|
||||
%}
|
||||
%}
|
||||
</tbody>
|
||||
</table>
|
||||
%= hidden_field 'trt' => $pf_datas->{trt}
|
||||
|
||||
</div>
|
||||
|
@@ -0,0 +1,46 @@
|
||||
<div id='prt_add'>
|
||||
|
||||
% my $btn = l('ADD');
|
||||
|
||||
%= form_for '/printers2' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'prt_CREATE_NEW_PRINTER'
|
||||
</h2><br>
|
||||
%=l 'prt_CREATE_NEW_DESC'
|
||||
</p><br>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'prt_PRINTER_NAME', class => 'label'
|
||||
</span><span class=data>
|
||||
%= text_field 'Name', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'DESCRIPTION_BRIEF', class => 'label'
|
||||
</span><span class=data>
|
||||
%= text_field 'Description', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'LOCATION', class => 'label'
|
||||
</span><span class=data>
|
||||
%= select_field 'Location' => $c->printerLocation_list(), class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $prt_datas->{trt}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,32 @@
|
||||
<div id='prt_del'>
|
||||
|
||||
|
||||
% my $btn = l('REMOVE');
|
||||
%= form_for '/printers2' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'prt_REMOVE_PRINTER'
|
||||
</h2>
|
||||
<br><br>
|
||||
|
||||
<%=l 'prt_ABOUT_TO_REMOVE'%> <%=$prt_datas->{printer}%>
|
||||
(<%=$prt_datas->{description}%>)
|
||||
<br>
|
||||
|
||||
%=l 'prt_SPOOL_FILE_WARNING'
|
||||
<br>
|
||||
|
||||
%=l 'prt_ARE_YOU_SURE'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $prt_datas->{trt}
|
||||
%= hidden_field 'printer' => $prt_datas->{printer}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,69 @@
|
||||
<div id='prt_list'>
|
||||
|
||||
|
||||
% my $btn = l('prt_INITIAL_BTN');
|
||||
|
||||
%= form_for '/printers' => (method => 'POST') => begin
|
||||
|
||||
%= hidden_field 'trt' => 'ADD'
|
||||
|
||||
<p>
|
||||
<br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
% end
|
||||
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'prt_CURRENT_LIST'
|
||||
</h2>
|
||||
<br><br>
|
||||
% my $numPrinters = @$printerDrivers;
|
||||
% if ($numPrinters == 0){
|
||||
%=l 'prt_NO_PRINTERS'
|
||||
% } else {
|
||||
<table class="sme-border TableSort"><thead>
|
||||
<tr>
|
||||
<th class='sme-border'>
|
||||
%=l 'NAME'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'DESCRIPTION'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'LOCATION'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'prt_REMOTE_ADDRESS'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'prt_REMOTE_NAME'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'ACTION'
|
||||
</th>
|
||||
</tr>
|
||||
</thead><tbody>
|
||||
% foreach my $printer (@$printerDrivers)
|
||||
% {
|
||||
% my $address = ($printer->prop('Location') eq 'remote')
|
||||
% ? $printer->prop('Address') : 'N/A';
|
||||
% my $remoteName = ($printer->prop('Location') eq 'remote')
|
||||
% ? $printer->prop('RemoteName') : 'N/A';
|
||||
% $remoteName = 'raw' unless ($remoteName);
|
||||
<tr>
|
||||
%= t td => (class => 'sme-border') => $printer->key
|
||||
%= t td => (class => 'sme-border') => $printer->prop('Description')
|
||||
%= t td => (class => 'sme-border') => $printer->prop('Location')
|
||||
%= t td => (class => 'sme-border') => $address
|
||||
%= t td => (class => 'sme-border') => $remoteName
|
||||
<td class='sme-border'><a href="printers2?CsrfDef=TOKEN&trt=DEL&printer=<%= $printer->key%>"><button class='sme-remove-button' title="<%=l('REMOVE')%>"><%=l('REMOVE') %></button></a></td>
|
||||
</tr>
|
||||
% }
|
||||
</tbody>
|
||||
</table>
|
||||
<%} %>
|
||||
</p>
|
||||
|
||||
|
||||
</div>
|
@@ -0,0 +1,43 @@
|
||||
<div id='prt_net'>
|
||||
|
||||
% my $btn = l('ADD');
|
||||
|
||||
%= form_for '/printers2' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'prt_CREATE_NETWORK_PRINTER'
|
||||
</h2>
|
||||
|
||||
<br><br>
|
||||
%=l 'prt_CREATE_NETWORK_DESC'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'prt_HOSTNAME_OR_IP', class => 'label'
|
||||
</span><span class=data>
|
||||
%= text_field 'Address', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'prt_REMOTE_NAME_DESC', class => 'label'
|
||||
</span><span class=data>
|
||||
%= text_field 'RemoteName' => 'raw', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $prt_datas->{trt}
|
||||
%= hidden_field 'Name' => $prt_datas->{name}
|
||||
%= hidden_field 'Description' => $prt_datas->{description}
|
||||
%= hidden_field 'Location' => $prt_datas->{location}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,39 @@
|
||||
<div id='pse_add'>
|
||||
|
||||
% my $btn = l('ADD');
|
||||
|
||||
%= form_for '/pseudonyms2' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'pse_TITLE_CREATE'
|
||||
</h2>
|
||||
<br>
|
||||
%= $c->render_to_string(inline => l('pse_VALID_PSEUDONYM_NAMES'));
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'pse_PSEUDONYM_NAME', class => 'label'
|
||||
</span><span class=data>
|
||||
%= text_field 'Pseudonym', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'pse_SELECT_ACCOUNT', class => 'label'
|
||||
</span><span class=data>
|
||||
%= select_field 'Account' => $c->existing_accounts_list(), class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $pse_datas->{trt}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,25 @@
|
||||
<div id='pse_del'>
|
||||
|
||||
% my $btn = l('REMOVE');
|
||||
%= form_for '/pseudonyms2' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'pse_REMOVE_PSEUDONYM'
|
||||
</h2>
|
||||
|
||||
<p>
|
||||
%= $c->render_to_string(inline => l('pse_ABOUT_TO_REMOVE', $pse_datas->{pseudonym}));
|
||||
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $pse_datas->{trt}
|
||||
%= hidden_field 'Pseudonym' => $pse_datas->{pseudonym}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,79 @@
|
||||
<div id='pse_list'>
|
||||
|
||||
% my $btn = l('pse_CLICK_TO_CREATE');
|
||||
|
||||
%= $c->render_to_string(inline => l('pse_DESCRIPTION'));
|
||||
|
||||
%= form_for '/pseudonyms' => (method => 'POST') => begin
|
||||
|
||||
%= hidden_field 'trt' => 'ADD'
|
||||
|
||||
<p><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
% end
|
||||
|
||||
|
||||
<p><h2>
|
||||
%=l 'pse_CURRENT_PSEUDONYMS'
|
||||
</h2><br>
|
||||
% my $numPseudonyms = @$pseudonyms;
|
||||
% if ($numPseudonyms == 0){
|
||||
%=l 'pse_ACCOUNT_PSEUDONYM_NONE'
|
||||
% } else {
|
||||
<table class="sme-border TableSort"><thead>
|
||||
<tr>
|
||||
<th class='sme-border'>
|
||||
%=l 'pse_PSEUDONYM'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'pse_USER_OR_GROUP'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'ACTION'
|
||||
</th>
|
||||
<!-- <th class='sme-border' style="display: normal;"></th> -->
|
||||
</tr></thead>
|
||||
<tbody>
|
||||
|
||||
% foreach my $pseudonym ( @$pseudonyms )
|
||||
% {
|
||||
% my $modifiable = $pseudonym->prop('Changeable') || 'yes';
|
||||
% my $removable = $pseudonym->prop('Removable') || 'yes';
|
||||
|
||||
% my $account = $pseudonym->prop('Account');
|
||||
% $account = "Administrator" if ($account eq "admin");
|
||||
% $account = $c->l("pse_EVERYONE") if ($account eq "shared");
|
||||
|
||||
% my $visible = $pseudonym->prop('Visible');
|
||||
% $account .= $c->l("pse_LOCAL_ONLY")
|
||||
% if (defined $visible && $visible eq "internal");
|
||||
|
||||
<tr>
|
||||
%= t td => (class => 'sme-border') => $pseudonym->key
|
||||
%= t td => (class => 'sme-border') => $account
|
||||
|
||||
% my ($actionModify, $actionRemove) = ' ';
|
||||
% if ($modifiable eq 'yes') {
|
||||
% $actionModify = "<a href='pseudonyms2?CsrfDef=TOKEN&trt=UPD&pseudonym=" . $pseudonym->key . "'>" . "<button class='sme-modify-button' title=".l('MODIFY').">".l('MODIFY')."</button>" . "</a>";
|
||||
% }
|
||||
% if ($removable eq 'yes') {
|
||||
% $actionRemove = "<a href='pseudonyms2?CsrfDef=TOKEN&trt=DEL&pseudonym=" . $pseudonym->key . "'>" . "<button class='sme-remove-button' title=".l('REMOVE').">".l('REMOVE')."</button>" . "</a>";
|
||||
% }
|
||||
|
||||
<td class='sme-border' style="min-width:15em">
|
||||
<%= $c->render_to_string(inline => $actionModify) %> <%= $c->render_to_string(inline => $actionRemove) %>
|
||||
</td>
|
||||
</tr>
|
||||
|
||||
% }
|
||||
</tbody>
|
||||
</table>
|
||||
<%} %>
|
||||
</p>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
|
@@ -0,0 +1,53 @@
|
||||
<div id='pse_upd'>
|
||||
|
||||
% my $btn = l('SAVE');
|
||||
|
||||
%= form_for '/pseudonyms2' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'pse_MODIFY_PSEUDONYM'
|
||||
</h2>
|
||||
<br>
|
||||
%=l 'pse_DESC_PSEUDONYM_NAME'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'pse_PSEUDONYM_NAME', class => 'label'
|
||||
</span><span class=data>
|
||||
%= $pse_datas->{pseudonym}, class => 'data'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'pse_SELECT_ACCOUNT', class => 'label'
|
||||
</span><span class=data>
|
||||
% param 'Account' => $pse_datas->{account} unless param 'Account';
|
||||
%= select_field 'Account' => $c->existing_accounts_list(), class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
%if ( $c->is_pseudonym_not_removable( $pse_datas->{pseudonym} ) ) {
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'pse_SELECT_INTERNAL', class => 'label'
|
||||
</span><span class=data>
|
||||
% param 'Internal' => $pse_datas->{internal} unless param 'Internal';
|
||||
%= select_field 'Internal' => [ [(l 'YES') => 'YES'], [(l 'NO') => 'NO'] ], class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
%}
|
||||
|
||||
<p>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $pse_datas->{trt}
|
||||
%= hidden_field 'Pseudonym' => $pse_datas->{pseudonym}
|
||||
|
||||
%end
|
||||
|
||||
</div>
|
@@ -0,0 +1,70 @@
|
||||
<div id='quo_list'>
|
||||
|
||||
<p>
|
||||
% my $modul = $c->render_to_string(inline => $c->l('quo_QUOTA_DESC'));
|
||||
%= $modul
|
||||
|
||||
<h3>
|
||||
%=l 'quo_CURRENT_USAGE_AND_SETTINGS'
|
||||
</h3>
|
||||
|
||||
<br>
|
||||
% my $numUsers = @$userAccounts;
|
||||
% if ($numUsers == 0){
|
||||
%=l 'ACCOUNT_USER_NONE'
|
||||
% } else {
|
||||
|
||||
% my $limit = l('quo_LIMIT_WITH_GRACE_MB'); $limit =~ s#(graceX)#<br>$1#;
|
||||
% my $absolute = l('quo_ABS_LIMIT_MB'); $absolute =~ s#(limitX)#<br>$1#;
|
||||
% my $current = l('quo_CURRENT_USAGE'); $current =~ s#(usageX)#<br>$1#;
|
||||
|
||||
<table class="sme-border TableSort"><thead>
|
||||
<tr>
|
||||
<th class='sme-border'>
|
||||
%=l 'ACCOUNT'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'USER_NAME'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%= $limit
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%= $absolute
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%= $current
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'ACTION'
|
||||
</th>
|
||||
</tr>
|
||||
</thead><tbody>
|
||||
|
||||
% foreach my $user (@$userAccounts)
|
||||
% {
|
||||
% my $uid = getpwnam($user->key);
|
||||
% unless ($uid) {
|
||||
% warn($self->localise('COULD_NOT_GET_UID'),$user->key);
|
||||
% next;
|
||||
% }
|
||||
% my $name = $user->prop("FirstName")." ".$user->prop("LastName");
|
||||
% my $dev = Quota::getqcarg('/home/e-smith/files');
|
||||
% my ($bc, $bs, $bh, $bt, $ic, $is, $ih, $it) = Quota::query($dev, $uid);
|
||||
<tr>
|
||||
%= t td => (class => 'sme-border') => $user->key
|
||||
%= t td => (class => 'sme-border') => $name
|
||||
%= t td => (class => 'sme-border') => sprintf("%.2f", $bs / 1024 )
|
||||
%= t td => (class => 'sme-border') => sprintf("%.2f", $bh / 1024 )
|
||||
%= t td => (class => 'sme-border') => sprintf("%.2f", $bc / 1024 )
|
||||
<td class='sme-border'><a href="quotad?CsrfDef=TOKEN&trt=UPD&user=<%= $user->key%>"><button class='sme-modify-button' title="<%=l('MODIFY')%>"><%=l('MODIFY') %></button></a></td>
|
||||
</tr>
|
||||
% }
|
||||
</tbody>
|
||||
</table>
|
||||
<%} %>
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $quo_datas->{trt}
|
||||
|
||||
</div>
|
@@ -0,0 +1,84 @@
|
||||
<div id='quo_upd'>
|
||||
|
||||
% my $btn = l('SAVE');
|
||||
|
||||
%= form_for '/quota2' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'quo_MODIFY_USER_TITLE'
|
||||
</h2>
|
||||
</p>
|
||||
|
||||
% my $userid = $quo_datas->{user};
|
||||
% my $user = $quo_datas->{userRec};
|
||||
<!--
|
||||
for my $user @$userAccounts
|
||||
{
|
||||
unless ( $user->key eq $userid) {
|
||||
warn(l('USER_DIFFERENT'),$user->key);
|
||||
next;
|
||||
}
|
||||
}
|
||||
-->
|
||||
% my $uid = getpwnam($user->key);
|
||||
% unless ($uid) {
|
||||
% warn(l('COULD_NOT_GET_UID'),$user->key);
|
||||
% next;
|
||||
% }
|
||||
|
||||
% my $name = $user->prop("FirstName") . " " . $user->prop("LastName");
|
||||
% my $dev = Quota::getqcarg('/home/e-smith/files');
|
||||
% my ($bc, $bs, $bh, $bt, $ic, $is, $ih, $it) = Quota::query($dev, $uid);
|
||||
|
||||
<p>
|
||||
%=l 'quo_USER'
|
||||
%= "$name (\"$userid\")"
|
||||
%=l 'quo_CURRENTLY_HAS'
|
||||
%= $ic
|
||||
%=l 'quo_FILES'
|
||||
%=l 'quo_OCCUPYING'
|
||||
%= $bc
|
||||
%=l 'quo_MEGABYTES'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
%=l 'quo_INSTRUCTIONS'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'quo_USER', class => 'label'
|
||||
</span><span class=data>
|
||||
%= $name, class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'quo_LIMIT_WITH_GRACE', class => 'label'
|
||||
</span><span class=data>
|
||||
% param 'Soft' => $quo_datas->{softlim} unless param 'Soft';
|
||||
%= text_field 'Soft', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'quo_ABS_LIMIT', class => 'label'
|
||||
</span><span class=data>
|
||||
% param 'Hard' => $quo_datas->{hardlim} unless param 'Hard';
|
||||
%= text_field 'Hard', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $quo_datas->{trt}
|
||||
%= hidden_field 'user' => $quo_datas->{user}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,14 @@
|
||||
<p><h2>
|
||||
%=l 'rma_TITLE_PPTP'
|
||||
</h2><br>
|
||||
%=l 'rma_DESC_PPTP'
|
||||
<br>
|
||||
<span class=label>
|
||||
%=l 'rma_LABEL_PPTP'
|
||||
</span><span class=data>
|
||||
% param 'PptpSessions' => $c->get_pptp_sessions unless param 'PptpSessions';
|
||||
%= text_field 'PptpSessions' => $c->get_pptp_sessions(), class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<hr class='sectionbar' />
|
@@ -0,0 +1,14 @@
|
||||
<div id='swt_theme'>
|
||||
<font class="sme-copyright">
|
||||
% my $btn = l('swt_THEME');
|
||||
%= form_for $c->url_for('swttheme') => (method => 'POST') => begin
|
||||
% my $value = $c->session->{'CurrentTheme'};
|
||||
% $value = session 'CurrentTheme';
|
||||
|
||||
% param 'Theme' => $value unless param 'Theme';
|
||||
%= select_field 'Theme' => $c->theme_list(), class => 'input'
|
||||
%= hidden_field 'From' => $c->tx->req->url
|
||||
%= submit_button "$btn"
|
||||
% end
|
||||
</font>
|
||||
</div>
|
@@ -0,0 +1,32 @@
|
||||
% use SrvMngr qw( getNavigation );
|
||||
% my %nav = %{SrvMngr->getNavigation( $c->languages(), 'U' )};
|
||||
|
||||
<div id='usermenu'>
|
||||
<a href='#' id='toguser' class='section section-title'>Current User (<%= session 'username' %>)</a>
|
||||
<div id='menuuser'>
|
||||
% my $cc = 1;
|
||||
% foreach my $h (sort { ($nav{$a}{'WEIGHT'}/$nav{$a}{'COUNT'})
|
||||
% <=> ($nav{$b}{'WEIGHT'}/$nav{$b}{'COUNT'}) } keys %nav) {
|
||||
<!-- div class='section'><%= $h %></div -->
|
||||
% my ($classNew, $target, $href) = '';
|
||||
% foreach (sort { $a->{'WEIGHT'} <=> $b->{'WEIGHT'} } @{$nav{$h}{'DESCRIPTIONS'}}) {
|
||||
|
||||
% next if ($_->{'MENUCAT'} ne 'U' ); # menu User
|
||||
|
||||
% if ( $_->{'FILENAME'} =~ m/^2\// ) {
|
||||
% $target = '_self';
|
||||
% (my $file2 = $_->{'FILENAME'}) =~ s|^2/||;
|
||||
% $href = '/smanager/' . $file2;
|
||||
% } else {
|
||||
% $target = 'main';
|
||||
% $href = '/server-manager' . $_->{'FILENAME'};
|
||||
% }
|
||||
<div class='menu-cell'><a class='item<%= $classNew %>' target='<%= $target %>'
|
||||
id='sme<%= $cc %>' href='<%= $href %>'><%= $_->{'DESCRIPTION'} %></a></div>
|
||||
% $cc++;
|
||||
% }
|
||||
|
||||
% }
|
||||
|
||||
</div>
|
||||
</div>
|
@@ -0,0 +1,28 @@
|
||||
<div id='usr_del'>
|
||||
|
||||
% my $btn = l('REMOVE');
|
||||
|
||||
%= form_for '/useraccountsd' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'usr_REMOVE_ACCOUNT_TITLE'
|
||||
</h2>
|
||||
|
||||
<br>
|
||||
%= $c->l('usr_REMOVE_DESC', $usr_datas->{user}, $usr_datas->{name} );
|
||||
<br>
|
||||
%= $c->render_to_string(inline => $c->l('usr_REMOVE_DESC2'))
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $usr_datas->{trt}
|
||||
%= hidden_field 'user' => $usr_datas->{user}
|
||||
%= hidden_field 'name' => $usr_datas->{name}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,94 @@
|
||||
<div id='usr_list'>
|
||||
|
||||
|
||||
% my $btn = l('usr_ADD_USER');
|
||||
|
||||
%= form_for '/useraccounts' => (method => 'POST') => begin
|
||||
|
||||
<p>
|
||||
<br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
% end
|
||||
|
||||
<p>
|
||||
%= $c->render_to_string(inline => $c->l('usr_FIRSTPAGE_DESC'))
|
||||
<br>
|
||||
</p>
|
||||
|
||||
% my $numUsers = @$users;
|
||||
% if ($numUsers == 0){
|
||||
%=l 'usr_NO_USER_ACCOUNTS'
|
||||
% } else {
|
||||
<table class="sme-border TableSort"><thead>
|
||||
<tr>
|
||||
<th class='sme-border'>
|
||||
%=l 'ACCOUNT'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'USER_NAME'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'usr_VPN_CLIENT_ACCESS'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'usr_FORWARDING_ADDRESS'
|
||||
</th>
|
||||
<th class='sme-border'>
|
||||
%=l 'ACTION'
|
||||
</th>
|
||||
</tr>
|
||||
</thead><tbody>
|
||||
|
||||
% foreach my $user (@$users) {
|
||||
|
||||
% my $username = $user->key();
|
||||
% my $first = $user->prop('FirstName');
|
||||
% my $last = $user->prop('LastName');
|
||||
% my $lockable = $user->prop('Lockable') || 'yes';
|
||||
% my $removable = $user->prop('Removable') || 'yes';
|
||||
% my $fwd = (($user->prop('EmailForward') || 'local') =~ m/^forward|both$/) ?
|
||||
% $user->prop('ForwardAddress') : '';
|
||||
% my $vpnaccess = $user->prop('VPNClientAccess') || 'no';
|
||||
% $vpnaccess = $vpnaccess eq 'yes' ? $c->l('YES') : $c->l('NO');
|
||||
% my $password_set = $user->prop('PasswordSet');
|
||||
|
||||
<tr>
|
||||
%= t td => (class => 'sme-border') => $username
|
||||
%= t td => (class => 'sme-border') => "$first $last"
|
||||
%= t td => (class => 'sme-border') => $vpnaccess
|
||||
%= t td => (class => 'sme-border') => $fwd
|
||||
% my ($actionModify, $actionLock, $actionResetPw, $actionRemove) = ' ';
|
||||
% if ($username eq 'admin') {
|
||||
% $actionModify = "<a href='useraccountsd?CsrfDef=TOKEN&trt=UPS&user=" . $username . "'>" . "<button class='sme-modify-button' title=".l("MODIFY").">".l("MODIFY")."</button></a>";
|
||||
% $actionResetPw = "<a href='useraccountsd?CsrfDef=TOKEN&trt=PWS&user=" . $username . "'>" . "<button class='sme-password-button' title=".l("Reset-Password").">".l("Reset-Password")."</button></a>";
|
||||
% } else {
|
||||
% $actionModify = "<a href='useraccountsd?CsrfDef=TOKEN&trt=UPD&user=" . $username . "'>" . "<button class='sme-modify-button' title=".l("MODIFY").">".l("MODIFY")."</button></a>";
|
||||
% if ($password_set ne 'yes') {
|
||||
% $actionLock = l('ACCOUNT_LOCKED');
|
||||
% $actionResetPw = "<a href='useraccountsd?CsrfDef=TOKEN&trt=PWD&user=" . $username . "'>" . "<button class='sme-password-button' style ='border-color:red;' title=".l("Reset-Password").">".l("Reset-Password")."</button></a>";
|
||||
% } else {
|
||||
% $actionLock = "<a href='useraccountsd?CsrfDef=TOKEN&trt=LCK&user=" . $username . "'>" . "<button class='sme-lock-button' title=".l('usr_LOCK_ACCOUNT').">".l("usr_LOCK_ACCOUNT")."</button></a>";
|
||||
% $actionResetPw = "<a href='useraccountsd?CsrfDef=TOKEN&trt=PWD&user=" . $username . "'>" . "<button class='sme-password-button' title=".l("Reset-Password").">".l("Reset-Password")."</button></a>";
|
||||
% }
|
||||
% if ( $removable eq 'yes' ) {
|
||||
% $actionRemove = "<a href='useraccountsd?CsrfDef=TOKEN&trt=DEL&user=" . $username . "'>" . "<button class='sme-remove-button' title=".l("REMOVE").">".l("REMOVE")."</button></a>";
|
||||
% }
|
||||
% }
|
||||
<td class='sme-border' style="min-width:35em">
|
||||
<%= $c->render_to_string(inline => $actionModify) %>
|
||||
<%= $c->render_to_string(inline => $actionResetPw) %>
|
||||
<%= $c->render_to_string(inline => $actionLock) %>
|
||||
<%= $c->render_to_string(inline => $actionRemove) %>
|
||||
</td>
|
||||
</tr>
|
||||
% }
|
||||
</tbody>
|
||||
</table>
|
||||
|
||||
<%} %>
|
||||
|
||||
%= hidden_field 'trt' => $usr_datas->{trt}
|
||||
|
||||
</div>
|
@@ -0,0 +1,28 @@
|
||||
<div id='usr_lock'>
|
||||
|
||||
% my $btn = l('usr_LOCK');
|
||||
|
||||
%= form_for '/useraccountsd' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'usr_LOCK_ACCOUNT_TITLE'
|
||||
</h2>
|
||||
|
||||
<br>
|
||||
%= $c->l('usr_LOCK_DESC', $usr_datas->{user}, $usr_datas->{name} );
|
||||
<br>
|
||||
%= $c->render_to_string(inline => $c->l('usr_LOCK_DESC2'))
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $usr_datas->{trt}
|
||||
%= hidden_field 'user' => $usr_datas->{user}
|
||||
%= hidden_field 'name' => $usr_datas->{name}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,44 @@
|
||||
<div id='usr_pwd'>
|
||||
|
||||
% my $btn = l('SAVE');
|
||||
|
||||
%= form_for '/useraccountsd' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'RESET_PASSWORD_TITLE'
|
||||
</h2>
|
||||
|
||||
<br>
|
||||
%= $c->l('usr_RESET_DESC', $usr_datas->{user}, $usr_datas->{name} );
|
||||
<br>
|
||||
%= l 'usr_RESET_DESC2'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'PASSWORD_NEW', class => 'label'
|
||||
</span><span class=data>
|
||||
%= password_field 'newPass', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'PASSWORD_VERIFY_NEW', class => 'label'
|
||||
</span><span class=data>
|
||||
%= password_field 'newPassVerify', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $usr_datas->{trt}
|
||||
%= hidden_field 'user' => $usr_datas->{user}
|
||||
%= hidden_field 'name' => $usr_datas->{name}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,45 @@
|
||||
<div id='usr_pwds'>
|
||||
|
||||
% my $btn = l('SAVE');
|
||||
|
||||
%= form_for '/useraccountsd' => (method => 'POST') => begin
|
||||
<p>
|
||||
%= l 'usr_SYSTEM_PASSWORD_DESCRIPTION'
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_CURRENT_SYSTEM_PASSWORD', class => 'label'
|
||||
</span><span class=data>
|
||||
%= password_field 'CurPass', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_NEW_SYSTEM_PASSWORD', class => 'label'
|
||||
</span><span class=data>
|
||||
%= password_field 'Pass', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_NEW_SYSTEM_PASSWORD_VERIFY', class => 'label'
|
||||
</span><span class=data>
|
||||
%= password_field 'PassVerify', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<br><br>
|
||||
%= submit_button "$btn", class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $usr_datas->{trt}
|
||||
%= hidden_field 'user' => $usr_datas->{user}
|
||||
%= hidden_field 'name' => $usr_datas->{name}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,185 @@
|
||||
<div id='usr_upd'>
|
||||
|
||||
|
||||
% my $btn = l('ADD');
|
||||
|
||||
%= form_for '/useraccountsd' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'usr_P2_TITLE'
|
||||
</h2>
|
||||
<br>
|
||||
%= $c->render_to_string(inline => l ('usr_CREATE_MODIFY_DESC'))
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_ACCOUNT_NAME'
|
||||
</span><span class=data>
|
||||
% if ( $usr_datas->{trt} eq 'ADD' ) {
|
||||
% param 'user' => $usr_datas->{user} unless param 'user';
|
||||
%= text_field 'user', class => 'input'
|
||||
% } else {
|
||||
% $btn = l('SAVE');
|
||||
%= $usr_datas->{user}, class => 'data'
|
||||
% }
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_FIRSTNAME'
|
||||
</span><span class=data>
|
||||
% param 'FirstName' => $usr_datas->{firstname} unless param 'FirstName';
|
||||
%= text_field 'FirstName', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_LASTNAME'
|
||||
</span><span class=data>
|
||||
% param 'LastName' => $usr_datas->{lastname} unless param 'LastName';
|
||||
%= text_field 'LastName', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_DEPARTMENT'
|
||||
</span><span class=data>
|
||||
% param 'Dept' => $usr_datas->{dept} unless param 'Dept';
|
||||
%= text_field 'Dept', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_COMPANY'
|
||||
</span><span class=data>
|
||||
% param 'Company' => $usr_datas->{company} unless param 'Company';
|
||||
%= text_field 'Company', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_STREET_ADDRESS'
|
||||
</span><span class=data>
|
||||
% param 'Street' => $usr_datas->{street} unless param 'Street';
|
||||
%= text_field 'Street', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_CITY'
|
||||
</span><span class=data>
|
||||
% param 'City' => $usr_datas->{city} unless param 'City';
|
||||
%= text_field 'City', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_PHONE_NUMBER'
|
||||
</span><span class=data>
|
||||
% param 'Phone' => $usr_datas->{phone} unless param 'Phone';
|
||||
%= text_field 'Phone', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_EMAIL_DELIVERY'
|
||||
</span><span class=data>
|
||||
% param 'EmailForward' => $usr_datas->{emailforward} unless param 'EmailForward';
|
||||
%= select_field 'EmailForward' => $c->emailForward_list(), class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_FORWARDING_ADDRESS'
|
||||
</span><span class=data>
|
||||
% param 'ForwardAddress' => $usr_datas->{forwardaddress} unless param 'ForwardAddress';
|
||||
%= text_field 'ForwardAddress', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_VPN_CLIENT_ACCESS'
|
||||
</span><span class=data>
|
||||
% param 'VPNClientAccess' => $usr_datas->{vpnclientaccess} unless param 'VPNClientAccess';
|
||||
%= select_field 'VPNClientAccess' => [[ (l 'NO') => 'no'], [ (l 'YES') => 'yes']], class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
% if ( $usr_datas->{trt} eq 'UPD' and $c->ipsec_for_acct eq 'OK' ) {
|
||||
% my $btn2 = $c->l('DOWNLOAD');
|
||||
%= form_for '/useraccountso' => (method => 'POST') => begin
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_LABEL_IPSECRW_DOWNLOAD'
|
||||
</span><span class=data>
|
||||
%= submit_button $btn2, class => 'action'
|
||||
</span>
|
||||
</p>
|
||||
%= hidden_field 'trt' => 'CRT'
|
||||
%= hidden_field 'user' => $usr_datas->{user}
|
||||
%end
|
||||
% }
|
||||
|
||||
% my @groups = @{$c->get_groups()};
|
||||
% if ( @groups ) {
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_GROUP_MEMBERSHIPS'
|
||||
</span>
|
||||
<span class=data>
|
||||
<table class="sme-border "><thead>
|
||||
<tr><th class='sme-border'>
|
||||
%=l 'usr_MEMBER'
|
||||
</th><th class='sme-border'>
|
||||
%=l 'GROUP'
|
||||
</th><th class='sme-border'>
|
||||
%=l 'DESCRIPTION'
|
||||
</th></tr>
|
||||
</thead><tbody>
|
||||
|
||||
% foreach my $g ( @groups) {
|
||||
% my $user = $usr_datas->{user};
|
||||
% my $groupname = $g->key();
|
||||
% my $description = $g->prop('Description');
|
||||
% my $checked = '';
|
||||
% if ( $user and $c->is_user_in_group($user, $groupname) ) {
|
||||
% $checked = 'checked';
|
||||
% }
|
||||
<tr>
|
||||
|
||||
<td>
|
||||
% if ( $checked eq 'checked' ) {
|
||||
<!-- % = check_box 'groupMemberships', value => $groupname, checked => $checked -->
|
||||
<input type='checkbox' name='groupMemberships' checked value='<%= $groupname %>'>
|
||||
%} else {
|
||||
%= check_box 'groupMemberships' => $groupname
|
||||
%}
|
||||
</td>
|
||||
<!-- t td => (class => 'sme-border') => (check_box ' groupMemberships' => $groupname $checked) -->
|
||||
%= t td => (class => 'sme-border') => $groupname
|
||||
%= t td => (class => 'sme-border') => "$description"
|
||||
</tr>
|
||||
% }
|
||||
</tbody>
|
||||
</table>
|
||||
</span>
|
||||
</p>
|
||||
% }
|
||||
|
||||
<p>
|
||||
<br><br>
|
||||
%= submit_button $btn, class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $usr_datas->{trt}
|
||||
% if ( $usr_datas->{trt} eq 'UPD' ) {
|
||||
%= hidden_field 'user' => $usr_datas->{user}
|
||||
% }
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
@@ -0,0 +1,89 @@
|
||||
<div id='usr_upds'>
|
||||
|
||||
% my $btn = l('SAVE');
|
||||
|
||||
%= form_for '/useraccountsd' => (method => 'POST') => begin
|
||||
<p>
|
||||
<h2>
|
||||
%=l 'usr_MODIFY_ADMIN_TITLE'
|
||||
</h2><br>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_ACCOUNT_NAME'
|
||||
</span><span class=data>
|
||||
% $btn = l('SAVE');
|
||||
%= $usr_datas->{user}, class => 'data'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_FIRSTNAME'
|
||||
</span><span class=data>
|
||||
% param 'FirstName' => $usr_datas->{firstname} unless param 'FirstName';
|
||||
%= text_field 'FirstName', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_LASTNAME'
|
||||
</span><span class=data>
|
||||
% param 'LastName' => $usr_datas->{lastname} unless param 'LastName';
|
||||
%= text_field 'LastName', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_EMAIL_DELIVERY'
|
||||
</span><span class=data>
|
||||
% param 'EmailForward' => $usr_datas->{emailforward} unless param 'EmailForward';
|
||||
%= select_field 'EmailForward' => $c->emailForward_list(), class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_FORWARDING_ADDRESS'
|
||||
</span><span class=data>
|
||||
% param 'ForwardAddress' => $usr_datas->{forwardaddress} unless param 'ForwardAddress';
|
||||
%= text_field 'ForwardAddress', class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_VPN_CLIENT_ACCESS'
|
||||
</span><span class=data>
|
||||
% param 'VPNClientAccess' => $usr_datas->{vpnclientaccess} unless param 'VPNClientAccess';
|
||||
%= select_field 'VPNClientAccess' => [[ (l 'NO') => 'no'], [ (l 'YES') => 'yes']], class => 'input'
|
||||
</span>
|
||||
</p>
|
||||
|
||||
% if ( $c->ipsec_for_acct eq 'OK' ) {
|
||||
% my $btn2 = $c->l('DOWNLOAD');
|
||||
%= form_for '/useraccountso' => (method => 'POST') => begin
|
||||
<p>
|
||||
<span class=label>
|
||||
%=l 'usr_LABEL_IPSECRW_DOWNLOAD'
|
||||
</span><span class=data>
|
||||
%= submit_button $btn2, class => 'action'
|
||||
</span>
|
||||
</p>
|
||||
%= hidden_field 'trt' => 'CRT'
|
||||
%= hidden_field 'user' => $usr_datas->{user}
|
||||
%end
|
||||
% }
|
||||
|
||||
<p>
|
||||
<br>
|
||||
%= submit_button $btn, class => 'action'
|
||||
</p>
|
||||
|
||||
%= hidden_field 'trt' => $usr_datas->{trt}
|
||||
%= hidden_field 'user' => $usr_datas->{user}
|
||||
|
||||
% end
|
||||
|
||||
</div>
|
Reference in New Issue
Block a user