#!/usr/bin/perl
use CGI;
my $cgi = CGI->new();
my $template =  $cgi->param("template2"); 
my $course_id = $cgi->param("listing.services");
my $course_id2 = $cgi->param("listing.benefit_ID");
my $course_id3 = $cgi->param("tasks.tasks_title");
my $host = $ENV{HTTP_HOST};   

if ($host eq 'www.eclasses.org' || $host eq 'eclasses.org'){
    if ($template eq 'listing/list_course.htm'){
        print $cgi->redirect("http://$host/allopencourses/");
    }elsif($template eq 'listing/list_courses_main.htm'){
        print $cgi->redirect("http://$host/coursecatalog/"); 
    }elsif($template eq 'listing/course_main_info.htm' || $template eq 'listing/list_session.htm'){
        print $cgi->redirect("http://$host/$course_id/"); 
    }elsif($template eq 'listing/list_course_open.htm'){
        print $cgi->redirect("http://$host/$course_id2/"); 
    }elsif($template eq 'listing/testimonialsnew.htm'){
        print $cgi->redirect("http://$host/$course_id3/#testimonials"); 
    }else{
        print $cgi->redirect("http://$host/");
    }
}elsif ($host eq 'iwa-hwg.eclasses.org'){
    if ($template eq 'cl/IWA-HWG/list_course.htm'){
        print $cgi->redirect("http://$host/listallopencourses/");
    }elsif($template eq 'cl/IWA-HWG/list_courses_main.htm'){
        print $cgi->redirect("http://$host/listcoursecatalog/"); 
    }elsif($template eq 'cl/IWA-HWG/course_main_info.htm' || $template eq 'listing/list_session.htm'){
        print $cgi->redirect("http://$host/course$course_id/"); 
    }elsif($template eq 'cl/IWA-HWG/list_course_open.htm'){
        print $cgi->redirect("http://$host/course$course_id2/"); 
    }elsif($template eq 'cl/IWA-HWG/testimonialsnew.htm'){
        print $cgi->redirect("http://$host/course$course_id3/#testimonials"); 
    }else{
        print $cgi->redirect("http://$host/");
    }

}elsif ($host eq 'witi.eclasses.org'){
    if ($template eq 'cl/WITI/list_course.htm'){
        print $cgi->redirect("http://$host/listallopencourses/");
    }elsif($template eq 'cl/WITI/list_courses_main.htm'){
        print $cgi->redirect("http://$host/listcoursecatalog/"); 
    }elsif($template eq 'cl/WITI/course_main_info.htm' || $template eq 'listing/list_session.htm'){
        print $cgi->redirect("http://$host/course$course_id/"); 
    }elsif($template eq 'cl/WITI/list_course_open.htm'){
        print $cgi->redirect("http://$host/course$course_id2/"); 
    }elsif($template eq 'cl/WITI/testimonialsnew.htm'){
        print $cgi->redirect("http://$host/course$course_id3/#testimonials"); 
    }else{
        print $cgi->redirect("http://$host/");
    }

}else{
    print $cgi->redirect("http://$host/"); 
}