#!/usr/bin/perl -w
use strict;

die "Must be executed in the 'debian' subdir" unless -d 'upstream';

`rm -f upstream/phpbb3_l10n-*.info`;

my @files;

open DOWNLOADS, "wget -q -O- http://www.phpbb.com/languages|";
while (<DOWNLOADS>) {
	m,www\.phpbb\.com/files/language_packs_30x/((?:lang|subsilver2|prosilver)_[^"]+\.tar\.gz),
		or next;
	push @files, $1;
}
close DOWNLOADS;

for (@files) {
	/([^_]+)_(.*)\.tar\.gz/;
# 	my $prefix = $1 eq "lang" ? "" : "phpbb3_l1On-";
	open INFO, "> upstream/phpbb3_l10n-$1-$2.info";
	my $target = $_;
	$target =~ s,_,/,;
# 	print INFO "Filename=$target\n";
# 	# Hack due to upstream bug
# 	s/.tar.gz/.tgz/ if /lang_esperanto.tar.gz/;
	my $url = "http://www.phpbb.com/files/language_packs_30x/$_";
	if ($url =~ m,[^a-z320/_.:],i) {
		die "Invalid character in language URL: $url\n";
	}
	print INFO "Url=$url\n";
	print INFO "Md5=".`wget -q -N -O- $url | md5sum | sed 's/ .*//'`;
	print INFO "Copyright=GPL-2\n";
	print INFO "Include=yes\n";
	close INFO;
}


