[perl subs=1]
	our ($mirrors, $avoids, $weights, $downloaders) =
		initialize_mirror_data();
	return;
[/perl]

[if cgi selector]

	<b>
	Here's the Nekoware package list.<br> Decide on general install 
	parameters, click the checkboxes for the packages
	you want, and push the magic button.
	</b>

	<form action='[process]' method=post>
	[form-session-id]

	<p>
	<table width=100% rows=1 cols=2 border=0>

	<tr><td valign=top>
	Mirrors <b>not</b> to use:<br>
	[calc]
		my @ret;
		for (keys %$mirrors) {
			push @ret, "<input type=checkbox name=mirr_$_ " .
				$$avoids{$_} . "> $_ ";
		}
		join("<br>", @ret);
	[/calc]<br><br>

	Downloader to use:<br>
	<input type=radio name=downloader value=wget CHECKED> Wget
	[comment]
	<input type=radio name=downloader value=inst> Inst
	[/comment]

	</td>

	<td valign=top>
	Don't generate inst line? (implies no cache)<br>
	<input type=checkbox name=noinst> No, please don't<br><br>

	Force regeneration, avoid cache?<br>
	<input type=checkbox name=nocache> Yes. Believe me, I know what I'm doing!
	<br><br>

	The output wanted is ...<br>
	<input type=radio name=output value=html CHECKED> HTML, in this browser window<br>
	<input type=radio name=output value=sh> Shell script, MIME type and all<br>
	[comment]
	<input type=radio name=output value=webinst> Direct from-browser install (not yet)<br>
	[/comment]
	<br><br>

	</td></tr>
	</table>

	<hr>
	<div align=center>
	[button text="__BUTTONTEXT__"]
	mv_nextpage=@@MV_PAGE@@
	nekoresults=1
	[/button]
	</div>
	<hr>

	[table-organize cols=4 table='width=90%']

	[query ml=5000 more=0
	sql="select filename,pkgname from packages order by pkgname" type=list]

		[list]
		<td>
		<input type=checkbox name="pkg_[sql-param pkgname]"> 
		[perl] return "<font color=gray>" if
			"[sql-param pkgname]" =~ /^lib/ [/perl]
		[sql-param pkgname]
		[perl] return "</font>" if
			"[sql-param pkgname]" =~ /^lib/ [/perl]
		</td>
		[/list]

		[no-match]
		No packages match the criteria.
		[/no-match]

	[/query]

	[/table-organize]

	<hr>
	<div align=center>
	[button text="__BUTTONTEXT__"]
	mv_nextpage=@@MV_PAGE@@
	nekoresults=1
	[/button]
	</div>
	<hr>

	</form>

[/if]



[if cgi nekoresults]
	<!--
		Well, well. It comes to that sooner or later.
		It's all fine up to this point, now it gets messy and I lost the
		interest in rewriting it. For the moment at least.
	-->
	[tag flag write]cache[/tag]

	<b>Wanna see the show, ay?</b> <img src=/img/plesiplesi.gif>
	<hr>
	<p>

	[perl tables="packages cache" interpolate=0 subs=1]
	my $ret;
	my (@files, @paks);

	for my $pak ( keys %$CGI) {
		next unless $pak =~ s/^pkg_//;
		my $file = $Tag->data({
			table      => 'packages',
			column     => 'filename',
			foreign    => 'pkgname',
			key        => $pak,
		});
		next unless $file;

		push @paks,  $pak;
		push @files, $file;
	}

	@files = grep {!/^\s*$/} @files;
	@paks  = grep {!/^\s*$/} @paks;
	@paks  = sort @paks;
	@files = sort @files;

	my $watermark = $#files; # Index of last really requested package

	# Bail out on obvious
	unless ( scalar @paks or scalar @files ) {
		return 'Playing smart, eh? Go back and select some packages first.'
	}
	if ( @files > 100 ) {
		return 'Requesting A HUNDRED packages in one go is MAXIMUM, sorry.' 
	}

	$ret .= "#!/bin/sh\n\n";
	$ret .= "# Auto-generated script for SGI IRIX NEKOWARE\n" .
		"# package and dependencies download and installation.\n\n";
	$ret .= "# Davor Ocelic, docelic\@mail.inet.hr, http://irix.plsavez.hr\n"
		. "# Nekochan, http://www.nekochan.net\n\n";
	$ret .= '# Requested packages: ' . join(' ', @paks) . "\n";


	# Cache deal
	my $file = join("_", @paks[0..$watermark]) . '.sh';
	-r $file and $cached = readfile($file);

	my $work_done;
	if ($cached ) {
		unless ( $CGI->{nocache} ) {
			$ret = $cached;
			$work_done++;
		}
	}

	unless ( $work_done ) {
		# Now, now.
		for (my $i=0; $i < @files; $i++) {
			my $file = $files[$i];
			my $deps = $Tag->data('packages','dependencies',$file);

			if ( $deps and $deps ne "no dependencies" ) {
				my @deps = split /,+/, $deps;

				for my $dep (@deps) {
					my $filename = $Tag->data({
						table          => 'packages',
						field          => 'filename',
						foreign        => 'pkgname',
						key            => $dep,
					});

					next unless $file and $deps;

					push(@files, $filename)
						unless grep {/^$filename$/} @files;
					push(@paks, $dep)
						unless grep {/^$dep$/} @paks;
				}
			}

			# Drop in a safety
			if ( $i > 2000 ) {
				$ret .= "LOOP MAX 1! Report to docelic@mail.inet.hr\n";
				last
			}
		}

		@files = grep {!/^\s*$/} @files;
		@paks  = grep {!/^\s*$/} @paks;

		my @mirrors = ( keys %$mirrors );

		my $lc;
		for ( my $i =0; $i<@files; $i++) {
			$_ = $files[$i];

			if ($i == $watermark +1 ) {
				$ret .= "\n# Dependency packages:\n";
			}

			my ( $loc, %seen );

			# Detect if user ruled out all mirrors
			my @eliminated = grep {/mirr_/} keys %$CGI;
			if ( scalar @eliminated == scalar keys %$mirrors ) {
				return "Want me to work with no mirrors 1? That's a no-go.";
			}

			my $lc2;
			do {
				$loc = $mirrors[int rand($#mirrors+1)];
			} while (
				( !$loc or $CGI->{"mirr_" . $loc} ) and
				$lc2++ < 2000
			);
			if ( $lc2 >= 2000 ) {
				$ret .= "LOOP MAX 2! Report to docelic@mail.inet.hr\n";
				last
			}

			$loc = $$mirrors{$loc};

			# Drop in a safety
			if ( $lc++ > 2000 ) {
				$ret .= "LOOP MAX 3! Report to docelic@mail.inet.hr\n";
				last
			}

			my $downloader = $$downloaders{$CGI->{downloader}};
			unless ( $downloader ) {
				return "Invalid downloader 1 hey?! Playing smart or what.";
			}
			
			$ret .= "$downloader '" . $_ .  "' \\\n\t'$loc" .  $_ . "'\n";
		}


		if ( ! $CGI->{noinst} ) {
			$ret .= "\n# Run inst:\n/usr/sbin/inst \\\n" .
				join(" \\\n", (map {"\t-f $_"} @files)) . "\n\n";

		}  else {
			$ret .= "\n# Inst line not generated by request.\n\n";
		}


		for ( @paks[0..$watermark] ) {
			$Db{cache}->set_field($_, 'times',
			  ($Tag->data('cache', 'times', $_)||0) + 1);
		}

		$Tag->tag(qw/export cache/);
	}

	# Aaand, here we go!
	my $wrote = write_script_file (
		join("_", @paks[0..$watermark]) . '.sh',
		$ret
	);
	my $url = "http://irix.plsavez.hr/scripts/" . $wrote;

	if ( $CGI->{output} eq 'html' ) {
		return "<pre>" . $ret . "</pre>";

	} elsif ( $CGI->{output} eq 'sh' ) {

		return "Your selection has been generated and can be dowloaded:<br>\n"
			. "<a href='$url'>$url</a><p>"
			. "It will stay there for a while (or at least until the mirror "
			. "contents don't change), so feel free to re-download it at will.";

	} else {
		return "Format not implemented.";
	}
	[/perl]
[/if]

</p>
<p>