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

Contents of /genpatches-2.6-misc/web/producesummary.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 55 - (show annotations) (download) (as text)
Sun Jun 26 14:52:50 2005 UTC (9 years ago) by dsd
File MIME type: text/x-perl
File size: 933 byte(s)
Add website scripts
1 #!/usr/bin/perl
2 # Copyright 2000-2004 Gentoo Foundation; Distributed under the GPL v2
3
4 use gentoo_sources_web;
5
6 $kerneldir = shift;
7 $outfile = shift;
8
9 $kerneldir .= '/';
10
11 opendir(DIR, $kerneldir);
12 @files = grep(/\.patch$/,readdir(DIR));
13 closedir(DIR);
14
15 open(README, "< " . $kerneldir . '/0000_README');
16 @readme = <README>;
17 close(README);
18
19 open(FD, '> '.$outfile);
20 html_header *FD;
21
22 print FD '<h1>Patch List</h1>';
23 print FD '<table border="1">';
24 print FD '<tr>';
25 print FD '<th>Patch</th>';
26 print FD '<th>Header</th>';
27 print FD '</tr>';
28
29 foreach $file (sort @files) {
30 $path = $kerneldir.$file;
31 print FD '<tr>';
32 print FD '<td valign="top"><b>'.substr($file, 0, -6).'</b><br />'.html_urlify(readme_get_from($file, @readme)).'<br />'.html_escape(readme_get_description($file, @readme)).'</td>';
33 print FD '<td>'.nl2br(html_escape(get_patch_header($path))).'</td>';
34 print FD '</tr>';
35 }
36
37 print FD '</table>';
38 html_footer *FD;
39 close(FD);

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.20