#!/usr/bin/perl

use strict;
use warnings;

use CGI;

my $q = CGI->new;

my @Apps = qw(
	https://f-droid.org/FDroid.apk
	https://f-droid.org/repo/de.audioattack.yacy31c3search_7.apk
	https://f-droid.org/repo/org.navitproject.navit_6095.apk
	https://f-droid.org/repo/net.osmand.plus_212.apk
);

my @Urls = qw(
	https://www.debian.org/
	http://debian.org.il/
);

my @Url_2 = qw(
	http://debconf15.debconf.org/
	http://codesearch.debian.net/
	http://packages.debian.org/
);

my $url;
my $rand = int(rand(20));

sub pick_random {
	my $rand = int(rand(scalar @_));
	return $_[$rand];
}

if ($rand == 0) {
	$url = pick_random @Apps;
} elsif ($rand == 1) {
	$url = pick_random @Url_2;
} else {
	$url = pick_random @Urls;
}

#print $q->header(-X_Hint=>'To get the source remove TLS');
print  $q->redirect($url);