mirror of
https://github.com/pennmush/pennmush
synced 2026-08-12 22:23:05 -04:00
156 lines
3 KiB
Perl
Executable file
156 lines
3 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Utility to convert a changelog to a html fragment, for pasting into
|
|
# c.p.o release announcements, etc.
|
|
|
|
# Usage:
|
|
# utils/change2html.pl [-r VERSION] [-t TITLE] [-f] CHANGES.184 ... > output.html
|
|
|
|
# If a specific version isn't given, converts all entries in all files
|
|
# given on command line. Versions look like 1.8.4p6
|
|
|
|
# -f produces a complete html document.
|
|
# -t TITLE is used as the title of the document. Only meaningful with -f.
|
|
|
|
use warnings;
|
|
use strict;
|
|
use Getopt::Std;
|
|
use version 0.77;
|
|
use HTML::Entities;
|
|
use subs qw/parse_version reset_list print_line/;
|
|
|
|
our ($opt_r, $opt_f, $opt_t);
|
|
|
|
$opt_r = undef;
|
|
$opt_t = "PennMUSH Changes";
|
|
|
|
die "Usage: $0 [-r VERSION] [-f] FILE ...\n" unless getopts("fr:t:");
|
|
|
|
my $display = 0;
|
|
|
|
if (defined $opt_r) {
|
|
if ($opt_r =~ /^(\d+\.\d+\.\d+)p(\d+)$/) {
|
|
$opt_r = version->parse("v$1.$2");
|
|
} else {
|
|
die "Invalid version string '$opt_r'\n";
|
|
}
|
|
} else {
|
|
$display = 1;
|
|
}
|
|
|
|
my $skipping_noise = 1;
|
|
my $in_list = 0;
|
|
my $in_elem = 0;
|
|
my $line = "";
|
|
|
|
if ($opt_f) {
|
|
print_header("$opt_t");
|
|
print '<h1 style="text-align:center">Changes in this version</h1>', "\n"
|
|
if $opt_r;
|
|
}
|
|
|
|
while (<>) {
|
|
chomp;
|
|
|
|
if ($skipping_noise) {
|
|
$skipping_noise = 0 if /^=+$/;
|
|
next;
|
|
}
|
|
|
|
if (/^Version/) {
|
|
my $this_vers = parse_version $_;
|
|
|
|
reset_list;
|
|
|
|
if ($this_vers == $opt_r) {
|
|
$display = 1;
|
|
} elsif (defined $opt_r) {
|
|
last if $display;
|
|
}
|
|
|
|
if ($display) {
|
|
$_ =~ m/^(Version \d+\.\d+\.\d+ patchlevel \d+)\s+(\S+\s+\d+,\s+\d+)/;
|
|
reset_list;
|
|
print "<hr>\n";
|
|
print "<h2>$1 ($2)</h2>\n\n";
|
|
}
|
|
|
|
} elsif (/^([\w\s]+):/) {
|
|
if ($display) {
|
|
reset_list;
|
|
print "<h3>$1</h3>\n\n <ul>\n";
|
|
$in_list = 1;
|
|
}
|
|
} elsif (/^\s+\* (.*)/) {
|
|
if ($display) {
|
|
print_line if $line;
|
|
$line = $1;
|
|
$in_elem = 1;
|
|
}
|
|
} elsif (/^\s+(\S.*)/) {
|
|
if ($display) {
|
|
$line .= " ";
|
|
$line .= $1;
|
|
}
|
|
}
|
|
}
|
|
|
|
reset_list;
|
|
|
|
print "</body>\n</html>\n" if $opt_f;
|
|
|
|
sub parse_version {
|
|
my $vers = shift;
|
|
|
|
if ($vers =~ m/^Version (\d+\.\d+\.\d+) patchlevel (\d+)/) {
|
|
return version->parse("v$1.$2");
|
|
} else {
|
|
return v0.0.0;
|
|
}
|
|
}
|
|
|
|
sub reset_list {
|
|
print_line if $in_elem;
|
|
print " </ul>\n\n" if $in_list;
|
|
$in_elem = $in_list = 0;
|
|
}
|
|
|
|
sub print_line {
|
|
|
|
$line = encode_entities($line);
|
|
|
|
## Pretty printing
|
|
# Things that look like commands and functions
|
|
$line =~ s#(\@[\w/]+)#<code>$1</code>#g;
|
|
$line =~ s#(\w+\(\))#<code>$1</code>#g;
|
|
# %-subs
|
|
$line =~ s#(%[0-9\#!@?^cu=])#<var>$1</var>#g;
|
|
# Dev initials
|
|
$line =~ s#(\[[A-Z]+\])#<b>$1</b>#g;
|
|
# And credits
|
|
$line =~ s#(Suggested|Reported) by ([^.,]+)#$1 by <em>$2</em>#;
|
|
|
|
print " <li>", $line, "</li>\n";
|
|
$line = "";
|
|
$in_elem = 0;
|
|
}
|
|
|
|
sub print_header {
|
|
my $title = shift;
|
|
print <<EOH;
|
|
<!DOCTYPE html>
|
|
<html>
|
|
<head>
|
|
<title>$title</title>
|
|
<link rel="stylesheet" href="mushdoc.css">
|
|
</head>
|
|
<body>
|
|
<header>
|
|
<h1 class="title">$title</h1>
|
|
</header>
|
|
EOH
|
|
}
|
|
|
|
|
|
|
|
|