tools/nonametv-import

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5
   6 use FindBin;
   7 use lib "$FindBin::Bin/../lib";
   8
   9 use NonameTV::Factory qw/CreateDataStore CreateDataStoreDummy
  10                          CreateImporter InitHttpCache/;
  11 use NonameTV::Job qw/StartJob EndJob/;
  12
  13 use Getopt::Long;
  14
  15 if( scalar( @ARGV ) == 0 )
  16 {
  17   print << 'EOHELP';
  18 nonametv-import [test] [Importer] [Importer-options] [Filename]
  19
  20 Import data into the database. [Importer] is the name of an entry under
  21 the Importers-section in the nonametv configuration.
  22
  23 The keyword "test" means that NonameTV::DataStore::Dummy is used.
  24
  25 Typical Importer-options include
  26
  27 --verbose
  28
  29 --force-update  Import data even if the data has not changed since the
  30                 last import.
  31
  32 Some importers import data from files specified on the command-line,
  33 other importers fetch their data via http.
  34
  35 EOHELP
  36
  37   exit 1;
  38 }
  39
  40 my $run_test = 0;
  41
  42 my $imp_name = shift @ARGV;
  43 if( $imp_name eq "test" ) {
  44   $run_test = 1;
  45   $imp_name = shift @ARGV;
  46 }
  47
  48 # Create Datastore
  49 my $ds;
  50
  51 if( $run_test ) {
  52   $ds = CreateDataStoreDummy();
  53 }
  54 else {
  55   $ds = CreateDataStore();
  56 }
  57
  58 # Initialize cache
  59 InitHttpCache();
  60
  61 my $imp = CreateImporter( $imp_name, $ds );
  62
  63 my %opt = %{$imp->{OptionDefaults}};
  64 my $option_spec = $imp->{OptionSpec};
  65
  66 my $res = GetOptions( \%opt, @{$option_spec} );
  67
  68 my $jobname = $imp_name;
  69 if( defined( $opt{'short-grab'} ) and $opt{'short-grab'} ) {
  70   $jobname .= "-short";
  71 }
  72
  73 # StartJob( "Import", $jobname, 10 );
  74
  75 # Run importer
  76 $imp->Import( \%opt );
  77
  78 # EndJob();