-
- <%= $i->key %> - <%= $i->description %>
- |
+ <% include('/elements/popup_link.html',
+ 'action' => 'config.cgi?key='. $i->key.
+ ';agentnum='. $agentnum,
+ 'width' => $width,
+ 'height' => $height,
+ 'actionlabel' => 'Enter configuration value',
+ 'label' => "$label",
+ 'aname' => $i->key, #agentnum
+ # if $cgi->param('showagent')?
+ )
+ %>: <% $i->description %>
+ |
- <% foreach my $type ( ref($i->type) ? @{$i->type} : $i->type ) {
- my $n = 0; %>
- <% if ( $type eq '' ) { %>
- no type |
- <% } elsif ( $type eq 'textarea' ) { %>
-
-
-<%= encode_entities(join("\n", $conf->config($i->key) ) ) %>
-
- |
- <% } elsif ( $type eq 'checkbox' ) { %>
- YES' : 'ff0000">NO' %> |
- <% } elsif ( $type eq 'text' ) { %>
- <%= $conf->exists($i->key) ? $conf->config($i->key) : '' %> |
- <% } else { %>
+
+% my $n = 0;
+% foreach my $type (@types) {
+
+% if ( $type eq '' ) {
+
+
+ no type |
+
+
+% } elsif ( $type eq 'image' ) {
+
+
+
+ <% $conf->exists($i->key, $agentnum)
+ ? ''
+ : 'empty'
+ %>
+ |
+
+
+
+ <% $conf->exists($i->key, $agentnum)
+ ? qq!download!
+ : ''
+ %>
+ |
+
+
+% } elsif ( $type eq 'binary' ) {
+
+
+
+ <% $conf->exists($i->key, $agentnum)
+ ? qq!download!
+ : 'empty'
+ %>
+ |
+
+
+% } elsif ( $type eq 'textarea'
+% || $type eq 'editlist'
+% || $type eq 'selectmultiple' ) {
+
+
+
+<% encode_entities(join("\n",
+ map { length($_) > 88 ? substr($_,0,88).'...' : $_ }
+ $conf->config($i->key, $agentnum)
+ ) )
+%>
+ |
+
+
+% } elsif ( $type eq 'checkbox' ) {
+
+
+ YES' : 'ff0000">NO' %> |
+
+
+% } elsif ( $type eq 'select' && $i->select_hash ) {
+%
+% my %hash;
+% if ( ref($i->select_hash) eq 'ARRAY' ) {
+% tie %hash, 'Tie::IxHash', '' => '', @{ $i->select_hash };
+% } else {
+% tie %hash, 'Tie::IxHash', '' => '', %{ $i->select_hash };
+% }
+
+
+
+ <% $conf->exists($i->key, $agentnum) ? $hash{ $conf->config($i->key, $agentnum) } : '' %>
+ |
+
+
+% } elsif ( $type eq 'text' || $type eq 'select' ) {
+
+
+
+ <% $conf->exists($i->key, $agentnum) ? $conf->config($i->key, $agentnum) : '' %>
+ |
+
+
+% } elsif ( $type eq 'select-sub' ) {
+
+
+
+ <% $conf->config($i->key, $agentnum) %>:
+ <% &{ $i->option_sub }( $conf->config($i->key, $agentnum) ) %>
+ |
+
+
+% } else {
+
- unknown type <%= $type %>
+ unknown type <% $type %>
|
- <% } %>
- <% $n++; } %>
+% }
+% $n++;
+% }
+
|
- <% } %>
+
+% } # foreach my $agentnum
+
+% } # foreach my $i
+