From 5c6087042343084e25256fd20af00097379c9db4 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 26 Feb 2003 12:13:44 +0000 Subject: added corporate global flag. --- perl-install/install2.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/install2.pm') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index c6ca5a9a6..e273cefae 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -546,6 +546,7 @@ sub main { $o->{allowFB} = listlength(cat_("/proc/fb")); my $VERSION = cat__(install_any::getFile("VERSION")) or do { print "VERSION file missing\n"; sleep 5 }; + $::corporate = 1 if $VERSION =~ /corporate/i; $o->{meta_class} = 'desktop' if $VERSION =~ /desktop/i; $o->{meta_class} = 'firewall' if $VERSION =~ /firewall/i; $o->{meta_class} = 'server' if $VERSION =~ /server/i; -- cgit v1.2.1