dockapps/update-dockapps.pl

113 lines
3.5 KiB
Perl
Raw Normal View History

#!/usr/bin/perl
# Update http://windowmaker.org/dockapps from git
#
# Copyright 2014 Window Maker Developers Team
# <wmaker-dev@lists.windowmaker.org>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# 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, see <http://www.gnu.org/licenses/>.
#
# DESCRIPTION
#
# After every commit to the dockapps git repository, run this script to
# update dockapps/dockapps.db, the plain text config file that stores all
# of the information for the dockapps section of windowmaker.org.
#
# The script uses git to determine the version numbers and tarball download
# urls. Everything else is pulled in from dockapps.db.in, which is
# manually updated.
#
# The format of each dockapp entry in dockapps.db.in is:
#
# [dockapp name]
# image = (file name of image; in double quotes and comma-separated if more
# than one image)
# description = (description, possibly taken from archive.org copy of
# dockapps.windowmaker.org; in double quotes)
# url = (use archive.org copy if original homepage no longer exists)
# dockapps = (currently unused; id number from dockapps.windowmaker.org)
# category = (category from dockapps.windowmaker.org)
#
# After generating a new dockapps.db, submit a patch for the whome git repo
# to wmaker-dev@lists.windowmaker.org.
use warnings;
use strict;
use Git::Repository;
use POSIX;
open DB, "dockapps.db.in" or die $!;
my $db = do { local $/; <DB> };
close DB;
my $r = Git::Repository->new();
my @tags = $r->run("tag");
my %dockapps;
foreach my $tag (@tags) {
$tag =~ /([\w\-+.]+)-([\w.]+)/;
my $dockapp = $1;
my $version = $2;
my $ls = $r->run("ls-tree", $tag, $dockapp);
#for older tags from before directory renaming
if (!$ls) {
$ls = $r->run("ls-tree", $tag, $tag);
}
#for wmfemon_1
if (!$ls) {
$ls = $r->run("ls-tree", $tag, "$dockapp" . "_$version");
}
my $sha1 = (split(/\s/, $ls))[2];
$dockapps{$dockapp}{$version} = $sha1;
}
foreach my $dockapp (keys %dockapps) {
my $latest_version = (sort keys $dockapps{$dockapp})[-1];
if ($r->run("diff", "$dockapp-$latest_version", "HEAD", $dockapp)) {
my $commit = $r->run("log", "-1",
"--pretty=format:%H", $dockapp);
my $date = strftime("%Y%m%d", localtime($r->run("log", "-1",
"--pretty=format:%ct", $dockapp)));
#throw out dockapps whose last commit was stripping version names from dirs
unless ($commit eq "eea379d83350ced6166099ebc8f41ff4e3fa1f42") {
my $ls = $r->run("ls-tree", $commit, $dockapp);
if (!$ls) {
$ls = $r->run("ls-tree", $commit,
"$dockapp-$latest_version");
}
my $sha1 = (split(/\s/, $ls))[2];
$dockapps{$dockapp}{"$latest_version+$date"} = $sha1;
}
}
}
foreach my $dockapp (keys %dockapps) {
my $versions = "";
foreach my $version (reverse sort keys $dockapps{$dockapp}) {
$versions .= "version-$version = " .
$dockapps{$dockapp}{$version} . "\n";
}
my $search = quotemeta "[$dockapp]\n";
$db =~ s/$search/[$dockapp]\n$versions/;
}
open DB, ">dockapps.db" or die $!;
print DB $db;
close DB;