SiStripCommissioningSources/data/reset_edm_cache.pl

0001 #!/usr/bin/env perl
0002 use Env;
0003 ($#ARGV >= 2) || die "Usage::reset_seal_cache.pl libdir moddir";
0004 $libdir = @ARGV[0];
0005 $moddir = @ARGV[1];
0006 $envfile = @ARGV[2];
0007 my $sourceme = `scramv1 runtime -sh`;
0008 @tok1 = split(/\n/,$sourceme);
0009 while($#tok1 != -1)
0010 {
0011     my $env =  @tok1[$#tok1];
0012     $env =~ s/export (.+)/$1/;
0013     $env =~ s/SCRAMRT_([^";]+)/$ENV{$1}/;
0014     $env =~ s/;//;
0015     $env =~ s/"//g;
0016     $env =~ /(.*)=(.*)/;
0017 #    print "setting $1 to $2\n";
0018     $ENV{$1}=$2;
0019     pop(@tok1);
0020 }
0021
0022 $ENV{LD_LIBRARY_PATH}=$libdir;
0023 $ENV{'SEAL_PLUGINS'}=$moddir;
0024 #$ENV{LOG}='stderr';
0025 print "working on $ENV{LD_LIBRARY_PATH}\n";
0026 print "removing $libdir/.edmplugincache\n";
0027 my $resp = `rm $libdir/.edmplugincache`;
0028 print "$resp\n";
0029 print "here 1\n";
0030 $resp = `EdmPluginRefresh`;
0031 print $resp;