#!/usr/bin/perl
#
use strict;
use warnings;

use CGI;

my $q = new CGI;

my $pdbid = $q->param('pdbCode');

my $url = "http://swift.cmbi.ru.nl/pdb_redo/";

if (-e "/home/whatif/httpd/htdocs/pdb_redo/$pdbid/index.html") {
    $url .= "$pdbid/index.html";
}
else {
    $url .= "nothere.html";
}

print $q->redirect($url);
