solenv/bin/modules/par2script/undefine.pm

   1 #*************************************************************************
   2 #
   3 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 #
   5 # Copyright 2008 by Sun Microsystems, Inc.
   6 #
   7 # OpenOffice.org - a multi-platform office productivity suite
   8 #
   9 # $RCSfile: undefine.pm,v $
  10 #
  11 # $Revision: 1.6 $
  12 #
  13 # This file is part of OpenOffice.org.
  14 #
  15 # OpenOffice.org is free software: you can redistribute it and/or modify
  16 # it under the terms of the GNU Lesser General Public License version 3
  17 # only, as published by the Free Software Foundation.
  18 #
  19 # OpenOffice.org is distributed in the hope that it will be useful,
  20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 # GNU Lesser General Public License version 3 for more details
  23 # (a copy is included in the LICENSE file that accompanied this code).
  24 #
  25 # You should have received a copy of the GNU Lesser General Public License
  26 # version 3 along with OpenOffice.org.  If not, see
  27 # <http://www.openoffice.org/license.html>
  28 # for a copy of the LGPLv3 License.
  29 #
  30 #*************************************************************************
  31
  32 package par2script::undefine;
  33
  34 use par2script::globals;
  35
  36 ##########################################################
  37 # Removing in the script all the gids, that are listed
  38 # in undefine scp files
  39 ##########################################################
  40
  41 sub undefine_gids
  42 {
  43     my ($parfilecontent) = @_;
  44
  45     my $item;
  46     foreach $item ( @par2script::globals::allitems )
  47     {
  48         my $unitem = "Un$item";
  49
  50         for ( my $i = 0; $i <= $#{$parfilecontent}; $i++ )
  51         {
  52             if ( ${$parfilecontent}[$i] =~ /^\s*$unitem\s*(\w+?)\s*$/ )
  53             {
  54                 my $gid = $1;
  55                 delete($par2script::globals::definitions{$item}->{$gid});
  56             }
  57         }
  58     }
  59 }
  60
  61 ##########################################################
  62 # Collecting all subdirectories of a specified directory
  63 ##########################################################
  64
  65 sub collect_children_dirs
  66 {
  67     my ($gid, $collector) = @_;
  68
  69     my $diritem = "Directory";
  70     my $parentkey = "ParentID";
  71
  72     if ( exists($par2script::globals::definitions{$diritem}) )
  73     {
  74         my $onedefinition;
  75
  76         foreach $onedefinition (keys %{$par2script::globals::definitions{$diritem}})
  77         {
  78             if ( $par2script::globals::definitions{$diritem}->{$onedefinition}->{$parentkey} eq $gid )
  79             {
  80                 push(@{$collector}, $onedefinition);
  81                 collect_children_dirs($onedefinition, $collector);
  82             }
  83         }
  84     }
  85 }
  86
  87 ##########################################################
  88 # Removing in the script complete profiles.
  89 # This includes the Profile and its ProfileItems.
  90 ##########################################################
  91
  92 sub remove_complete_item
  93 {
  94     my ($item, $parfilecontent) = @_;
  95
  96     my $removeitem = "Remove$item";
  97     my $dependentkey = "";
  98     my $collect_children = 0;
  99     my @gidcollector = ();
 100     my @dependentitems = ();
 101
 102     if ( $item eq "Profile" )
 103     {
 104         @dependentitems = ("ProfileItem");
 105         $dependentkey = "ProfileID";
 106     }
 107     elsif ( $item eq "Directory" )
 108     {
 109         @dependentitems = ("File", "Shortcut", "Unixlink");
 110         $dependentkey = "Dir";
 111         $collect_children = 1;
 112     }
 113
 114     for ( my $i = 0; $i <= $#{$parfilecontent}; $i++ )
 115     {
 116         if ( ${$parfilecontent}[$i] =~ /^\s*$removeitem\s*(\w+?)\s*$/ )
 117         {
 118             my $onegid = $1;
 119             push(@gidcollector, $onegid);
 120             if ( $collect_children ) { collect_children_dirs($onegid, \@gidcollector); }
 121
 122             my $gid;
 123             foreach $gid (@gidcollector)
 124             {
 125                 delete($par2script::globals::definitions{$item}->{$gid});
 126
 127                 # also deleting all dependent items, for example "ProfileItems" whose "ProfileID" is this "Profile"
 128                 my $depitem;
 129                 foreach $depitem ( @dependentitems )
 130                 {
 131                     if ( exists($par2script::globals::definitions{$depitem}) )
 132                     {
 133                         my $onedefinition;
 134                         foreach $onedefinition (keys %{$par2script::globals::definitions{$depitem}})
 135                         {
 136                             if ( $par2script::globals::definitions{$depitem}->{$onedefinition}->{$dependentkey} eq $gid )
 137                             {
 138                                 delete($par2script::globals::definitions{$depitem}->{$onedefinition});
 139                             }
 140                         }
 141                     }
 142                 }
 143             }
 144         }
 145     }
 146 }
 147
 148 1;