#!/usr/bin/perl -w use strict; # Copyright (C) 2005, Stefano Zacchiroli # # Created: Sat, 16 Apr 2005 12:43:04 +0200 zack # Last-Modified: $Id$ # # 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 # XXX this script is getting uglier and uglier ... please, rewrite it! :-/ my $usage = "Usage:\n" . " debian/vim-scripts.pl { doc | update | test } [ name ... ]\n" . " debian/vim-scripts.pl copyright > debian/copyright\n"; my $action = shift or die $usage; my $status = "debian/vim-scripts.status"; 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 = ) { next if $script_version and $script_date; chomp $line; if (not $in_table and $line =~ /([^<]+)<\/a><\/td>/) { $in_table = 1; $download_url = "https://www.vim.org/scripts/$1"; $script_name = $2; } elsif ($in_table and $line =~ /\s*([^<]+)\s*<\/b><\/td>/) { $script_version = $1; } elsif ($in_table and $line =~ /\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() { my $date=`date -R`; open INDEX, "> html/index.html"; print INDEX < vim-scripts - scripts web pages index

vim-scripts - scripts web pages index:

Below you can find a list pointing to the web pages of the addons shipped in the vim-scripts package, as they appearead on the Vim Website when the package has been built (for the actual date see the bottom of this page).

    EOH open FIND, "find html/ -type f -name '*.html' -printf '\%f\\n' |"; my @fnames = ; close FIND; foreach my $fname (sort @fnames) { chomp $fname; next if $fname =~ "index.html"; print INDEX "
  • $fname
    • \n"; } print INDEX <

    Page generated on $date.

    EOT close INDEX; } open STATUS, "< $status" or die "Can't open $status"; my ($addon, $script_url, $author, $email, $license, $version); my $skip = 1; $addon = ''; while (my $line = ) { # assumption: each plugin "block" of lines starts with the "addon:" # field chomp $line; if ($line =~ /^--\s*$/) { $skip = not $skip; } print $line, "\n" if $skip and $action eq "copyright"; next if $skip; if ($line =~ /^addon:\s*(.*)/) { $addon = $1; } elsif ($line =~ /^script_url:\s*(.*)/) { $script_url = $1; } elsif ($line =~ /^author:\s*(.*)/) { $author = $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$addon\E$/, @scripts) { if ($action eq "test") { print $addon, "\n"; } elsif ($action eq "doc" and $script_url) { system 'wget', '-nv', '-O', "html/$addon.html", $script_url; my @cleanup; push(@cleanup, '-e', '/ip used for rating/d'); push(@cleanup, '-e', '/sflogo\.php/d'); push(@cleanup, '-e', '/webconceptgroup\.net/d'); push(@cleanup, '-e', '/
    url: $script_url license: $license EOP } } } rebuild_index() if ($action eq "doc"); } close STATUS;