| 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 198 2005-12-15 11:30:53Z bj $
|
|
|
9 |
# ******************************************************************
|
|
|
10 |
|
|
|
11 |
# ******************************************************************
|
|
|
12 |
# Pragma Section
|
|
|
13 |
# ******************************************************************
|
|
|
14 |
|
|
|
15 |
use strict;
|
|
|
16 |
use Cwd;
|
|
|
17 |
use Config;
|
| 198 |
bj |
18 |
use FindBin;
|
| 107 |
bj |
19 |
use File::Basename;
|
|
|
20 |
|
| 198 |
bj |
21 |
my($basePath) = $FindBin::Bin;
|
| 107 |
bj |
22 |
unshift(@INC, $basePath . '/modules');
|
|
|
23 |
|
|
|
24 |
require MPC;
|
|
|
25 |
|
|
|
26 |
# ************************************************************
|
|
|
27 |
# Subroutine Section
|
|
|
28 |
# ************************************************************
|
|
|
29 |
|
|
|
30 |
sub getBasePath {
|
|
|
31 |
return $basePath;
|
|
|
32 |
}
|
|
|
33 |
|
|
|
34 |
# ************************************************************
|
|
|
35 |
# Main Section
|
|
|
36 |
# ************************************************************
|
|
|
37 |
|
|
|
38 |
my($driver) = new MPC();
|
|
|
39 |
exit($driver->execute($basePath, basename($0), \@ARGV));
|