SiStripCommissioningSources/data/reset_seal_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 "removing $moddir/.cache\n";
0026 $resp = `rm $moddir/.cache`;
0027 print "$resp\n";
0028 $resp = `SealPluginRefresh`;
0029 print $resp;
0030