tools/nonametv-export

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 use FindBin;
   6 use lib "$FindBin::Bin/../lib";
   7
   8 use NonameTV::Factory qw/CreateDataStore CreateDataStoreDummy
   9                          CreateExporter InitHttpCache/;
  10
  11 use Getopt::Long;
  12
  13 my $ds = CreateDataStore();
  14
  15 my $exp_name = shift @ARGV;
  16 my $exp = CreateExporter( $exp_name, $ds );
  17
  18 my %opt = %{$exp->{OptionDefaults}};
  19 my $option_spec = $exp->{OptionSpec};
  20
  21 my $res = GetOptions( \%opt, @{$option_spec} );
  22
  23 # Run exporter
  24 $exp->Export( \%opt );
  25