#!/usr/local/bin/perl
# 110403 Rami, set it to 1U 012
# v12.05 081202 Rami, redir to intraforum.cgi if no forum and redir_flag="true"
# 090702 Edi, Changed $in{\"alias\"} to $alias. Added $query to get params. Also added a redirect for highprio/under construction forums.
# 270102 add forumsbeta
# 080701 add @movedsmathosting
# 310501 now use require "./setups.pl"; for @move...
# 230401 the default is to  www3.diburim.co.il RAQ4 forum
# 280301 add move to www4.diburim.co.il RAQ4 forumdb
# 230301 add if ($setup_id > 5000)
# 190301 add move to www3.diburim.co.il RAQ4
# v8.74-1  051200 in no_forum_msg.pl add redir to forumsdb allso
# v8.55	280600 add moved DB
# v8.55	280600 change in no_forum_msg add alias redir
# V7.64 251199  small HTML fix in no_forum_msg.pl
###########################################################
#
# Purpose:
#   Print out the HTML for the ERROR Screen
# 
############################################################


require "setups.pl";


use CGI;
$query = new CGI;
$forum = $query->param('forum');
$alias = $query->param('alias');
$redir_flag = $query->param('redir_flag');
$read = $query->param('read');

if ($forum =~ "/") {
   ($base_forum,$sub_dir) = split ("/",$forum);
} else {
   $base_forum = $forum;
   $sub_dir = "";
}
$setup_subdir = "";
if ($base_forum =~ "-") {
	($setup_subdir,$setup_id) = split ("-",$base_forum);
    $setup_subdir .= "/";
} else {
   $setup_id = $base_forum;
}


#####################
#$count = 0;
#while ($count <= @under_con) {
#        if ($under_con[$count] eq $setup_id)
#        {
#print "Content-type: text/html\n\n";
#print <<ENDOFHTML;		
#<html>
#<head>
#    <title>דיבורים</title>
#	<meta charset=visual>
#</head>
#<body>
#<table height=100% width=100%>
#    <tr>
#        <td valign=middle align=center><font size=+1><b>הקוזחת תוליעפ תובקעב הליעפ הניא תכרעמה עגרכ<br>החילסה םכמע</b></font></td>
#    </tr>
#</table>
#</body>
#</html>
#ENDOFHTML
#1;		              
#                exit;
#    } # of if
#          $count++;
#} # of while
#####################
$count = 0;
while ($count <= @highprioprotect5004) {
        if ($highprioprotect5004[$count] eq $setup_id)
        {
                print "Location: http://www4.diburim.co.il/cgi-bin/forumsdb_highprio_p5004/intraforum_db.cgi?forum=5004?forum=$forum&read=$read&alias=$alias&redir_flag=$redir_flag\n\n";
                exit;
    } # of if
          $count++;
} # of while
#####################
$count = 0;
while ($count <= @highprioprotect5005) {
        if ($highprioprotect5005[$count] eq $setup_id)
        {
                print "Location: http://www4.diburim.co.il/cgi-bin/forumsdb_highprio_p5005/intraforum_db.cgi?forum=5005?forum=$forum&read=$read&alias=$alias&redir_flag=$redir_flag\n\n";
                exit;
    } # of if
          $count++;
} # of while
#####################
$count = 0;
while ($count <= @highprio) {
        if ($highprio[$count] eq $setup_id)
        {
                print "Location: http://www4.diburim.co.il/cgi-bin/forumsdb_highprio/intraforum.cgi?forum=$forum&read=$read&alias=$alias&redir_flag=$redir_flag\n\n";
                exit;
    } # of if
          $count++;
} # of while
#####################
$count = 0;
while ($count <= @bckwww4) {
        if ($bckwww4[$count] eq $setup_id)
        {
                print "Location: http://bckwww4.diburim.co.il/cgi-bin/forumsbeta/intraforum.cgi?forum=$forum&read=$read&alias=$alias&redir_flag=$redir_flag\n\n";
                exit;
    } # of if
          $count++;
} # of while

#####################
$count = 0;
while ($count <= @toask) {
        if ($toask[$count] eq $setup_id)
        {
                print "Location: http://www.2ask.co.il/index.php\n\n";
                exit;
    } # of if
          $count++;
} # of while
#####################
$count = 0;
while ($count <= @swap) {
        if ($swap[$count] eq $setup_id)
        {
                print "Location: http://www.swap.co.il/index.php\n\n";
                exit;
    } # of if
          $count++;
} # of while
#####################
$count = 0;
while ($count <= @ask4pro) {
        if ($ask4pro[$count] eq $setup_id)
        {
                print "Location: http://www.ask4pro.co.il/index.php\n\n";
                exit;
    } # of if
          $count++;
} # of while
#####################
$count = 0;
while ($count <= @mwskins) {
        if ($mwskins[$count] eq $setup_id)
        {
                print "Location: http://www.mediawikiskins.com/index.php\n\n";
                exit;
    } # of if
          $count++;
} # of while


#####################
if ($forum > 100000)
        {
                print "Location: http://www3.diburim.co.il/?forum=$forum\n\n";
                exit;
    } # of if
          
#####################

print "Location: http://www4.diburim.co.il/cgi-bin/forumsdb/intraforum_db.cgi?forum=$forum&read=$read&alias=$alias&redir_flag=$redir_flag\n\n";



1;