+sub redirect_list_index {
+ my ($ctx, $cgi) = @_;
+ do_redirect($cgi->self_url . "/");
+}
+
+sub redirect_mid {
+ my ($ctx, $cgi) = @_;
+ my $url = $cgi->self_url;
+ $url =~ s!/f/!/m/!;
+ do_redirect($url . '.html');
+}
+
+sub do_redirect {
+ my ($url) = @_;
+ [ '301 Moved Permanently',
+ { Location => $url, 'Content-Type' => 'text/plain' },
+ "Redirecting to $url\n"
+ ]
+}
+