# Casy // content assembly // API module # HTTP forwarder # Copyright Steffen Beyer (sbeyer@reactor.de) # $Id: index.pm,v 1.1.1.1 2002/11/27 18:16:08 steffen Exp $ package Casy::API::Forward; $Casy::API::module = "Casy::API::Forward"; use base qw(Casy::API); use strict; use warnings; sub new { my $class = shift; my $self = $class->SUPER::new(@_); print "Location: http://old.rimpler.de/intro/\n\n"; exit 0; } 1;