+ return send_file( 'index', @_ );
+}
+sub do_allpackages {
+ return send_file( 'allpackages', @_ );
+}
+
+# no real need for more flexibility here, I think...
+my %mime_types = (
+ txt => 'text/plain',
+ 'txt.gz' => 'text/plain',
+ html => 'text/html',
+ );
+my %encoding = (
+ 'txt.gz' => 'x-gzip',
+ );
+sub send_file {
+ my ($file, $params, $opts, $html_header) = @_;