bin/gruta-snapshot

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 my $VERSION = '0.2';
   7
   8 use locale;
   9 use POSIX qw (locale_h);
  10 setlocale(LC_ALL, 'es_ES.UTF-8');
  11
  12 use Gruta;
  13
  14 use Gruta::CGI;
  15 use Gruta::Source::FS;
  16 use Gruta::Renderer::Grutatxt;
  17 use Gruta::Renderer::HTML;
  18 use Gruta::Renderer::Text;
  19 use Gruta::Template::Art5;
  20
  21 sub usage() {
  22     print "Usage: $0 {src} {folder} {base url}\n";
  23     exit 1;
  24 }
  25
  26 sub out {
  27     my $g           = shift;
  28     my $template    = shift;
  29     my $file        = shift;
  30     my $args        = shift || {};
  31
  32     $args->{t} = $template;
  33     $g->template->_art5->{xh} = $args;
  34
  35     $g->template->_art5->{abort} = 0;
  36     $g->template->{search_count} = 0;
  37
  38     my $o = $g->template->process($template);
  39
  40     if ($g->template->_art5->{abort}) {
  41         print ("NOT Creating $file\n");
  42     }
  43     else {
  44         printf("Creating $file\n");
  45         open F, '>' . $g->{_folder} . '/' . $file or die;
  46         print F $o;
  47         close F;
  48     }
  49 }
  50
  51 ############################################################
  52
  53 my $step    = 35;
  54
  55 my $base    = shift(@ARGV) or usage();
  56 my $folder  = shift(@ARGV) or usage();
  57 my $url     = shift(@ARGV) or usage();
  58
  59 $Gruta::VERSION_CODENAME .= " (+ gruta-snapshot $VERSION)";
  60
  61 my $g = Gruta->new(
  62     id          => '',
  63     source      => Gruta::Source::FS->new( path => "${base}/var"),
  64     renderers   => [
  65         Gruta::Renderer::Grutatxt->new(),
  66         Gruta::Renderer::HTML->new(),
  67         Gruta::Renderer::HTML->new( valid_tags => undef ),
  68         Gruta::Renderer::Text->new(),
  69     ],
  70     template    => Gruta::Template::Art5->new(lang => 'en'),
  71     cgi         => Gruta::CGI->new(
  72             upload_dirs => [
  73                 "${base}/img",
  74                 "${base}/download"
  75             ],
  76     ),
  77     args        => {
  78             base_url    =>  $url,
  79             static_urls =>  2,
  80     },
  81     _folder     => $folder
  82 );
  83
  84 mkdir $folder, 0755;
  85 mkdir $folder . '/tag/', 0755;
  86 mkdir $folder . '/top/', 0755;
  87
  88 out($g, 'INDEX',    'index.html');
  89 out($g, 'CSS',      'style.css');
  90 out($g, 'RSS',      'rss.xml');
  91 out($g, 'SITEMAP',  'sitemap.xml');
  92
  93 foreach my $t (sort $g->source->topics()) {
  94     mkdir $folder . '/' . $t, 0755;
  95
  96     my @stories = $g->source->stories($t);
  97
  98     foreach my $s (sort @stories) {
  99         out($g, 'STORY', "$t/$s.html", {
 100             topic   => $t,
 101             id      => $s
 102             }
 103         );
 104
 105         my $story = $g->source->story($t, $s);
 106
 107         my $d = $story->date('%y%m%d');
 108
 109         mkdir $folder . '/' . $d;
 110
 111         out($g, 'SEARCH_BY_DATE', "${d}/index.html", {
 112             from    => "${d}000000",
 113             to      => "${d}235959"
 114             }
 115         );
 116     }
 117
 118     out($g, 'TOPIC',    "$t/index.html", { 'topic' => $t, 'num' => $step });
 119
 120     my $max = scalar(@stories) - $step;
 121     my $offset = $step;
 122
 123     while ($max > 0) {
 124         out($g, 'TOPIC', "$t/~${offset}.html", {
 125             topic   => $t,
 126             num     => $step,
 127             offset  => $offset
 128             }
 129         );
 130         $max -= $step;
 131         $offset += $step;
 132     }
 133 }
 134
 135 out($g, 'TAGS',     'tag/index.html');
 136
 137 foreach my $t ($g->source->tags()) {
 138     out($g, 'SEARCH_BY_TAG', "tag/$t->[0].html", { tag => $t->[0] });
 139 }
 140
 141 out($g, 'TOP_TEN',  'top/index.html');