diff -Nur --no-dereference smeserver-userpanel-1.4.old/root/usr/share/perl5/vendor_perl/esmith/cgi5.pm smeserver-userpanel-1.4/root/usr/share/perl5/vendor_perl/esmith/cgi5.pm --- smeserver-userpanel-1.4.old/root/usr/share/perl5/vendor_perl/esmith/cgi5.pm 2017-05-31 12:48:49.000000000 -0400 +++ smeserver-userpanel-1.4/root/usr/share/perl5/vendor_perl/esmith/cgi5.pm 2022-08-01 15:33:39.692000000 -0400 @@ -154,42 +154,12 @@ genHeaderStartHTML ($q); - if ((-f '/home/e-smith/web/common/edition/image.gif') && (-f '/home/e-smith/web/common/edition/info.txt')) - { - # first line of info file contains URL, second line contains ALT text: - - open (RD, "; - my $alt = ; - close RD; - - print $q->table ({border => 0, cellspacing => 0, cellpadding => 0}, - $q->Tr ($q->td - ($q->table ({border => 0, cellspacing => 0, cellpadding => 10}, - $q->Tr ($q->td($q->a ({-HREF => $url, -TARGET => '_top'}, - $q->img ({-BORDER => '0', - -ALT => $alt, - -ALIGN => 'top', - -SRC => '/server-brand/edition/image.gif'}))))))), - $q->Tr ($q->td ($q->img ({-HEIGHT => '40', - -WIDTH => '200', - -BORDER => '0', - -ALT => $alt, - -ALIGN => 'top', - -HSPACE => '7', - -SRC => '/server-common/special-edition.jpg'})))); - - print $q->div ({-STYLE => 'position: absolute; visibility: inherit; left: 16px; z-index: 2'}); - } - else - { - print $q->a ({-HREF => 'http://www.mitel.com/', -TARGET => '_top'}, + print $q->a ({-HREF => 'http://www.mitel.com/', -TARGET => '_top'}, $q->img ({-BORDER => '0', -ALT => 'Mitel Networks Logo', -ALIGN => 'top', -SRC => '/server-common/mitel_logo.jpg'})); - print $q->div ({-STYLE => 'position: absolute; visibility: inherit; top: 100px; left: 10px; z-index: 2'}); - } + print $q->div ({-STYLE => 'position: absolute; visibility: inherit; top: 100px; left: 10px; z-index: 2'}); } =pod