% include("/elements/header.html", "Export Listing") %>
Provisioning services to external machines, databases and APIs.
Add a new export
<% include('/elements/table-grid.html') %>
% my $bgcolor1 = '#eeeeee';
% my $bgcolor2 = '#ffffff';
% my $bgcolor = '';
Export |
Options |
% foreach my $part_export ( sort {
% $a->getfield('exportnum') <=> $b->getfield('exportnum')
% } qsearch('part_export',{})
% ) {
% if ( $bgcolor eq $bgcolor1 ) {
% $bgcolor = $bgcolor2;
% } else {
% $bgcolor = $bgcolor1;
% }
<% $part_export->exportnum %> |
<% $part_export->label_html %>
(edit | delete)
% if ( $part_export->no_suspend ) {
This export will not suspend services.
% }
% if ( my @actions = $part_export->actions ) {
Management:
% while (@actions) {
% my $label = shift @actions;
% my $path = shift @actions;
<& /elements/popup_link.html,
'label' => $label,
'action' => $fsurl.$path.'?'.$part_export->exportnum,
'actionlabel' => $label,
&><% @actions ? ' | ' : '' %>
% }
% } #if @actions
|
<% itable() %>
% my %opt = $part_export->options;
% my $defs = $part_export->info->{options};
% my %multiples;
% foreach my $optname (keys %$defs) { # is a Tie::IxHash
% my $def = $defs->{$optname};
% my $group = $def->{multiple};
% if ( $group ) {
% my @values = split("\n", $opt{$optname});
% $multiples{$group} ||= [];
% push @{ $multiples{$group} }, [ $def->{label} || $optname, @values ] if @values;
% delete $opt{$optname};
% } elsif (length($opt{$optname})) { # the normal case
% my $value = $opt{$optname};
% if ( $def->{option_labels} ) {
% $value = $def->{option_labels}->{$value} || $value;
% }
|
<% $optname %>: |
<% encode_entities($value) %> |
% delete $opt{$optname};
% }
% }
% # now any that are somehow not in the options list
% foreach my $opt (keys %opt) {
% if ( length($opt{$opt}) ) {
<% $opt %>: |
<% encode_entities($opt{$opt}) %> |
% }
% }
% # now show any multiple-option groups
% foreach (sort keys %multiples) {
% my $set = $multiples{$_};
% foreach my $col (@$set) {
<% shift @$col %> |
% }
% while ( 1 ) {
% my $end = 1;
% foreach my $col (@$set) {
<% shift @$col %> |
% $end = 0 if @$col;
% }
% last if $end;
% }
|
% } #foreach keys %multiples
% }
<% include('/elements/footer.html') %>
<%init>
die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
%init>