#!/usr/bin/perl


#ebook起動用スクリプト
#JAN-09-2004 AlphaBridge
#

@strQuery = split(/=/, $ENV{'QUERY_STRING'});

$id = @strQuery[1];
$bn = substr($id, 0, 1);
$pn = int(substr($id, 1, 4));

print "Location: ../ebook/book".$bn."/index.html?p=".$pn."\n\n";