Revision 488,
563 bytes
checked in by iwaim, 15 years ago
(diff) |
vine-spec-skeleton: 0.1
|
-
Property svn:executable set to
*
|
Line | |
---|
1 | #!/usr/bin/perl |
---|
2 | # -*- coding:utf-8-unix; mode:cperl -*- |
---|
3 | |
---|
4 | use strict; |
---|
5 | use warnings; |
---|
6 | |
---|
7 | use lib './../lib'; |
---|
8 | |
---|
9 | use VineLinux::VSS; |
---|
10 | use Getopt::Long; |
---|
11 | use File::Spec; |
---|
12 | |
---|
13 | my $vss_home = "$ENV{HOME}/app/vss"; |
---|
14 | my $config = "$vss_home/config.yaml"; |
---|
15 | |
---|
16 | my $type = ''; |
---|
17 | |
---|
18 | GetOptions( |
---|
19 | '--config=s', \$config, |
---|
20 | '--type=s' , \$type, |
---|
21 | '--version' => \my $version |
---|
22 | ); |
---|
23 | Getopt::Long::Configure("bundling"); |
---|
24 | |
---|
25 | if ($version) { |
---|
26 | print "vine-spec-skeleton version $VineLinux::VSS::VERSION\n"; |
---|
27 | exit; |
---|
28 | } |
---|
29 | |
---|
30 | my $app = VineLinux::VSS->new(config => $config, type => $type); |
---|
31 | $app->run(); |
---|
Note: See
TracBrowser
for help on using the repository browser.