ublog

   1 #!/usr/bin/perl
   2
   3 #
   4 # A minimal distributed multiuser blogging software [well ... better: hack]
   5 # that is based on Git
   6 #
   7 # Copyright 2011 Daniel Borkmann <borkmann@gnumaniacs.org>
   8 # Subject to the GNU GPL, version 2.
   9 #
  10 # ublog via Git Benefits:
  11 #
  12 #     + Distributed for a better censorship resistance
  13 #     + Secure since all sites are static HTML
  14 #     + Fast since all sites are static HTML
  15 #     + Backuped, since DVCS is used
  16 #     + Easy usage and setup, single blog text file
  17 #     + Can be used with multiple authors
  18 #     + RSS per author, tag and full RSS
  19 #     + Automatic content creation triggered on Git push
  20 #
  21 # txt2html syntax: http://txt2html.sourceforge.net/
  22 # On Debian: apt-get install txt2html
  23 #
  24 # More Readme on ToDo. Here's what you need to setup:
  25 #
  26 #     - Have git installed on your server
  27 #     - Plus a webserver, e.g. nginx
  28 #     - You setup a single Git repo with your blog.txt in it
  29 #     - Then, add a Git hook for each push that triggers ublog
  30 #     - ublog will then generate the blog files, e.g. for /var/www/htdocs/
  31 #     - Done. People should have the possibilty to clone your
  32 #       blog content (blog.txt), thus git server should run
  33 #
  34 # Usage, i.e.: ublog blog.txt /var/www/htdocs/
  35 #
  36
  37 use strict;
  38 use warnings;
  39
  40 use HTML::TextToHTML;
  41
  42 my $prognam = "ublog";
  43 my $version = "0.1";
  44
  45 my $line = 0;
  46 my $verbose = 0;
  47
  48 use constant {
  49         NONE => -1,
  50         HEADER => 0,
  51         FOOTER => 1,
  52         ABOUT => 2,
  53         SETTINGS => 3,
  54         AUTHOR => 4,
  55         ENTRY => 5,
  56 };
  57
  58 my @abbr = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );
  59
  60 my $header_txt = "";
  61 my $footer_txt = "";
  62 my $about_txt = "";
  63
  64 my %authors;
  65 my %entries;
  66 my %settings;
  67 my %tagsh;
  68 my %got;
  69
  70 sub debug
  71 {
  72         my $info = shift;
  73         if ($verbose) {
  74                 print $info;
  75         }
  76 }
  77
  78 sub parse_settings
  79 {
  80         my $l = shift;
  81         $_ = $l;
  82         if (/^\s*title\s*=\s*(.*)\s*$/) {
  83                 $settings{title} = $1;
  84                 debug("Title: $settings{title}\n");
  85         } elsif (/^\s*entries_per_site\s*=\s*(\d+)\s*$/) {
  86                 $settings{entries} = $1;
  87                 debug("Entries/site: $settings{entries}\n");
  88         } elsif (/^\s*git_clone\s*=\s*(.*)\s*$/) {
  89                 $settings{clone} = $1;
  90                 debug("Clone URL: $settings{clone}\n");
  91         } elsif (/^\s*root_url\s*=\s*(.*)\s*$/) {
  92                 $settings{root} = $1;
  93                 debug("Root URL: $settings{root}\n");
  94         } elsif (/^\s*show_all_tags\s*=\s*(0|1)\s*$/) {
  95                 $settings{tags} = $1;
  96                 debug("Tagcloud: ".$settings{tags}."\n");
  97         } else {
  98                 die "Syntax error in l.$line!\n";
  99         }
 100 }
 101
 102 sub check_settings
 103 {
 104         if (not $settings{title}) {
 105                 die "Syntax error! No blog title!\n";
 106         }
 107         if (not $settings{entries}) {
 108                 die "Syntax error! No entries/site defined!\n";
 109         }
 110         if ($settings{clone}) {
 111                 if (not ($settings{clone} =~ /^git:\/\//)) {
 112                         die "Syntax error! False clone URL!\n";
 113                 }
 114         }
 115         if (not $settings{root}) {
 116                 die "Syntax error! No blog root URL provided!\n";
 117         }
 118         if (not ($settings{root} =~ /^http:\/\//)) {
 119                 die "Syntax error! False root URL!\n";
 120         }
 121 }
 122
 123 sub parse_author
 124 {
 125         my $author = shift;
 126         my $l = shift;
 127         $_ = $l;
 128         if (/^\s*name\s*=\s*(.*)\s*$/) {
 129                 $authors{$author}->{name} = $1;
 130                 debug("Name: ".$authors{$author}->{name}."\n");
 131         } elsif (/^\s*email\s*=\s*(.*)\s*$/) {
 132                 $authors{$author}->{email} = $1;
 133                 debug("E-Mail: ".$authors{$author}->{email}."\n");
 134         } elsif (/^\s*web\s*=\s*(.*)\s*$/) {
 135                 $authors{$author}->{web} = $1;
 136                 debug("Website: ".$authors{$author}->{web}."\n");
 137         } elsif (/^\s*show_nic\s*=\s*(0|1)\s*$/) {
 138                 $authors{$author}->{usenic} = $1;
 139                 debug("Use nic: ".$authors{$author}->{usenic}."\n");
 140         } else {
 141                 die "Syntax error in l.$line!\n";
 142         }
 143 }
 144
 145 sub check_author
 146 {
 147         my $author = shift;
 148         if (not $authors{$author}->{name}) {
 149                 die "Syntax error! No author name!\n";
 150         }
 151 }
 152
 153 sub parse_entry
 154 {
 155         my $time = shift;
 156         my $l = shift;
 157         $entries{$time}->{text} .= $l;
 158 }
 159
 160 sub check_entry
 161 {
 162         my $time = shift;
 163         my $nic = $entries{$time}->{author};
 164         my $good = 0;
 165         foreach (keys(%authors)) {
 166                 if ($_ eq $nic) {
 167                         $good = 1;
 168                 }
 169         }
 170         if (not $good) {
 171                 die "Syntax error! Wrong author given!\n";
 172         }
 173 }
 174
 175 sub check_sections
 176 {
 177         if (not $got{header}) {
 178                 die "Syntax error! No header section present!\n";
 179         }
 180         if (not $got{footer}) {
 181                 die "Syntax error! No footer section present!\n";
 182         }
 183         if (not $got{about}) {
 184                 die "Syntax error! No about section present!\n";
 185         }
 186         if (not $got{settings}) {
 187                 die "Syntax error! No settings section present!\n";
 188         }
 189         if (not $got{author}) {
 190                 die "Syntax error! No author section present!\n";
 191         }
 192         if (not $got{entry}) {
 193                 die "Syntax error! No entry section present!\n";
 194         }
 195 }
 196
 197 sub parse
 198 {
 199         my $blog = shift;
 200         my $state = NONE;
 201         my ($author, $time, @tags);
 202         open BLOG, "<", $blog, or die $!;
 203         while (<BLOG>) {
 204                 $line++;
 205                 next if (/^\s*#/ and $state == NONE);
 206                 next if (/^\s+$/ and $state == NONE);
 207                 if (/^\s*header\s*=\s*{\s*$/) {
 208                         die "Syntax error in l.$line!\n" if ($state != NONE);
 209                         $state = HEADER;
 210                         $got{header} = 1;
 211                         debug("Found header!\n");
 212                 } elsif (/^\s*footer\s*=\s*{\s*$/) {
 213                         die "Syntax error in l.$line!\n" if ($state != NONE);
 214                         $state = FOOTER;
 215                         $got{footer} = 1;
 216                         debug("Found footer!\n");
 217                 } elsif (/^\s*about\s*=\s*{\s*$/) {
 218                         die "Syntax error in l.$line!\n" if ($state != NONE);
 219                         $state = ABOUT;
 220                         $got{about} = 1;
 221                         debug("Found about!\n");
 222                 } elsif (/^\s*settings\s*=\s*{\s*$/) {
 223                         die "Syntax error in l.$line!\n" if ($state != NONE);
 224                         $state = SETTINGS;
 225                         $got{settings} = 1;
 226                         debug("Found settings!\n");
 227                 } elsif (/^\s*author\s+(\w+)\s*=\s*{\s*$/) {
 228                         die "Syntax error in l.$line!\n" if ($state != NONE);
 229                         $state = AUTHOR;
 230                         $got{author} = 1;
 231                         $author = $1;
 232                         debug("Found author '$author'!\n");
 233                 } elsif (/^\s*entry\s+(\d+)\s+(\w+)\s+\[([\w\s,]*)\]\s*=\s*{\s*$/) {
 234                         die "Syntax error in l.$line!\n" if ($state != NONE);
 235                         $state = ENTRY;
 236                         $got{entry} = 1;
 237                         $time = $1;
 238                         $author = $2;
 239                         @tags = split(/,\s*/, $3);
 240                         $entries{$time}->{author} = $author;
 241                         push @{$entries{$time}->{tags}}, @tags;
 242                         $entries{$time}->{text} = "";
 243                         foreach my $tag (@tags) {
 244                                 $tagsh{$tag}++;
 245                         }
 246                         debug("Found header with '$time', '$author', '@tags'!\n");
 247                 } elsif (/^\s*}\s*$/) {
 248                         die "Syntax error in l.$line!\n" if ($state == NONE);
 249                         $state = NONE;
 250                         debug("Found close!\n");
 251                 } elsif ($state != NONE) {
 252                         if ($state == HEADER) {
 253                                 $header_txt .= $_;
 254                         } elsif ($state == FOOTER) {
 255                                 $footer_txt .= $_;
 256                         } elsif ($state == ABOUT) {
 257                                 $about_txt .= $_;
 258                         } elsif ($state == SETTINGS) {
 259                                 parse_settings($_);
 260                         } elsif ($state == AUTHOR) {
 261                                 parse_author($author, $_);
 262                         } elsif ($state == ENTRY) {
 263                                 parse_entry($time, $_);
 264                         } else {
 265                                 die "Wrong state in l.$line!\n";
 266                         }
 267                 } else {
 268                         die "Syntax error in l.$line!\n";
 269                 }
 270         }
 271         close BLOG;
 272 }
 273
 274 sub check_content
 275 {
 276         check_sections();
 277         check_settings();
 278         foreach (keys(%authors)) {
 279                 check_author($_);
 280         }
 281         foreach (keys(%entries)) {
 282                 check_entry($_);
 283         }
 284 }
 285
 286 sub generate_index
 287 {
 288         my $folder = shift;
 289         my $conv = new HTML::TextToHTML();
 290         my $sites = int(scalar(keys(%entries)) / $settings{entries}) + 1;
 291         my $last = scalar(keys(%entries)) % $settings{entries};
 292         my @keys = sort {$b <=> $a} keys(%entries);
 293         my @ldate = localtime(0);
 294
 295         if ($last == 0) {
 296                 if ($sites > 1) {
 297                         $sites--;
 298                         $last = $settings{entries};
 299                 }
 300         }
 301
 302         for (my $i = 0; $i < $sites; $i++) {
 303                 my $output = "";
 304                 my ($file, $number);
 305
 306                 $output .= "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">\n";
 307                 $output .= "<html><head>\n";
 308                 $output .= "<title>".$settings{title}."</title>\n";
 309                 $output .= "<link href=\"style.css\" rel=\"stylesheet\" type=\"text/css\">";
 310                 $output .= "</head><body><h2>".$settings{title}."</h2>\n";
 311                 $output .= $conv->process_chunk($header_txt);
 312                 $output .= "<a href=\"".$settings{root}."/about.html\">About</a>, ";
 313                 $output .= "<a href=\"".$settings{root}."/feed.xml\">RSS</a>";
 314                 if ($settings{clone}) {
 315                         $output .= ", Git: <a href=\"".$settings{clone}."\">".$settings{clone}."</a>";
 316                 }
 317                 $output .= "<br>\n<ul>";
 318
 319                 if ($i == $sites - 1) {
 320                         $number = $last;
 321                 } else {
 322                         $number = $settings{entries};
 323                 }
 324                 for (my $j = 0; $j < $number; $j++) {
 325                         my $key = shift @keys;
 326                         my $pre = "[<a href=\"".$settings{root}."/$key.html\">p</a>, ";
 327                         my $author = $entries{$key}->{author};
 328                         my @cdate = localtime($key);
 329
 330                         if ($authors{$author}->{usenic}) {
 331                                 $pre .= "<a href=\"".$settings{root}."/a_$author.xml\">$author</a>";
 332                         } else {
 333                                 $pre .= "<a href=\"".$settings{root}."/a_$author.xml\">".$authors{$author}->{name}."</a>";
 334                         }
 335                         if ($authors{$author}->{email} or $authors{$author}->{web}) {
 336                                 my $elem = 0;
 337                                 $pre .= " (";
 338                                 if ($authors{$author}->{email}) {
 339                                         $pre .= "<a href=\"mailto:".$authors{$author}->{email}."\">e</a>";
 340                                         $elem++;
 341                                 }
 342                                 if ($authors{$author}->{web}) {
 343                                         $pre .= ", " if $elem > 0;
 344                                         $pre .= "<a href=\"".$authors{$author}->{web}."\">w</a>";
 345                                 }
 346                                 $pre .= ")";
 347                         }
 348                         if (scalar(@{$entries{$key}->{tags}}) > 0) {
 349                                 $pre .= ", tags: ";
 350                                 foreach my $tag (@{$entries{$key}->{tags}}) {
 351                                         $pre .= "<a href=\"".$settings{root}."/t_$tag.xml\">$tag</a> ";
 352                                 }
 353                         }
 354                         $pre .= "] ";
 355
 356                         if ($ldate[3] != $cdate[3] || $ldate[4] != $cdate[4] ||
 357                             $ldate[5] != $cdate[5]) {
 358                                 @ldate = @cdate;
 359                                 $output .= "\n</ul>\n<h3>$abbr[$ldate[4]] $ldate[3], ".(1900 + $ldate[5])."</h3>\n<ul>";
 360                         }
 361
 362                         $output .= "\n<li>$pre".$conv->process_chunk($entries{$key}->{text}, is_fragment => 1)."</li>";
 363                 }
 364
 365                 if ($i == $sites - 1) {
 366                         $output .= "\n</ul>\n<hr>\n";
 367                 } else {
 368                         $output .= "</ul><a href=\"".$settings{root}."/index_".
 369                                    ($i + 1).".html\">Next</a><hr>\n";
 370                 }
 371                 if ($settings{tags}) {
 372                         $output .= "All tags: ";
 373                         foreach my $tag (keys(%tagsh)) {
 374                                 $output .= "<a href=\"".$settings{root}."/t_$tag.xml\">$tag</a> ($tagsh{$tag}) ";
 375                         }
 376                 }
 377                 $output .= $conv->process_chunk($footer_txt);
 378                 $output .= "</body></html>";
 379
 380                 if ($i == 0) {
 381                         $file = "index.html";
 382                 } else {
 383                         $file = "index_$i.html";
 384                 }
 385
 386                 open OUT, ">", "$folder/$file" or die $!;
 387                 print OUT $output;
 388                 close OUT;
 389         }
 390 }
 391
 392 sub generate_about
 393 {
 394         my $folder = shift;
 395         my $conv = new HTML::TextToHTML();
 396         my $output = "";
 397
 398         $output .= "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">\n";
 399         $output .= "<html><head>\n";
 400         $output .= "<title>".$settings{title}."</title>\n";
 401         $output .= "<link href=\"style.css\" rel=\"stylesheet\" type=\"text/css\">";
 402         $output .= "</head><body><h2>".$settings{title}."</h2>\n";
 403         $output .= $conv->process_chunk($about_txt);
 404         $output .= "<a href=\"".$settings{root}."/index.html\">Blog</a>, ";
 405         $output .= "<a href=\"".$settings{root}."/feed.xml\">RSS</a>";
 406         if ($settings{clone}) {
 407                 $output .= ", Git: <a href=\"".$settings{clone}."\">".$settings{clone}."</a>";
 408         }
 409         $output .= "<br><hr>\n";
 410         $output .= $conv->process_chunk($footer_txt);
 411         $output .= "</body></html>";
 412
 413         open OUT, ">", "$folder/about.html" or die $!;
 414         print OUT $output;
 415         close OUT;
 416 }
 417
 418 sub generate_entries
 419 {
 420         my $folder = shift;
 421         my $conv = new HTML::TextToHTML();
 422
 423         foreach my $key (keys(%entries)) {
 424                 my $output = "";
 425                 my $author = $entries{$key}->{author};
 426                 my @ldate = localtime($key);
 427                 my $pre = "[<a href=\"".$settings{root}."/$key.html\">p</a>, ";
 428
 429                 if ($authors{$author}->{usenic}) {
 430                         $pre .= "<a href=\"".$settings{root}."/a_$author.xml\">$author</a>";
 431                 } else {
 432                         $pre .= "<a href=\"".$settings{root}."/a_$author.xml\">".$authors{$author}->{name}."</a>";
 433                 }
 434                 if ($authors{$author}->{email} or $authors{$author}->{web}) {
 435                         my $elem = 0;
 436                         $pre .= " (";
 437                         if ($authors{$author}->{email}) {
 438                                 $pre .= "<a href=\"mailto:".$authors{$author}->{email}."\">e</a>";
 439                                 $elem++;
 440                         }
 441                         if ($authors{$author}->{web}) {
 442                                 $pre .= ", " if $elem > 0;
 443                                 $pre .= "<a href=\"".$authors{$author}->{web}."\">w</a>";
 444                         }
 445                         $pre .= ")";
 446                 }
 447                 if (scalar(@{$entries{$key}->{tags}}) > 0) {
 448                         $pre .= ", tags: ";
 449                         foreach my $tag (@{$entries{$key}->{tags}}) {
 450                                 $pre .= "<a href=\"".$settings{root}."/t_$tag.xml\">$tag</a> ";
 451                         }
 452                 }
 453                 $pre .= "] ";
 454
 455                 $output .= "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">\n";
 456                 $output .= "<html><head>\n";
 457                 $output .= "<title>".$settings{title}."</title>\n";
 458                 $output .= "<link href=\"style.css\" rel=\"stylesheet\" type=\"text/css\">";
 459                 $output .= "</head><body><h2>".$settings{title}."</h2>\n";
 460                 $output .= $conv->process_chunk($header_txt);
 461                 $output .= "<a href=\"".$settings{root}."/about.html\">About</a>, ";
 462                 $output .= "<a href=\"".$settings{root}."/feed.xml\">RSS</a>";
 463                 if ($settings{clone}) {
 464                         $output .= ", Git: <a href=\"".$settings{clone}."\">".$settings{clone}."</a>";
 465                 }
 466                 $output .= "<br>\n";
 467                 $output .= "<h3>$abbr[$ldate[4]] $ldate[3], ".(1900 + $ldate[5])."</h3>\n<ul>";
 468                 $output .= "\n<li>$pre".$conv->process_chunk($entries{$key}->{text}, is_fragment => 1)."</li>";
 469                 $output .= "\n</ul>\n<hr>\n";
 470                 $output .= $conv->process_chunk($footer_txt);
 471                 $output .= "</body></html>";
 472
 473                 open OUT, ">", "$folder/$key.html" or die $!;
 474                 print OUT $output;
 475                 close OUT;
 476         }
 477 }
 478
 479 sub generate_full_rss
 480 {
 481         my $folder = shift;
 482         my $output = "";
 483         my @keys = sort {$b <=> $a} keys(%entries);
 484
 485         $output .= "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
 486         $output .= "<rss version=\"2.0\">\n";
 487         $output .= "<channel>\n";
 488         $output .= "<title>".$settings{title}."</title>\n";
 489         $output .= "<link>".$settings{root}."</link>\n";
 490         $output .= "<description>".$settings{title}.", all ramblings</description>\n";
 491         $output .= "<language>en</language>\n";
 492
 493         foreach my $key (@keys) {
 494                 $output .= "<item>\n";
 495                 $output .= "<title>".$entries{$key}->{text}."</title>\n";
 496                 $output .= "<link>".$settings{root}."/$key.html</link>\n";
 497                 $output .= "<guid>".$settings{root}."/$key.html</guid>\n";
 498                 $output .= "</item>\n";
 499         }
 500
 501         $output .= "</channel>\n";
 502         $output .= "</rss>\n";
 503
 504         open OUT, ">", "$folder/feed.xml" or die $!;
 505         print OUT $output;
 506         close OUT;
 507 }
 508
 509 sub generate_author_rss
 510 {
 511         my $folder = shift;
 512         my @keys = sort {$b <=> $a} keys(%entries);
 513         my %aitems;
 514
 515         foreach my $key (@keys) {
 516                 my $author = $entries{$key}->{author};
 517                 if (not $aitems{$author}) {
 518                         $aitems{$author} = "";
 519                 }
 520                 $aitems{$author} .= "<item>\n";
 521                 $aitems{$author} .= "<title>".$entries{$key}->{text}."</title>\n";
 522                 $aitems{$author} .= "<link>".$settings{root}."/$key.html</link>\n";
 523                 $aitems{$author} .= "<guid>".$settings{root}."/$key.html</guid>\n";
 524                 $aitems{$author} .= "</item>\n";
 525         }
 526
 527         foreach my $author (keys(%aitems)) {
 528                 my $output = "";
 529                 $output .= "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
 530                 $output .= "<rss version=\"2.0\">\n";
 531                 $output .= "<channel>\n";
 532                 $output .= "<title>".$settings{title}."</title>\n";
 533                 $output .= "<link>".$settings{root}."</link>\n";
 534                 $output .= "<description>".$settings{title}.", $author\'s ramblings</description>\n";
 535                 $output .= "<language>en</language>\n";
 536                 $output .= $aitems{$author};
 537                 $output .= "</channel>\n";
 538                 $output .= "</rss>\n";
 539
 540                 open OUT, ">", "$folder/a_$author.xml" or die $!;
 541                 print OUT $output;
 542                 close OUT;
 543         }
 544 }
 545
 546 sub generate_tag_rss
 547 {
 548         my $folder = shift;
 549         my @keys = sort {$b <=> $a} keys(%entries);
 550         my %titems;
 551
 552         foreach my $key (@keys) {
 553                 my @tags = @{$entries{$key}->{tags}};
 554                 foreach my $tag (@tags) {
 555                         if (not $titems{$tag}) {
 556                                 $titems{$tag} = "";
 557                         }
 558                         $titems{$tag} .= "<item>\n";
 559                         $titems{$tag} .= "<title>".$entries{$key}->{text}."</title>\n";
 560                         $titems{$tag} .= "<link>".$settings{root}."/$key.html</link>\n";
 561                         $titems{$tag} .= "<guid>".$settings{root}."/$key.html</guid>\n";
 562                         $titems{$tag} .= "</item>\n";
 563                 }
 564         }
 565
 566         foreach my $tag (keys(%titems)) {
 567                 my $output = "";
 568                 $output .= "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
 569                 $output .= "<rss version=\"2.0\">\n";
 570                 $output .= "<channel>\n";
 571                 $output .= "<title>".$settings{title}."</title>\n";
 572                 $output .= "<link>".$settings{root}."</link>\n";
 573                 $output .= "<description>".$settings{title}.", $tag-tagged ramblings</description>\n";
 574                 $output .= "<language>en</language>\n";
 575                 $output .= $titems{$tag};
 576                 $output .= "</channel>\n";
 577                 $output .= "</rss>\n";
 578
 579                 open OUT, ">", "$folder/t_$tag.xml" or die $!;
 580                 print OUT $output;
 581                 close OUT;
 582         }
 583 }
 584
 585 sub generate_content
 586 {
 587         my $folder = shift;
 588         mkdir($folder, 0777);
 589         generate_index($folder);
 590         generate_about($folder);
 591         generate_entries($folder);
 592         # Yeah, sloppy and inefficient
 593         generate_full_rss($folder);
 594         generate_author_rss($folder);
 595         generate_tag_rss($folder);
 596 }
 597
 598 sub main
 599 {
 600         my $blog = shift;
 601         my $folder = shift;
 602         print "Parsing $blog blog ...\n";
 603         parse($blog);
 604         print "Checking ...\n";
 605         check_content();
 606         print "Generate html files in $folder ...\n";
 607         generate_content($folder);
 608         print "Done!\n";
 609 }
 610
 611 sub help
 612 {
 613         print "\n$prognam $version\n";
 614         print "http://gnumaniacs.org\n\n";
 615         print "Usage: $prognam <blog-text-file> <output-folder>\n\n";
 616         print "Please report bugs to <borkmann\@gnumanics.org>\n";
 617         print "Copyright (C) 2011 Daniel Borkmann <borkmann\@gnumanics.org>,\n";
 618         print "License: GNU GPL version 2\n";
 619         print "This is free software: you are free to change and redistribute it.\n";
 620         print "There is NO WARRANTY, to the extent permitted by law.\n\n";
 621
 622         exit;
 623 }
 624
 625 if ($#ARGV + 1 != 2) {
 626         help();
 627 }
 628
 629 main(@ARGV);