#!/usr/bin/perl -w use strict; use warnings; use HTML::Entities; use autodie; my @undated_text_files = glob("[A-Za-z]*.txt"); for my $t (@undated_text_files) { chomp(my $date = `stat -c %y "$t" | cut -d' ' -f1`); `mv -i "$t" "${date}_$t"`; } sub html_file { my ($file) = @_; $file =~ s/\.txt$/.html/; return $file; } my @dated_text_files = sort glob("[0-9]*.txt"); my $prev = ""; my $next; my $first = html_file($dated_text_files[0]); my $last = html_file($dated_text_files[-1]); for my $i (0..$#dated_text_files) { my $text = $dated_text_files[$i]; my $html = html_file($text); my $next = html_file($dated_text_files[$i+1]||""); `samwiki "$text" "$html" "$prev" "$next" "$first" "$last"`; `hide "$html"`; $prev = $html; } open my $index, ">", "index.html"; print $index qq{ }; close $index; `cp _head.html contents.html`; open my $contents, ">>", "contents.html"; print $contents qq{
}; for my $i (0..$#dated_text_files) { my $text = $dated_text_files[$i]; my $html = html_file($text); my ($date, $name) = $text =~ /^([-0-9]+)_(.+)\.txt$/; my $name_ee = encode_entities($name); print $contents qq{ $date $name_ee
}; } print $contents qq{
}; close $contents;