1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
#!/usr/bin/perl -w
use strict;
# Copyright (C) 2005, Stefano Zacchiroli <zack@debian.org>
#
# Created: Sat, 16 Apr 2005 12:43:04 +0200 zack
# Last-Modified: Sat, 16 Apr 2005 22:59:01 +0200 zack
#
# This is free software, you can redistribute it and/or modify it under the
# terms of the GNU General Public License version 2 as published by the Free
# Software Foundation.
#
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
# details.
#
# You should have received a copy of the GNU General Public License along with
# this program; if not, write to the Free Software Foundation, Inc., 59 Temple
# Place, Suite 330, Boston, MA 02111-1307 USA
my $usage =
"Usage: debian/vim-scripts.pl { doc | update | test } [ name ... ]\n";
my $action = shift or die $usage;
my $status = "debian/copyright";
my @scripts = ();
push @scripts, @ARGV;
sub parse_script_page($) {
my ($url) = @_;
my ($in_table, $script_name, $script_version, $script_date, $download_url);
open HTML, "wget -nv -O - '$url' |" or die "Can't exec wget for pipe-reading";
while (my $line = <HTML>) {
next if $script_version and $script_date;
chomp $line;
if (not $in_table and $line =~ /<td class="[^"]*" valign="top" nowrap><a href="(download_script\.php\?src_id=\d+)">([^<]+)<\/a><\/td>/) {
$in_table = 1;
$download_url = "http://www.vim.org/scripts/$1";
$script_name = $2;
} elsif ($in_table and $line =~ /<td class="[^"]*" valign="top" nowrap><b>\s*([^<]+)\s*<\/b><\/td>/) {
$script_version = $1;
} elsif ($in_table and $line =~ /<td class="[^"]*" valign="top" nowrap><i>\s*([^<]+)\s*<\/i><\/td>/) {
$script_date = $1;
}
}
close HTML;
# print "$script_name\t$script_version\t$script_date\n";
return [$script_version, $script_date, $download_url];
}
sub rebuild_index() {
open INDEX, "> html/index.html";
print INDEX <<EOH;
<html>
<head>
<title>vim-scripts - scripts web pages index</title>
</head>
<body>
<p>
<h2>vim-scripts - scripts web pages index:</h2>
</p>
<ul>
EOH
open FIND, "find html/ -type f -name '*.html' -printf '\%f\\n' |";
my @fnames = <FIND>;
close FIND;
foreach my $fname (sort @fnames) {
chomp $fname;
next if $fname =~ "index.html";
my $anchor = $fname;
$anchor =~ s/_/\//;
print INDEX " <li><a href=\"$fname\">$anchor</a></li>\n";
}
print INDEX <<EOT;
</ul>
</body>
</html>
EOT
close INDEX;
}
open STATUS, "< $status" or die "Can't open debian/copyright";
my ($script_name, $script_url, $author, $author_url, $email, $license,
$version);
my $skip = 1;
while (my $line = <STATUS>) {
chomp $line;
$skip = not $skip if ($line =~ /^--\s*$/);
next if $skip;
if ($line =~ /^script_name:\s*(.*)/) { $script_name = $1; }
elsif ($line =~ /^script_url:\s*(.*)/) { $script_url = $1; }
elsif ($line =~ /^author:\s*(.*)/) { $author = $1; }
elsif ($line =~ /^author_url:\s*(.*)/) { $author_url = $1; }
elsif ($line =~ /^email:\s*(.*)/) { $email = $1; }
elsif ($line =~ /^license:\s*(.*)/) { $license = $1; }
elsif ($line =~ /^version:\s*(.*)/) {
$version = $1;
if (not @scripts or grep /^\Q$script_name\E$/, @scripts) {
if ($action eq "test") {
print $script_name, "\n";
} elsif ($action eq "doc" and $script_url) {
my $fname = $script_name;
$fname =~ s/\//_/g;
system "wget -nv -O html/$fname.html '$script_url'";
} elsif ($action eq "update" and $script_url) {
my ($upstream_version, $upstream_date, $download_url) =
@{parse_script_page($script_url)};
if (not ($upstream_version eq $version)) {
print <<EOMSG;
$script_name may be out of date:
debian version: $version
upstream version: $upstream_version
release date: $upstream_date
script url: $script_url
download url: $download_url
EOMSG
}
}
}
}
rebuild_index() if ($action eq "doc");
}
close STATUS;
|
