#! /usr/bin/perl
#-*- Perl -*-
while(<>) {
chop;
if (/^Subject: Kernel change summary (.*) -> (.*)/) {
print "\nKernel Change Summary $1 -> $2\n\nChanges from $1 to $2
\n";
$this = $2;
next;
}
next if /^Newsgroups:/;
next if /^Followup-To:/;
next if /^Keywords:/;
next if /^Approved:/;
last if /^$/;
print "$_\n";
}
@_ = split(/\./, $this);
$level = @_[1];
$this = join(".", @_) if ($level == "2");
$this = @_[2] if ($level == "1");
@_[2] += 1;
$next = join(".", @_) if ($level == "2");
$next = @_[2] if ($level == "1");
$patch = "patch" if ($level == "1");
$patch = "patch-" if ($level == "2");
print " These changes are archived on ftp.emlist.com:pub/kchanges
and http://www.crynwr.com/kchanges.
I cannot answer questions about Linux -- I merely summarize the kernel
patches after reading them. I try to make them useful to everyone,
but kernel hackers should take them with a grain of salt and read the
patches themselves. The patch file is $patch$this.gz
\n";
print "\n";
while(<>) {
print "- " if !/^\s/;
print;
}
print "
\n";
print "\n";
print "\n";