scriptitems.pm (cdf0e10c) scriptitems.pm (1ed5bd48)
1#*************************************************************************
2#
3# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4#
5# Copyright 2000, 2010 Oracle and/or its affiliates.
6#
7# OpenOffice.org - a multi-platform office productivity suite
8#

--- 591 unchanged lines hidden (view full) ---

600 for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
601 {
602 my $onedir = ${$dirsref}[$i];
603 if (( $onedir->{'PatchHostName'} ) && ( $onedir->{'PatchHostName'} ne "" )) { $onedir->{'HostName'} = $onedir->{'PatchHostName'}; }
604 }
605}
606
607################################################################################
1#*************************************************************************
2#
3# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4#
5# Copyright 2000, 2010 Oracle and/or its affiliates.
6#
7# OpenOffice.org - a multi-platform office productivity suite
8#

--- 591 unchanged lines hidden (view full) ---

600 for ( my $i = 0; $i <= $#{$dirsref}; $i++ )
601 {
602 my $onedir = ${$dirsref}[$i];
603 if (( $onedir->{'PatchHostName'} ) && ( $onedir->{'PatchHostName'} ne "" )) { $onedir->{'HostName'} = $onedir->{'PatchHostName'}; }
604 }
605}
606
607################################################################################
608# Using different HostName for language packs
608# Using langpack copy action for language packs
609################################################################################
610
611sub use_langpack_copy_scpaction
612{
613 my ($scpactionsref) = @_;
614
615 for ( my $i = 0; $i <= $#{$scpactionsref}; $i++ )
616 {
617 my $onescpaction = ${$scpactionsref}[$i];
618 if (( $onescpaction->{'LangPackCopy'} ) && ( $onescpaction->{'LangPackCopy'} ne "" )) { $onescpaction->{'Copy'} = $onescpaction->{'LangPackCopy'}; }
619 }
620}
621
622################################################################################
609################################################################################
610
611sub use_langpack_copy_scpaction
612{
613 my ($scpactionsref) = @_;
614
615 for ( my $i = 0; $i <= $#{$scpactionsref}; $i++ )
616 {
617 my $onescpaction = ${$scpactionsref}[$i];
618 if (( $onescpaction->{'LangPackCopy'} ) && ( $onescpaction->{'LangPackCopy'} ne "" )) { $onescpaction->{'Copy'} = $onescpaction->{'LangPackCopy'}; }
619 }
620}
621
622################################################################################
623# Using different HostName for language packs
623# Using copy patch action
624################################################################################
625
626sub use_patch_copy_scpaction
627{
628 my ($scpactionsref) = @_;
629
630 for ( my $i = 0; $i <= $#{$scpactionsref}; $i++ )
631 {
632 my $onescpaction = ${$scpactionsref}[$i];
633 if (( $onescpaction->{'PatchCopy'} ) && ( $onescpaction->{'PatchCopy'} ne "" )) { $onescpaction->{'Copy'} = $onescpaction->{'PatchCopy'}; }
634 }
635}
636
637################################################################################
624################################################################################
625
626sub use_patch_copy_scpaction
627{
628 my ($scpactionsref) = @_;
629
630 for ( my $i = 0; $i <= $#{$scpactionsref}; $i++ )
631 {
632 my $onescpaction = ${$scpactionsref}[$i];
633 if (( $onescpaction->{'PatchCopy'} ) && ( $onescpaction->{'PatchCopy'} ne "" )) { $onescpaction->{'Copy'} = $onescpaction->{'PatchCopy'}; }
634 }
635}
636
637################################################################################
638# Using dev copy patch action for developer snapshot builds
639################################################################################
640
641sub use_dev_copy_scpaction
642{
643 my ($scpactionsref) = @_;
644
645 for ( my $i = 0; $i <= $#{$scpactionsref}; $i++ )
646 {
647 my $onescpaction = ${$scpactionsref}[$i];
648 if (( $onescpaction->{'DevCopy'} ) && ( $onescpaction->{'DevCopy'} ne "" )) { $onescpaction->{'Copy'} = $onescpaction->{'DevCopy'}; }
649 }
650}
651
652################################################################################
638# Shifting parent directories of URE and Basis layer, so that
639# these directories are located below the Brand layer.
640# Style: SHIFT_BASIS_INTO_BRAND_LAYER
641################################################################################
642
643sub shift_basis_directory_parents
644{
645 my ($dirsref) = @_;

--- 2299 unchanged lines hidden --- 		653# Shifting parent directories of URE and Basis layer, so that
654# these directories are located below the Brand layer.
655# Style: SHIFT_BASIS_INTO_BRAND_LAYER
656################################################################################
657
658sub shift_basis_directory_parents
659{
660 my ($dirsref) = @_;

--- 2299 unchanged lines hidden ---