| 107 |
bj |
1 |
eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
|
|
|
2 |
& eval 'exec perl -w -S $0 $argv:q'
|
|
|
3 |
if 0;
|
|
|
4 |
|
|
|
5 |
# ******************************************************************
|
|
|
6 |
# Author: Chad Elliott
|
|
|
7 |
# Date: 6/17/2002
|
|
|
8 |
# $Id: mpc.pl 217 2006-05-05 09:35:48Z bj $
|
|
|
9 |
# ******************************************************************
|
|
|
10 |
|
|
|
11 |
# ******************************************************************
|
|
|
12 |
# Pragma Section
|
|
|
13 |
# ******************************************************************
|
|
|
14 |
|
|
|
15 |
use strict;
|
|
|
16 |
use Config;
|
| 198 |
bj |
17 |
use FindBin;
|
| 217 |
bj |
18 |
use File::Spec;
|
| 107 |
bj |
19 |
use File::Basename;
|
|
|
20 |
|
| 198 |
bj |
21 |
my($basePath) = $FindBin::Bin;
|
| 217 |
bj |
22 |
if ($^O eq 'VMS') {
|
|
|
23 |
$basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq '');
|
|
|
24 |
$basePath = VMS::Filespec::unixify($basePath);
|
|
|
25 |
}
|
| 107 |
bj |
26 |
unshift(@INC, $basePath . '/modules');
|
|
|
27 |
|
|
|
28 |
require MPC;
|
|
|
29 |
|
|
|
30 |
# ************************************************************
|
|
|
31 |
# Subroutine Section
|
|
|
32 |
# ************************************************************
|
|
|
33 |
|
|
|
34 |
sub getBasePath {
|
|
|
35 |
return $basePath;
|
|
|
36 |
}
|
|
|
37 |
|
|
|
38 |
# ************************************************************
|
|
|
39 |
# Main Section
|
|
|
40 |
# ************************************************************
|
|
|
41 |
|
|
|
42 |
my($driver) = new MPC();
|
|
|
43 |
exit($driver->execute($basePath, basename($0), \@ARGV));
|