#!/usr/bin/perl -w

use strict;

my $number_of_friends = 1000;
my $hosts_per_friend = 10;

sub make_random_chars($) {
	my $string = "";
	for (my $i = 0; $i < $_[0]; $i++) {
		$string .= (join '', ('-', 0..9, 'A'..'Z', 'a'..'z')[rand 63]);
	}
	return $string;
}

print("# version = 2.3-pre2 (20020218)\n");
print("# written = 1014243407\n");

for (my $counter = 0; $counter < $number_of_friends; $counter++) {
	my @hosts = ();

	print("handle=");
	print("B" . make_random_chars(rand 8) . $counter);

	print("%hosts=");
	for (my $c = 0; $c < $hosts_per_friend; $c++) {
		my $string = make_random_chars(rand 9) . '!' . make_random_chars(rand 9) . '@' . make_random_chars(rand 12) . '.' . make_random_chars(12) . '.' . make_random_chars(rand 12) . '.' . make_random_chars(2);
		push(@hosts, $string);
	}
	print(join(' ', @hosts));

	print("%globflags=");
	print(make_random_chars(rand 5));

	print("%chanflags=");
	print("#" . make_random_chars((rand 8)+2) . "," . make_random_chars(2) . ",12 ");
	print("#" . make_random_chars((rand 8)+3) . "," . make_random_chars(2) . ",$counter ");
	print("#" . make_random_chars((rand 8)+4) . "," . make_random_chars(2) . ",12 ");
	print("#" . make_random_chars((rand 8)+5) . "," . make_random_chars(2) . ",$counter");

	print("%password=%comment=%");
	print("\n");
}

print("\n");