diff options
author | Kurt Zenker <kz@openoffice.org> | 2004-06-11 17:20:57 +0000 |
---|---|---|
committer | Kurt Zenker <kz@openoffice.org> | 2004-06-11 17:20:57 +0000 |
commit | 4852a0edf70775addd6d29c7799ecf227f55024d (patch) | |
tree | 5caea6d4e98013b5286b0d92c2ef0af73b27ab88 /solenv/bin/modules/packager | |
parent | 3837497817ff2ed23ae6b650169708128f8ddd98 (diff) |
INTEGRATION: CWS networker3 (1.1.2); FILE ADDED
2004/06/01 14:16:51 is 1.1.2.1: #i25326# substitute for zipdirector
Diffstat (limited to 'solenv/bin/modules/packager')
-rw-r--r-- | solenv/bin/modules/packager/check.pm | 91 | ||||
-rw-r--r-- | solenv/bin/modules/packager/existence.pm | 87 |
2 files changed, 178 insertions, 0 deletions
diff --git a/solenv/bin/modules/packager/check.pm b/solenv/bin/modules/packager/check.pm new file mode 100644 index 000000000000..8010c5302e6a --- /dev/null +++ b/solenv/bin/modules/packager/check.pm @@ -0,0 +1,91 @@ +#************************************************************************* +# +# $RCSfile: check.pm,v $ +# +# $Revision: 1.2 $ +# +# last change: $Author: kz $ $Date: 2004-06-11 18:20:45 $ +# +# The Contents of this file are made available subject to the terms of +# either of the following licenses +# +# - GNU Lesser General Public License Version 2.1 +# - Sun Industry Standards Source License Version 1.1 +# +# Sun Microsystems Inc., October, 2000 +# +# GNU Lesser General Public License Version 2.1 +# ============================================= +# Copyright 2000 by Sun Microsystems, Inc. +# 901 San Antonio Road, Palo Alto, CA 94303, USA +# +# This library is free software; you can redistribute it and/or +# modify it under the terms of the GNU Lesser General Public +# License version 2.1, as published by the Free Software Foundation. +# +# This library is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# Lesser General Public License for more details. +# +# You should have received a copy of the GNU Lesser General Public +# License along with this library; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, +# MA 02111-1307 USA +# +# +# Sun Industry Standards Source License Version 1.1 +# ================================================= +# The contents of this file are subject to the Sun Industry Standards +# Source License Version 1.1 (the "License"); You may not use this file +# except in compliance with the License. You may obtain a copy of the +# License at http://www.openoffice.org/license.html. +# +# Software provided under this License is provided on an "AS IS" basis, +# WITHOUT WARRUNTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, +# WITHOUT LIMITATION, WARRUNTIES THAT THE SOFTWARE IS FREE OF DEFECTS, +# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. +# See the License for the specific provisions governing your rights and +# obligations concerning the Software. +# +# The Initial Developer of the Original Code is: Sun Microsystems, Inc.. +# +# Copyright: 2000 by Sun Microsystems, Inc. +# +# All Rights Reserved. +# +# Contributor(s): _______________________________________ +# +# +# +#************************************************************************* + +package packager::check; + +use packager::globals; + +############################################## +# Check 1: The package list has to exist +############################################## + +sub check_packlist +{ + if ( ! -f $packager::globals::packlistname ) + { + print "\nERROR: Cannot find pack list: $packager::globals::packlistname\n"; + } +} + +############################################################# +# Check 2: The environment variable OUTPATH has to be set +############################################################# + +sub check_environment +{ + if ( ! $ENV{'OUTPATH'} ) + { + print "\nERROR: Environment variable OUTPATH must be set\n"; + } +} + +1; diff --git a/solenv/bin/modules/packager/existence.pm b/solenv/bin/modules/packager/existence.pm new file mode 100644 index 000000000000..aa951b65d48b --- /dev/null +++ b/solenv/bin/modules/packager/existence.pm @@ -0,0 +1,87 @@ +#************************************************************************* +# +# $RCSfile: existence.pm,v $ +# +# $Revision: 1.2 $ +# +# last change: $Author: kz $ $Date: 2004-06-11 18:20:57 $ +# +# The Contents of this file are made available subject to the terms of +# either of the following licenses +# +# - GNU Lesser General Public License Version 2.1 +# - Sun Industry Standards Source License Version 1.1 +# +# Sun Microsystems Inc., October, 2000 +# +# GNU Lesser General Public License Version 2.1 +# ============================================= +# Copyright 2000 by Sun Microsystems, Inc. +# 901 San Antonio Road, Palo Alto, CA 94303, USA +# +# This library is free software; you can redistribute it and/or +# modify it under the terms of the GNU Lesser General Public +# License version 2.1, as published by the Free Software Foundation. +# +# This library is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# Lesser General Public License for more details. +# +# You should have received a copy of the GNU Lesser General Public +# License along with this library; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, +# MA 02111-1307 USA +# +# +# Sun Industry Standards Source License Version 1.1 +# ================================================= +# The contents of this file are subject to the Sun Industry Standards +# Source License Version 1.1 (the "License"); You may not use this file +# except in compliance with the License. You may obtain a copy of the +# License at http://www.openoffice.org/license.html. +# +# Software provided under this License is provided on an "AS IS" basis, +# WITHOUT WARRUNTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, +# WITHOUT LIMITATION, WARRUNTIES THAT THE SOFTWARE IS FREE OF DEFECTS, +# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. +# See the License for the specific provisions governing your rights and +# obligations concerning the Software. +# +# The Initial Developer of the Original Code is: Sun Microsystems, Inc.. +# +# Copyright: 2000 by Sun Microsystems, Inc. +# +# All Rights Reserved. +# +# Contributor(s): _______________________________________ +# +# +# +#************************************************************************* + +package packager::existence; + +############################# +# Test of existence +############################# + +sub exists_in_array +{ + my ($searchstring, $arrayref) = @_; + + my $alreadyexists = 0; + + for ( my $i = 0; $i <= $#{$arrayref}; $i++ ) + { + if ( ${$arrayref}[$i] eq $searchstring) + { + $alreadyexists = 1; + last; + } + } + + return $alreadyexists; +} + +1; |