mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
16 lines
352 B
Perl
Executable File
16 lines
352 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Output contents of top frame file
|
|
|
|
require "gray-theme/gray-theme-lib.pl";
|
|
|
|
$hasvirt = &foreign_available("virtual-server");
|
|
if ($hasvirt) {
|
|
%vconfig = &foreign_config("virtual-server");
|
|
}
|
|
$upperframe = $vconfig{'theme_topframe'} ||
|
|
$gconfig{'theme_topframe'};
|
|
|
|
&PrintHeader();
|
|
print &read_file_contents($upperframe);
|
|
|