/[linux-patches]/genpatches-2.6-misc/web/email-announcement.pl
Gentoo

Contents of /genpatches-2.6-misc/web/email-announcement.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1654 - (show annotations) (download) (as text)
Mon Jan 18 23:26:31 2010 UTC (8 years, 10 months ago) by mpagano
File MIME type: text/x-perl
File size: 2230 byte(s)
Remove references to dsd's website
1 #!/usr/bin/perl
2 # Copyright 2005 Gentoo Foundation; Distributed under the GPL v2
3
4 use Cwd;
5 use gentoo_sources_web;
6
7 $tag = shift;
8 $kernel_name = shift;
9
10 $tag =~ m/(2\.6\.\d+)-(\d+)/;
11 $ver = $1;
12 $rel = $2;
13 $have_history = 0;
14
15 # Try and find previous release
16 if ($rel > 1) {
17 $oldtag = $ver.'-'.($rel-1);
18 $cmd = 'svn log -q --stop-on-copy '.$subversion_root.'/tags/'.$oldtag;
19 @log_lines = `$cmd`;
20 $lastrev = 0;
21 foreach (@log_lines) {
22 next if $_ !~ /^r(\d+) \|/;
23 $lastrev = $1;
24 last;
25 }
26 }
27
28 if ($lastrev) {
29 @commits = _parse_log($tag, $lastrev);
30 $have_history = @commits;
31 }
32
33 $email .= "To: Gentoo Kernel List <gentoo-kernel\@lists.gentoo.org>\n";
34 $email .= "Subject: [ANNOUNCE] $kernel_name-$tag release\n";
35
36 $email .= "\nThis is an automated email announcing the release of $kernel_name-$tag\n\n";
37
38 if ($lastrev && $have_history) {
39 $email .= "\nCHANGES SINCE $oldtag\n";
40 $email .= "-----------------------\n\n";
41 foreach $rev (@commits) {
42 next if !$rev->{'rev'};
43 chomp $rev->{'logmsg'};
44 $email .= 'Revision '.$rev->{'rev'}.': ';
45 $email .= $rev->{'logmsg'}.' ('.$rev->{'author'}.')'."\n";
46 $email .= 'Added: '.$_."\n" foreach (@{$rev->{'actionA'}});
47 $email .= 'Modified: '.$_."\n" foreach (@{$rev->{'actionM'}});
48 $email .= 'Deleted: '.$_."\n" foreach (@{$rev->{'actionD'}});
49 $email .= "\n";
50 }
51 }
52
53
54 # removed until we can properly update the website
55 #$email .= "\nPATCHES\n";
56 #$email .= "-------\n\n";
57 #$email .= "When the website updates, the complete patch list and split-out patches will be\n";
58 #$email .= "available here:\n";
59 #$email .= $website_base."/patches-".$tag.".htm\n";
60 #$email .= $website_base."/tarballs/".$kernel_name."-".$tag.".base.tar.bz2\n";
61 #$email .= $website_base."/tarballs/".$kernel_name."-".$tag.".extras.tar.bz2\n";
62
63 if ($kernel_name == "genpatches") {
64 $email .= "\n\nABOUT GENPATCHES\n";
65 $email .= "----------------\n\n";
66 $email .= "genpatches is the patchset applied to some kernels available in Portage.\n\n";
67 $email .= "For more information, see the genpatches homepage:\n";
68 $email .= $website_base."\n\n";
69 $email .= "For a simple example of how to use genpatches in your kernel ebuild, look at a\n";
70 $email .= "recent gentoo-sources-2.6.* ebuild.\n";
71 }
72
73 print $email;

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.20