diff options
author | ivan <ivan> | 2006-08-23 22:25:39 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-08-23 22:25:39 +0000 |
commit | 3ce7691203a7737406bf2d4442f7fd84b81f847e (patch) | |
tree | 90658b097da96772224f04771888ac6ca1a940aa /httemplate/config/config-view.cgi | |
parent | 15e561850b61b10a92a46d8f3e316d53d4970087 (diff) |
Will things ever be the same again?
It's the final masonize
Diffstat (limited to 'httemplate/config/config-view.cgi')
-rw-r--r-- | httemplate/config/config-view.cgi | 98 |
1 files changed, 55 insertions, 43 deletions
diff --git a/httemplate/config/config-view.cgi b/httemplate/config/config-view.cgi index bf51f1509..ff7913d78 100644 --- a/httemplate/config/config-view.cgi +++ b/httemplate/config/config-view.cgi @@ -1,80 +1,92 @@ <!-- mason kludge --> -<%= include("/elements/header.html",'View Configuration', menubar( 'Main Menu' => $p, +<% include("/elements/header.html",'View Configuration', menubar( 'Main Menu' => $p, 'Edit Configuration' => 'config.cgi' ) ) %> +% my $conf = new FS::Conf; my @config_items = $conf->config_items; +% foreach my $section ( qw(required billing username password UI session +% shell BIND +% ), +% '', 'deprecated') { -<% my $conf = new FS::Conf; my @config_items = $conf->config_items; %> - -<% foreach my $section ( qw(required billing username password UI session - shell BIND - ), - '', 'deprecated') { %> - <A NAME="<%= $section || 'unclassified' %>"></A> + <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>] - <% } %> - <% } %> +% 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("#cccccc", 2) %> + <% table("#cccccc", 2) %> <tr> <th colspan="2" bgcolor="#dcdcdc"> - <%= ucfirst($section || 'unclassified') %> configuration options + <% ucfirst($section || 'unclassified') %> configuration options </th> </tr> - <% foreach my $i (grep $_->section eq $section, @config_items) { %> +% foreach my $i (grep $_->section eq $section, @config_items) { + <tr> - <td><a name="<%= $i->key %>"> - <b><%= $i->key %></b> - <%= $i->description %> + <td><a name="<% $i->key %>"> + <b><% $i->key %></b> - <% $i->description %> </a></td> <td><table border=0> - <% foreach my $type ( ref($i->type) ? @{$i->type} : $i->type ) { - my $n = 0; %> - <% if ( $type eq '' ) { %> +% foreach my $type ( ref($i->type) ? @{$i->type} : $i->type ) { +% my $n = 0; +% if ( $type eq '' ) { + <tr> <td><font color="#ff0000">no type</font></td> </tr> - <% } elsif ( $type eq 'textarea' - || $type eq 'editlist' - || $type eq 'selectmultiple' ) { %> +% } elsif ( $type eq 'textarea' +% || $type eq 'editlist' +% || $type eq 'selectmultiple' ) { + <tr> <td bgcolor="#ffffff"> <pre> -<%= encode_entities(join("\n", $conf->config($i->key) ) ) %> +<% encode_entities(join("\n", $conf->config($i->key) ) ) %> </pre> </td> </tr> - <% } elsif ( $type eq 'checkbox' ) { %> +% } elsif ( $type eq 'checkbox' ) { + <tr> - <td bgcolor="#<%= $conf->exists($i->key) ? '00ff00">YES' : 'ff0000">NO' %></td> + <td bgcolor="#<% $conf->exists($i->key) ? '00ff00">YES' : 'ff0000">NO' %></td> </tr> - <% } elsif ( $type eq 'text' || $type eq 'select' ) { %> +% } elsif ( $type eq 'text' || $type eq 'select' ) { + <tr> <td bgcolor="#ffffff"> - <%= $conf->exists($i->key) ? $conf->config($i->key) : '' %> + <% $conf->exists($i->key) ? $conf->config($i->key) : '' %> </td></tr> - <% } elsif ( $type eq 'select-sub' ) { %> +% } elsif ( $type eq 'select-sub' ) { + <tr> <td bgcolor="#ffffff"> - <%= $conf->config($i->key) %>: - <%= &{ $i->option_sub }( $conf->config($i->key) ) %> + <% $conf->config($i->key) %>: + <% &{ $i->option_sub }( $conf->config($i->key) ) %> </td> </tr> - <% } else { %> +% } else { + <tr><td> - <font color="#ff0000">unknown type <%= $type %></font> + <font color="#ff0000">unknown type <% $type %></font> </td></tr> - <% } %> - <% $n++; } %> +% } +% $n++; } + </table></td> </tr> - <% } %> +% } + </table><br><br> -<% } %> +% } + </body></html> |