source: projects/vine-spec-skeleton/trunk/bin/vine-spec-skeleton @ 746

#!/usr/bin/perl
# -*- coding:utf-8-unix; mode:cperl -*-

use strict;
use warnings;

use VineLinux::VSS;
use Getopt::Long;
use File::Spec;

my $vss_home = "$ENV{HOME}/.vine/app/vss";
our $config = "$vss_home/config.yaml";

my $type = '';

GetOptions(
           '--config=s', \$config,
           '--type=s' , \$type,
           '--init', \my $init,
           '--version' => \my $version
          );
Getopt::Long::Configure("bundling");

if ($version) {
  print "vine-spec-skeleton version $VineLinux::VSS::VERSION\n";
  exit;
} elsif ($init) {
  my $app = VineLinux::VSS->init($config);
} else {
  my $package_name = $ARGV[0];

  unless (defined $package_name && $package_name =~ m/^.+$/) {
    print "require PACKAGE_NAME\n";
    exit;
  }
  my $app = VineLinux::VSS->new(config => $config, type => $type,
                                package_name => $package_name);
  $app->run();
}