package ringredirect;
use strict;

my %redir = (

  demo => {
    url => 'http://www.ringlink.org/cgi-bin/demo',
    ext => '.pl',
  },

  otherring => {
    url => 'http://www.otherdomain.com/cgi-bin/ringlink',
    ext => '.pl',
  },

);

sub main {
  my $id = $rlmain::data{ringid};
  return unless ($id and $redir{$id});
  my ($file) = $rlmain::action =~ /^(\w+)/;
  print 'Location: ', $redir{$id}{url}, "/$file", $redir{$id}{ext},
        ( $ENV{QUERY_STRING} ? "?$ENV{QUERY_STRING}" : '' ), "\n\n";
  rlmain::exit();
}

1;