#! /usr/bin/perl #-*- Perl -*- while(<>) { chop; if (/^Subject: Kernel change summary (.*) -> (.*)/) { print "\nKernel Change Summary $1 -> $2\n\n

Changes 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"; print "

[Index][Next]

\n"; print "\n";