# $Header: emdb/scripts/unix/DBConsoleBanner.pm.template /st_emdbsa_11.2/1 2008/10/02 18:02:54 ashomish Exp $ # # Copyright (c) 2008, Oracle and/or its affiliates. All rights reserved. # # NAME # DBConsoleBanner.pm.template - Perl Module to provide start, stop, status functionality # # DESCRIPTION # This script provides the methods to print DBConsole banner # # MODIFIED (MM/DD/YY) # ashomish 09/30/08 - Initial Create package DBConsoleBanner; use strict; use EmctlCommon; use LWP::Simple; sub printVersion { my $productVersion="11g"; my $releaseVersion="11.2.0.3.0"; print " Enterprise Manager $productVersion DB Control Version $releaseVersion\n"; } sub printOEMVersion { my $productVersion="11g"; my $releaseVersion="11.2.0.3.0"; print "Oracle Enterprise Manager $productVersion Database Control Release $releaseVersion \n"; # print " Enterprise Manager $productVersion DB Control Version $releaseVersion\n"; } sub printCopyright { my $copyRightBeginningYear="1996"; my $copyRightEndingYear="2011"; print "Copyright (c) $copyRightBeginningYear, $copyRightEndingYear Oracle Corporation. All rights reserved.\n"; } 1;