diff options
Diffstat (limited to 'httemplate/config/config-view.cgi')
-rw-r--r-- | httemplate/config/config-view.cgi | 159 |
1 files changed, 0 insertions, 159 deletions
diff --git a/httemplate/config/config-view.cgi b/httemplate/config/config-view.cgi deleted file mode 100644 index f5cead5..0000000 --- a/httemplate/config/config-view.cgi +++ /dev/null @@ -1,159 +0,0 @@ -<% include("/elements/header.html", - $title, - menubar( - 'View all agents' => $p.'browse/agent.cgi', - ) - ) -%> - -Click on a configuration value to change it. -<BR><BR> - -<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/overlibmws.js"></SCRIPT> -<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/overlibmws_iframe.js"></SCRIPT> -<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/overlibmws_draggable.js"></SCRIPT> -<SCRIPT TYPE="text/javascript" SRC="<%$fsurl%>elements/iframecontentmws.js"></SCRIPT> - -% if ($FS::UID::use_confcompat) { - - <FONT SIZE="+1" COLOR="#ff0000">CONFIGURATION NOT STORED IN DATABASE -- USING COMPATIBILITY MODE</FONT><BR><BR> -%} -% -% foreach my $section ( qw(required billing username password UI session -% shell BIND -% ), -% '', 'deprecated') { - - <A NAME="<% $section || 'unclassified' %>"></A> - <FONT SIZE="-2"> -% foreach my $nav_section ( qw(required billing username password UI session -% shell BIND -% ), -% '', 'deprecated') { -% if ( $section eq $nav_section ) { - - [<A NAME="not<% $nav_section || 'unclassified' %>" style="background-color: #cccccc"><% ucfirst($nav_section || 'unclassified') %></A>] -% } else { - - [<A HREF="#<% $nav_section || 'unclassified' %>"><% ucfirst($nav_section || 'unclassified') %></A>] -% } -% } - - </FONT><BR> - <TABLE BGCOLOR="#cccccc" BORDER=1 CELLSPACING=0 CELLPADDING=0 BORDERCOLOR="#999999"> - <tr> - <th colspan="2" bgcolor="#dcdcdc"> - <% ucfirst($section || 'unclassified') %> configuration options - </th> - </tr> -% foreach my $i (grep $_->section eq $section, @config_items) { -% my @types = ref($i->type) ? @{$i->type} : ($i->type); -% my( $width, $height ) = ( 522, 336 ); -% if ( grep $_ eq 'textarea', @types ) { -% #800x600 -% $width = 763; -% $height = 408; -% #1024x768 -% #$width = -% #$height = -% } - - <tr> - <td><a href="javascript:void(0);" onClick="overlib( OLiframeContent('config.cgi?key=<% $i->key %>;agentnum=<% $agentnum %>', <% $width %>, <% $height %>, 'config_popup' ), CAPTION, 'Enter configuration value', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, DRAGGABLE, CLOSECLICK ); return false;" name="<% $i->key %>"> -%# <b><% $i->key %></b></a> - <% $i->description %> - <b><% $i->key %></b></a>: <% $i->description %> - </td> - <td><table border=0> -% foreach my $type (@types) { -% my $n = 0; -% if ( $type eq '' ) { - - <tr> - <td><font color="#ff0000">no type</font></td> - </tr> -% } elsif ( $type eq 'binary' ) { - - <tr> - <% $conf->exists($i->key, $agentnum) - ? qq!<a href="config-download.cgi?key=!. $i->key. ';agentnum='. $agentnum. qq!">download</a>! - : 'empty' - %> - </tr> -% } elsif ( $type eq 'textarea' -% || $type eq 'editlist' -% || $type eq 'selectmultiple' ) { - - <tr> - <td bgcolor="#ffffff"> -<font size="-2"><pre> -<% encode_entities(join("\n", - map { length($_) > 88 ? substr($_,0,88).'...' : $_ } - $conf->config($i->key, $agentnum) - ) ) -%> -</pre></font> - </td> - </tr> -% } elsif ( $type eq 'checkbox' ) { - - <tr> - <td bgcolor="#<% $conf->exists($i->key, $agentnum) ? '00ff00">YES' : 'ff0000">NO' %></td> - </tr> -% } elsif ( $type eq 'text' || $type eq 'select' ) { - - <tr> - <td bgcolor="#ffffff"> - <% $conf->exists($i->key, $agentnum) ? $conf->config($i->key, $agentnum) : '' %> - </td></tr> -% } elsif ( $type eq 'select-sub' ) { - - <tr> - <td bgcolor="#ffffff"> - <% $conf->config($i->key, $agentnum) %>: - <% &{ $i->option_sub }( $conf->config($i->key, $agentnum) ) %> - </td> - </tr> -% } else { - - <tr><td> - <font color="#ff0000">unknown type <% $type %></font> - </td></tr> -% } -% $n++; } - - </table></td> - </tr> -% } - - </table><br><br> -% } - - -</body></html> -<%init> - -die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); - -my $agentnum = ''; -if ($cgi->param('agentnum') =~ /^(\d+)$/) { - $agentnum = $1; -} - -my $title; -if ($agentnum) { - my $agent = qsearchs('agent', { 'agentnum' => $agentnum } ); - die "Agent $agentnum not found!" unless $agent; - - $title = "Configuration for ". $agent->agent; -} else { - $title = 'Global Configuration'; -} - -my $conf = new FS::Conf; - -my @config_items = grep { $agentnum ? $_->per_agent : 1 } - grep { $_->key != ~/^invoice_(html|latex|template)/ } - $conf->config_items; - -</%init> |