191 |
'mailer-application','/usr/lib/sendmail', |
'mailer-application','/usr/lib/sendmail', |
192 |
'server-log','mps.log', |
'server-log','mps.log', |
193 |
'output-colums','yes', |
'output-colums','yes', |
194 |
|
'show-nr-colums',3, |
195 |
# 'show-past-date-list','yes', |
# 'show-past-date-list','yes', |
196 |
'database-for-SearchFieldDescriptions','ps', |
'database-for-SearchFieldDescriptions','ps', |
197 |
); |
); |
3132 |
|
|
3133 |
|
|
3134 |
$Flag = 0; |
$Flag = 0; |
3135 |
print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>\n"); |
print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>\n"); |
3136 |
|
|
3137 |
my @html_database; |
my @html_database; |
3138 |
|
|
3151 |
if ($main::ConfigurationData{'output-colums'}) { |
if ($main::ConfigurationData{'output-colums'}) { |
3152 |
# create database names in columns |
# create database names in columns |
3153 |
|
|
3154 |
my $max = $#html_database+1 ; |
my $cols = $main::ConfigurationData{'show-nr-colums'}; |
3155 |
|
my $next = int($#html_database/$cols) ; |
3156 |
|
|
3157 |
my $j=0; |
for(my $i=0; $i <= $next ; $i++) { |
3158 |
for(my $i=0; $i < $max ; $i=$i+2) { |
print("<tr>"); |
3159 |
print("<tr>",$html_database[$j],$html_database[$j+int($max/2)],"</tr>"); |
for(my $j=0; $j <= $cols; $j++) { |
3160 |
$j++; |
print($html_database[$i+$next*$j+$j]); |
3161 |
|
} |
3162 |
|
print("</tr>"); |
3163 |
} |
} |
3164 |
|
|
3165 |
} else { |
} else { |