9fcd703e60
This script is run in the root directory of the dockapps repo to generate the file used by the Window Maker website to store all of the information in the dockapps section. Note that this file will then be submitted to the whome repo.
113 lines
3.5 KiB
Perl
Executable file
113 lines
3.5 KiB
Perl
Executable file
#!/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;
|
|
|
|
|
|
|
|
|