← Back to branch summary

~ubuntu-branches/ubuntu/quantal/enigmail/quantal-security

« back to all changes in this revision

Viewing changes to config/module2dir.pl

  • Committer: Package Import Robot
  • Author(s): Chris Coulson
  • Date: 2013-09-13 16:02:15 UTC
  • mfrom: (0.12.16)
  • Revision ID: package-import@ubuntu.com-20130913160215-u3g8nmwa0pdwagwc
Tags: 2:1.5.2-0ubuntu0.12.10.1
* New upstream release v1.5.2 for Thunderbird 24

* Build enigmail using a stripped down Thunderbird 17 build system, as it's
  now quite difficult to build the way we were doing previously, with the
  latest Firefox build system
* Add debian/patches/no_libxpcom.patch - Don't link against libxpcom, as it
  doesn't exist anymore (but exists in the build system)
* Add debian/patches/use_sdk.patch - Use the SDK version of xpt.py and
  friends
* Drop debian/patches/ipc-pipe_rename.diff (not needed anymore)
* Drop debian/patches/makefile_depth.diff (not needed anymore)

Show diffs side-by-side

added added

removed removed

Lines of Context:
config/module2dir.pl
1
 
#!/usr/bin/perl -w
2
 
# This Source Code Form is subject to the terms of the Mozilla Public
3
 
# License, v. 2.0. If a copy of the MPL was not distributed with this
4
 
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
5
 
 
6
 
 
7
 
#
8
 
# Create a mapping from symbolic component name to directory name(s).
9
 
#
10
 
# Tue Oct 16 16:48:36 PDT 2001
11
 
# <mcafee@netscape.com>
12
 
 
13
 
use strict;
14
 
 
15
 
# For --option1, --option2, ...
16
 
use Getopt::Long;
17
 
Getopt::Long::Configure("bundling_override");
18
 
Getopt::Long::Configure("auto_abbrev");
19
 
 
20
 
# Globals
21
 
my $list_only_mode = 0;
22
 
my $opt_list_only;
23
 
my $mapfile = "";
24
 
my %map;
25
 
 
26
 
sub PrintUsage {
27
 
  die <<END_USAGE
28
 
  Prints out directories needed for a given list of components.
29
 
  usage: module2dir.pl [--list-only] [--mapfile mapfile] <component-name1> <component-name2> ...
30
 
END_USAGE
31
 
}
32
 
 
33
 
sub parse_map_file($) {
34
 
    my ($mapfile) = @_;
35
 
    my (%mod_map, $tmp, $dir, $mod, @mod_list);
36
 
 
37
 
    undef %mod_map;
38
 
    open (MAPFILE, "$mapfile") || die ("$mapfile: $!\n");
39
 
    while ($tmp=<MAPFILE>) {
40
 
        chomp ($tmp);
41
 
        ($dir, $mod, @mod_list) = split(/:/, $tmp, 3);
42
 
        $mod =~ s/[\s]*(\S+)[\s]*/$1/;
43
 
        $mod_map{$mod} .= "$dir ";
44
 
    }
45
 
    close(MAPFILE);
46
 
    foreach $mod (sort(keys %mod_map)) {
47
 
        my (@dirlist, @trimlist, $found, $tdir);
48
 
        @dirlist = split(/\s+/, $mod_map{$mod});
49
 
        $mod_map{$mod} = "";
50
 
        foreach $dir (@dirlist) {
51
 
            $found = 0; 
52
 
            foreach $tdir (@trimlist) {
53
 
                $found++, last if ($dir =~ m/^$tdir\// || $dir eq $tdir);
54
 
            }
55
 
            push @trimlist, $dir if (!$found);
56
 
        }
57
 
        $map{$mod} = join(" ", @trimlist);
58
 
        #print "$mod: $map{$mod}\n";
59
 
    }
60
 
}
61
 
 
62
 
sub dir_for_required_component {
63
 
  my ($component) = @_;
64
 
  my $rv;
65
 
  my $dir;
66
 
 
67
 
  $dir = $map{$component};
68
 
  if($dir) {
69
 
        # prepend "mozilla/" in front of directory names.
70
 
        $rv = "mozilla/$dir";
71
 
        $rv =~ s/\s+/ mozilla\//g;  # Hack for 2 or more directories.
72
 
  } else {
73
 
        $rv = 0;
74
 
  }
75
 
  return $rv;
76
 
}
77
 
 
78
 
{
79
 
 
80
 
  # Add stdin to the commandline.  This makes commandline-only mode hang,
81
 
  # call it a bug.  Not sure how to get around this.
82
 
  push (@ARGV, split(' ',<STDIN>));
83
 
 
84
 
  PrintUsage() if !GetOptions('list-only' => \$opt_list_only,
85
 
                              'mapfile=s' => \$mapfile);
86
 
 
87
 
  # Pick up arguments, if any.
88
 
  if($opt_list_only) {
89
 
        $list_only_mode = 1;
90
 
  }
91
 
 
92
 
  &parse_map_file($mapfile);
93
 
 
94
 
  my $arg;
95
 
  my $dir;
96
 
  while ($arg = shift @ARGV) {
97
 
        $dir = dir_for_required_component($arg);
98
 
        if($dir) {
99
 
      if($list_only_mode) {
100
 
                print $dir, " ";
101
 
          } else {
102
 
                print "$arg: ", $dir, "\n";
103
 
          }
104
 
        } else {
105
 
          # do nothing
106
 
        }
107
 
  }
108
 
  if($dir && $list_only_mode) {
109
 
        print "\n";
110
 
  }
111
 
}