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 $index_num   = 20;
  54 my $topic_num   = 20;
  55
  56 my $base    = shift(@ARGV) or usage();
  57 my $folder  = shift(@ARGV) or usage();
  58 my $url     = shift(@ARGV) or usage();
  59
  60 $Gruta::VERSION_CODENAME .= " (+ gruta-snapshot $VERSION)";
  61
  62 my $g = Gruta->new(
  63     id          => '',
  64     source      => Gruta::Source::FS->new( path => "${base}/var"),
  65     renderers   => [
  66         Gruta::Renderer::Grutatxt->new(),
  67         Gruta::Renderer::HTML->new(),
  68         Gruta::Renderer::HTML->new( valid_tags => undef ),
  69         Gruta::Renderer::Text->new(),
  70     ],
  71     template    => Gruta::Template::Art5->new(lang => 'en'),
  72     cgi         => Gruta::CGI->new(
  73             upload_dirs => [
  74                 "${base}/img",
  75                 "${base}/download"
  76             ],
  77     ),
  78     args        => {
  79             base_url    =>  $url,
  80             static_urls =>  2,
  81     },
  82     _folder     => $folder
  83 );
  84
  85 mkdir $folder, 0755;
  86 mkdir $folder . '/top/', 0755;
  87
  88 out($g, 'INDEX',    'index.html', { num => $index_num } );
  89
  90 my @topics = split(/:/, ($g->template->process('cfg_index_topics')));
  91
  92 my @all = $g->source->stories_by_date(\@topics);
  93
  94 my $max = scalar(@all) - $index_num;
  95 my $offset = $index_num;
  96
  97 print "$max stories\n";
  98
  99 while ($max > 0) {
 100     out($g, 'INDEX', "${offset}.html", { num => $index_num, offset => $offset });
 101     $offset += $index_num;
 102     $max    -= $index_num;
 103 }
 104
 105 out($g, 'CSS',      'style.css');
 106 out($g, 'RSS',      'rss.xml');
 107 out($g, 'SITEMAP',  'sitemap.xml');
 108
 109 foreach my $t (sort $g->source->topics()) {
 110     mkdir $folder . '/' . $t, 0755;
 111
 112     my @stories = $g->source->stories($t);
 113
 114     foreach my $s (sort @stories) {
 115         out($g, 'STORY', "$t/$s.html", {
 116             topic   => $t,
 117             id      => $s
 118             }
 119         );
 120
 121         my $story = $g->source->story($t, $s);
 122
 123         my $d = $story->date('%y%m%d');
 124
 125         mkdir $folder . '/' . $d;
 126
 127         out($g, 'SEARCH_BY_DATE', "${d}/index.html", {
 128             from    => "${d}000000",
 129             to      => "${d}235959"
 130             }
 131         );
 132     }
 133
 134     out($g, 'TOPIC',    "$t/index.html", { 'topic' => $t, 'num' => $topic_num });
 135
 136     my $max = scalar(@stories) - $topic_num;
 137     my $offset = $topic_num;
 138
 139     while ($max > 0) {
 140         out($g, 'TOPIC', "$t/~${offset}.html", {
 141             topic   => $t,
 142             num     => $topic_num,
 143             offset  => $offset
 144             }
 145         );
 146         $max -= $topic_num;
 147         $offset += $topic_num;
 148     }
 149 }
 150
 151 mkdir $folder . '/tag/', 0755;
 152
 153 out($g, 'TAGS', 'tag/index.html');
 154
 155 foreach my $t ($g->source->tags()) {
 156     out($g, 'SEARCH_BY_TAG', "tag/$t->[0].html", { tag => $t->[0] });
 157 }
 158
 159 out($g, 'TOP_TEN',  'top/index.html');