1 |
– |
#!/usr/local/bin/perl5 |
2 |
– |
# |
1 |
|
# Make a client specific file for external products |
2 |
|
# |
3 |
|
# |
4 |
|
|
5 |
|
package clientfile; |
6 |
+ |
require 5.001; |
7 |
|
require Exporter; |
8 |
|
@ISA = qw(Exporter); |
9 |
|
@EXPORT = qw(BuildClientFile); |
16 |
|
my $projectfile=shift; |
17 |
|
my $archdir=".SCRAM/$ENV{SCRAM_ARCH}"; |
18 |
|
my $clientfile="$archdir/clientsettings"; |
19 |
< |
use AddDir; |
19 |
> |
use Utilities::AddDir; |
20 |
|
use ToolBox; |
21 |
|
|
22 |
|
adddir($archdir); |
35 |
|
|
36 |
|
sub _ParseProjectReqs($reqfile) { |
37 |
|
my $reqfile=shift; |
38 |
< |
use Switcher; |
38 |
> |
use Utilities::Switcher; |
39 |
|
|
40 |
|
$taglist={ |
41 |
|
'require' => 'none', |
133 |
|
}; |
134 |
|
# 'INCLUDE_StartTag' => \&INCLUDE_start , |
135 |
|
|
136 |
< |
use Switcher; |
136 |
> |
use Utilities::Switcher; |
137 |
|
$toolswitch=Switcher->new($toollist,$toolfile); |
138 |
|
$toolswitch->parse(); |
139 |
|
|