bin/gruta

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Gruta;
   7 use Gruta::Source::DBI;
   8 use Gruta::Source::FS;
   9
  10 my $usage = 0;
  11
  12 my $g;
  13 my $src;
  14 my $cmd;
  15 my $src_str;
  16
  17 $cmd = shift(@ARGV) or usage();
  18 $src_str = shift(@ARGV) or usage();
  19
  20 $src = new_source($src_str);
  21 $g = Gruta->new( sources => $src );
  22
  23 if ($cmd eq 'copy') {
  24         my $new_src = shift(@ARGV) or usage();
  25         my $dst = new_source( $new_src );
  26
  27         $dst->create();
  28
  29         $g->transfer_to_source( $dst );
  30 }
  31 elsif ($cmd eq 'topics') {
  32         foreach my $t ($g->topics()) {
  33                 print $t, "\n";
  34         }
  35 }
  36 elsif ($cmd eq 'topic') {
  37         my $topic_id = shift(@ARGV) or usage();
  38
  39         my $topic = $g->topic($topic_id);
  40
  41         foreach my $f ($topic->afields()) {
  42                 print $f, ': ', ($topic->get($f) || 'UNDEF'), "\n";
  43         }
  44 }
  45 elsif ($cmd eq 'edit_story') {
  46         my $topic       = shift(@ARGV) or usage();
  47         my $id          = shift(@ARGV) or usage();
  48
  49         my $story = $g->story($topic, $id);
  50 }
  51 else {
  52         usage();
  53 }
  54
  55 exit 0;
  56
  57
  58 sub usage
  59 {
  60         print "Usage: $0 {cmd} {source}\n";
  61         exit 1;
  62 }
  63
  64 sub new_source
  65 {
  66         my $src_str = shift;
  67         my $src;
  68
  69         if ($src_str =~ /^dbi:/) {
  70                 $src = Gruta::Source::DBI->new( string => $src_str );
  71         }
  72         else {
  73                 $src = Gruta::Source::FS->new( path => $src_str );
  74         }
  75
  76         return $src;
  77 }