#!/usr/bin/perl5 -w # 漢字コード EUC # use SIC; use SICX::Commander::Unit; use Cycom::Util::Server; exit if &checkBusy(); # my $comm = SICX::Commander::Unit->new(); my $cgi = $comm->{cgi}; my $siteid = $cgi->param('siteid'); if ( $siteid =~ /^(nishitokyo)$/ ){ print $cgi->redirect('http://nishitokyo.shop-info.com/renewal.html'); exit(0); } if ( $siteid =~ /(h-kurume|koganei)/ ){ &print_error(); exit; } #$comm->{sess}->set_config( # filedir => '/home/SIC/tmp/sess', # expires => '+1y', # path => '/', # domain => 'data.shop-info.com' #); unless ($comm->start('SICX::Proc::Unit::board')) { $comm->error(); } # $comm->finish(); # exit(0); sub print_error { # my $comm = shift; # my $msg = shift; my $areaid = $cgi->param('areaid'); my $unitid = $cgi->param('unitid'); my %siteid2url = ( 'h-kurume'=>'http://h-kurume.shop-info.com/cgi/units/board.cgi', 'koganei'=>'http://koganei.shop-info.com/cgi/units/board.cgi', 'xxx'=>'1' ); my $url = $siteid2url{$siteid} || ''; print "Content-type: text/html", "\n\n"; print <

このページは移動しました。

しておすすみください。

このページをブックマーク(お気に入り)に登録されている方は、
登録先の変更をお願いいたします。 EOF return 1; }