#!/usr/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);