in reply to Re: convert perl to php quickly
in thread convert perl to php quickly



<? #!/usr/bin/perl -w
use CGI;
use DBI;
use Geo::IP;
use MIME::Lite;
use Net::SMTP;
use Crypt::RC4;
use MIME::Base64;
use CGI::Simple;
use URI::Escape;
use Time::Piece;


my $q = new CGI;
use lib "/home3/indiamart/modules/globalfiles";
use Globalinit;

my $url;
my $host=$ENV{'HTTP_HOST'};
my $flag=0;
my $TBL_LEAD_ID = $q->param('TBL_LEAD_ID') || '';
my $name = $q->param('TBL_LEAD_NAME') || '';
$name =~ s/'/\\'/g;
my $item_theme2 ='';
my $destination2='';
my $interested_country = $q->param('interested_country') || '';
my $lead_type_id = $q->param('form_typeid') || '';
if($interested_country eq 'India')
{
    $lead_type_id1='1';
}
else
{
    $lead_type_id1=$lead_type_id;
}

    
my $email = $q->param('TBL_LEAD_EMAIL') || '';

my $key ='hello';
my $output = encode_base64( RC4($key, $email) );
my $decoded = decode_base64($output);
my $decrypted = RC4($key, $decoded);
my $a =uri_escape($output);
# my $encodeString = ~s/([^A-Za-z0-9_\-.]/uc
# sprintf("%%%02x",ord($output))/eg;

my @country=split("_",$q->param('FK_TBL_COUNTRY'));
my $country1 = $country[0] || '';
my $country2 = $country[2] || '';    

my $city = $q->param('TBL_LEAD_CITY') || '';
my $phone = $q->param('TBL_LEAD_PHONE') || '';
my $af_id= $q->param('form_afid') || '';

my @people_adults1=split("_",$q->param('FK_TBL_PEOPLE_ADULT_ID'));
my $people_adults2 = $people_adults1[0] || '';
my $people_adults = $people_adults1[1] || '';

my @people_kids1=split("_",$q->param('FK_TBL_PEOPLE_KID_ID'));
my $people_kids2 = $people_kids1[0] || '';
my $people_kids = $people_kids1[1] || '';

my $arrival_date = $q->param('TBL_LEAD_ARRIVAL_DATE') || '';
my $arrival_month = $q->param('TBL_LEAD_ARRIVAL_MONTH') || '';
my $arrival_year = $q->param('TBL_LEAD_ARRIVAL_YEAR') || '';

my @duration_id1=split("_",$q->param('FK_TBL_DURATION_ID'));
my $duration_id2 = $duration_id1[0] || '';
my $duration_id = $duration_id1[1] || '';

my @tbl_budget_id1=split("_",$q->param('FK_TBL_BUDGET'));
my $tbl_budget_id2 = $tbl_budget_id1[0] || '';
my $tbl_budget_id = $tbl_budget_id1[1] || '';

my @tbl_visittype1=split("_",$q->param('tbl_visittype'));
my $tbl_visittype2 = $tbl_visittype1[2] || '';
my $visittype= $q->param('tbl_visittype') || '';

my @theme = $q->param('tbl_theme[]') ;
foreach my $key(@theme)
        {
            my @item;
            @item=split("_",$key);
            $item_theme2 = "$item_theme2," .$item[2];
            $item_theme2=~s/^\,//g;
        }
        
        
my @destination=$q->param('tbl_dest[]') ;
foreach my $key1(@destination)
        {
            my @destination1;
            @destination1=split("_",$key1);
            $destination2 = "$destination2," .$destination1[2];
            $destination2=~s/^\,//g;
        }

my $description1 = $q->param('TBL_LEAD_DESCRIPTION') || '';

if($interested_country eq 'India' && $lead_type_id eq '5')
{
 $description = "$description1";
 $description =~ s/'/\\'/g;
}
elsif($lead_type_id ne '5')
{
$description = "$description1";
 $description =~ s/'/\\'/g;
}
else
{
 $description = "Interested In : $interested_country, $description1 ";
 $description =~ s/'/\\'/g;
 }

 my $ip = $q->remote_addr() || '';

my $site_name= $q->param('site_name') || '';

my $geoip = Geo::IP->new(GEOIP_STANDARD);
my $ip_country_name = $geoip->country_name_by_addr($ip) || '';
$ip_country_name = "NA" unless($ip_country_name);
    
my $gi = Geo::IP->open_type( GEOIP_CITY_EDITION_REV1 , GEOIP_STANDARD 
+);
my $record = $gi->record_by_addr($ip);
my $ip_city_name= $record->city || '';
$ip_city_name = "NA" unless($ip_city_name);

my ($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear
+, $IsDST) = gmtime(time);
$Year += 1900;
$Month++;
my $t = gmtime;
 

if($Month < '10')
{
    $Month="0$Month";
}
else
{
    $Month="$Month";
}
if($Day < '10')
{
    $Day="0$Day";
}
else
{
    $Day=$Day;
}
if($Hour < '10')
{
    $Hour="0$Hour";
}
else
{
    $Hour=$Hour;
}
if($Second < '10')
{
    $Second="0$Second";
}
else
{
    $Second=$Second;
}
my $date =  $Year.'-'.$Month.'-'.$Day || '';
my $time = $Hour.':'.$Minute.':'.$Second || '';
my $date1="$arrival_date/$arrival_month/$arrival_year";
my $datetime="$date $time";

my $ref= $q->param('referer') || '';
    if($ref =~ /googleads/ig)
    {
        $ref='';
    }
    else
    {
        $ref=$ref;
    }

    my $refferer1 = $ENV{'HTTP_REFERER'} || '';
    my @refferer2;
        @refferer2 = split(/(\?gclid)/,$refferer1);
     my $refferer3 = $refferer2[0] || '';

# create a new MIME Lite based email

if($ip_country_name ne 'India')
{
my $msg = MIME::Lite->new
(
Subject => "Re: Your enquiry on $site_name about your travel plan",
From    => 'Hello Travel <helpdesk@hellotravel.com>',
To      => $email,
Type    => 'text/html',
Data    => "Dear $name,
<BR><BR>

Thank you for using <B>$site_name</B> and opting HELLOTRAVEL.COM netwo
+rk to plan your Travel.<BR><BR>

We have successfully received your enquiry. We request you to please v
+erify your email enquiry by clicking on <A HREF=http://hellotravel-ag
+ents/verify.php?id=$a>http://hellotravel-agents/verify.php?id=$a</A> 
+and help us assign you specialist travel agent to customize and plan 
+on your travel needs.<BR><BR>

HELLO TRAVEL is a platform that allows travelers plan & book tour free
+ of charge.<BR><BR>

For any query or inconvenience please write to us at helpdesk\@hellotr
+avel.com.<BR><BR>

With Regards,<BR>
HELLO TRAVEL Team!"
);

$msg->send();
}
else
{
my $msg = MIME::Lite->new
(
Subject => "Re: Your enquiry on $site_name about your travel plan",
From    => 'Hello Travel <helpdesk@hellotravel.com>',
To      => $email,
Type    => 'text/html',
Data    => "Dear $name,
<BR><BR>

Thank you for using <B>$site_name</B> and opting HELLOTRAVEL.COM netwo
+rk to 
plan your Travel.<BR><BR>

We have successfully received your enquiry and request you to please 
verify, by clicking on <A HREF=http://hellotravel-agents/verify.php?id
+=$a>http://hellotravel-agents/verify.php?id=$a</A>
and help us assign you specialist travel agent to customize and plan o
+n 
your travel needs.<BR><BR>

HELLO TRAVEL is a platform that allows travelers plan tour free of cha
+rge 
with freedom of maximum customization.<BR><BR>

With lots of thanks and to make your experience of using HELLO TRAVEL 
+more 
special, we provide you add-on discount coupon of flat 10% on every 
purchase of exotic gifts for occasions like Birthday, Anniversary, Wed
+ding 
& many more.. Click on <B><A HREF=http://www.indiangiftsportal.com>htt
+p://www.indiangiftsportal.com</A></B> and explore through the 
categories of Gifts for her/him & kids.<BR><BR>

Discount coupon code : <B>IGPHT</B><BR>
Enjoy Shopping on <A HREF=http://www.indiangiftsportal.com>http://www.
+indiangiftsportal.com</A><BR><BR>

For any query or inconvenience please write to us at <a href=helpdesk\
+@hellotravel.com>helpdesk\@hellotravel.com</a>.<BR><BR>

With Regards,<BR>
HELLO TRAVEL Team! "
);

$msg->send();
}


my $to1 = 'mayank@hellotravel.com,pratibha@indiamart.com';
my $from1 = 'error@hellotravel.com';
my $sub1 = 'hellotravel.com Enquiry';
my $message1 = "Name - ".$name."
Email -".$email."
Country - ".$country2."
City - ".$city."
Phone No. - ".$phone."
Arrival Date - ".$date1."
No. of Adult People - ".$people_adults."
No. of Kids - ".$people_kids."
Duration - ".$duration_id."
Budget - ".$tbl_budget_id."
Tour Style - ".$tbl_visittype2."
Activities - ".$item_theme2."
Destinations - ".$destination2."
Description - ".$description."
IP - ".$ip."
IP Country Name - ".$ip_country_name."
IP City Name - ".$ip_city_name."
Site Name - ".$site_name."
Query Date - ".$date."
Query Time - ".$time."
Selfurl - ".$refferer3."
Referer - ".$ref."
Thanks";

Globalinit->SendMail(__FILE__,__LINE__,$to1,$from1,'',$sub1,$message1,
+'');
            
if ($ENV{'MY_COUNTRY'} eq 'INDIA')
{
    $dbh = DBI->connect("DBI:mysql:hellotravel:mysql3.intermesh.net", 
+"igpmysql", "IGp142",{PrintError => 1, RaiseError => 0, AutoCommit =>
+ 1,});
    
}
else
{
    $dbh = DBI->connect("DBI:mysql:hellotravel:web.hellotrade.com", 't
+ravel', 'thell@123',{PrintError => 1, RaiseError => 0, AutoCommit => 
+1,});
    
}
    if(!$dbh)
    {
        if($q->param('submit') && $q->param('submit') ne '')
        {
            my $to2 = 'mayank@hellotravel.com,pratibha@indiamart.com';
            my $from2 = 'error@hellotravel.com';
            my $sub2 = "DB Error- $name,$email,$country2 ";
            my $message2 = "Could not connect & submit enquiry to data
+base
            Name - $name
            Email -$email
            Country Code - $country2";
            Globalinit->SendMail(__FILE__,__LINE__,$to2,$from2,'',$sub
+2,$message2,'');

            if($q->param('MYREDIRECT'))
            {    
                my $redirect;
                $redirect = $q->param('MYREDIRECT');
                #print "Location: http://$host/$redirect";
                print $q->header( -location => "$redirect", -status =>
+ "302" );
                exit;
            }
            else
            {
                print $q->header( -location => "http://www.hellotravel
+.com/serveform/serveform.pl?action=redirect", -status => "302" );
                $incfile='';
                exit;
            }
            
        }
    }

if($q->param('submit') && $q->param('submit') ne '')
{
#     print "Content-type:text/html\n\n";
#     print "$country1";
#     exit;
        my $tbl_site_name=$dbh->prepare("SELECT TBL_WEBSITE_URL FROM t
+bl_websites WHERE TBL_WEBSITE_URL = '$site_name' ");
        $tbl_site_name->execute();
        my $tbl_site_name2=$tbl_site_name->fetchrow_hashref();
        my $tbl_site_name3=$tbl_site_name2->{'TBL_WEBSITE_URL'};

        if(!$tbl_site_name3)
        {
            my $to2 = 'mayank@hellotravel.com,pratibha@indiamart.com';
            my $from2 = 'error@hellotravel.com';
            my $sub2 = "DB Error- $name,$email,$country2 ";
            my $message2 = "Could not connect & submit enquiry to data
+base
            Name - $name
            Email -$email
            Country Code - $country2";
            Globalinit->SendMail(__FILE__,__LINE__,$to2,$from2,'',$sub
+2,$message2,'');

            if($q->param('MYREDIRECT'))
            {    
                my $redirect;
                $redirect = $q->param('MYREDIRECT');
                #print "Location: http://$host/$redirect";
                print $q->header( -location => "$redirect", -status =>
+ "302" );
                exit;
            }
            else
            {
                print $q->header( -location => "http://www.hellotravel
+.com/serveform/serveform.pl?action=redirect", -status => "302" );
                $incfile='';
                exit;
            }    
        }    
        
        my $website_language_id=$dbh->prepare("SELECT FK_LANGUAGEID FR
+OM tbl_websites WHERE TBL_WEBSITE_URL='$site_name'");
        $website_language_id->execute();
        my $website_language_id1=$website_language_id->fetchrow_hashre
+f();
        my $website_language_id2=$website_language_id1->{'FK_LANGUAGEI
+D'};

    
    my $date_time=$dbh->prepare("select now()");
    $date_time->execute();
    my $date_time1=$date_time->fetchrow_hashref();
    $date_time2=$date_time1->{'now()'};

    
    my $no_adults=$dbh->prepare("SELECT TBL_PEOPLE_ADULT_VALUE from tb
+l_people_adults where TBL_PEOPLE_ADULT_ID=$people_adults ");
    $no_adults->execute();
    my $no_adults1=$no_adults->fetchrow_hashref();
    my $value_adult=$no_adults1->{'TBL_PEOPLE_ADULT_VALUE'};


     if($description =~ /<a href=/ig || $phone =~ /123456/ig || $phone
+=~ /[A-Za-z]/ig || $phone eq '' || $country2 =~ /0/ig )
     
    {
        
        my $date_time=$dbh->prepare("select now()");
        $date_time->execute();
        my $date_time1=$date_time->fetchrow_hashref();
        $date_time2=$date_time1->{'now()'};
        
        my $to3 = 'mayank@hellotravel.com,pratibha@indiamart.com';
        my $from3 = 'error@hellotravel.com';
        my $sub3 = "DB Error- $name,$email,$country2 ";
        my $message3 = "Could not connect & submit Junk enquiry to dat
+abase
        Name - $name
        Email -$email
        Country Code - $country2";
            
        my $sth = $dbh->prepare("INSERT INTO tbl_leads_junk (TBL_LEAD_
+ID,TBL_LEAD_NAME,TBL_LEAD_EMAIL,FK_TBL_COUNTRY_ISO_CODE,TBL_LEAD_CITY
+,FK_TBL_LANGUAGE_ID,TBL_LEAD_PHONE, FK_TBL_LEADTYPE_ID,FK_TBL_PEOPLE_
+ADULT_ID,FK_TBL_PEOPLE_KID_ID,FK_TBL_DURATION_ID,TBL_LEAD_ARRIVAL_DAT
+E,TBL_LEAD_ARRIVAL_MONTH,TBL_LEAD_ARRIVAL_YEAR,TBL_LEAD_DESCRIPTION,T
+BL_LEAD_IP,TBL_LEAD_IP_COUNTRY,TBL_LEAD_IP_CITY,FK_TBL_WEBSITE_URL,TB
+L_LEAD_REFERER,TBL_LEAD_RECD_DATE_TIME,TBL_LEAD_DATE_TIME,TBL_LEAD_TI
+ME,TBL_LEAD_SELFURL,FK_TBL_LOGIN_AFFILIATE_ID) VALUES ('$TBL_LEAD_ID'
+, '$name','$email','$country1','$city','$website_language_id2','$phon
+e','$lead_type_id1','$people_adults2','$people_kids2','$duration_id2'
+,'$arrival_date','$arrival_month','$arrival_year','$description','$ip
+','$ip_country_name','$ip_city_name','$site_name','$ref','$datetime',
+'$datetime','$time','$refferer3','$af_id')");
        $sth->execute() || Globalinit->SendMail(__FILE__,__LINE__,$to3
+,$from3,'',$sub3,$message3,'');
        $sth->finish;
    
        my $maxID=$dbh->prepare("SELECT max(TBL_LEAD_ID) as maxID FROM
+ tbl_leads_junk");
        $maxID->execute();
        my $maxID1=$maxID->fetchrow_hashref();
    
        my $id=$maxID1->{'maxID'};
        
        my $tbl_country_query=$dbh->prepare("SELECT TBL_COUNTRY FROM t
+bl_country ,tbl_leads_junk WHERE tbl_leads_junk. FK_TBL_COUNTRY_ISO_C
+ODE = tbl_country. TBL_COUNTRY_ISO_CODE and TBL_LEAD_ID=$id;");
        $tbl_country_query->execute();
        my $tbl_country_query2=$tbl_country_query->fetchrow_hashref();

        my $tbl_country_query_value=$tbl_country_query2->{'TBL_COUNTRY
+'};

        if($tbl_country_query_value)
        {
        
            my $sth = $dbh->prepare("update tbl_leads_junk set FK_TBL_
+COUNTRY = '$tbl_country_query_value' where TBL_LEAD_ID=$id");
            $sth->execute();
            $sth->finish;

        }
        else
        {
            print "some error has occured";
            exit;
        }


        
        my $query_budget1=$dbh->prepare("SELECT TBL_BUDGET FROM tbl_bu
+dget where TBL_BUDGET_ID = $tbl_budget_id2");
        $query_budget1->execute();
        my $query_budget2=$query_budget1->fetchrow_hashref();
        my $value_budget=$query_budget2->{'TBL_BUDGET'};
        
    
        if($value_budget)
        {
        
        my $sth = $dbh->prepare("update tbl_leads_junk set FK_TBL_BUDG
+ET = '$value_budget' where TBL_LEAD_ID=$id");
        $sth->execute();
        $sth->finish;
        }
        else
        {
            print "some error has occured";
            exit;
        }

        my $TBL_WEBSITE_ID1=$dbh->prepare("SELECT TBL_WEBSITE_ID FROM 
+tbl_websites,tbl_leads_junk WHERE tbl_leads_junk.FK_TBL_WEBSITE_URL =
+ tbl_websites.TBL_WEBSITE_URL and TBL_LEAD_ID=$id");
        $TBL_WEBSITE_ID1->execute();
        my $TBL_WEBSITE_ID2=$TBL_WEBSITE_ID1->fetchrow_hashref();
    
        my $TBL_WEBSITE_ID_VALUE=$TBL_WEBSITE_ID2->{'TBL_WEBSITE_ID'};
        if($TBL_WEBSITE_ID_VALUE eq '0')
        {
    
            print "some error has occured";
            exit;
        }
        if($TBL_WEBSITE_ID_VALUE)
        {
    
        my $sth = $dbh->prepare("update tbl_leads_junk set FK_TBL_WEBS
+ITE_ID = '$TBL_WEBSITE_ID_VALUE' where TBL_LEAD_ID=$id");
        $sth->execute();
        $sth->finish;
    
        }
        else
        {
            print "some error has occured";
            exit;
        }

        $query1=$dbh->prepare("SELECT  TBL_DURATION  FROM tbl_duration
+,tbl_leads_junk WHERE tbl_leads_junk.FK_TBL_DURATION_ID = tbl_duratio
+n. TBL_DURATION_ID  and TBL_LEAD_ID=$id;");
        $query1->execute();
         $query2=$query1->fetchrow_hashref();

         $value=$query2->{'TBL_DURATION'};

        if($value)
        {
    
            my $sth = $dbh->prepare("update tbl_leads_junk set FK_TBL_
+DURATION = '$value' where TBL_LEAD_ID=$id");
            $sth->execute();
            $sth->finish;
        }
        else
        {
            print "some error has occured";
            exit;
        }
        @item4=split("_",$visittype);
    
         $sth = $dbh->prepare("insert into tbl_leadrelations_junk(FK_G
+ENERAL_ID,FK_LEAD_ID,TBL_LEADRELATION_VALUE) values('$item4[0]','$id'
+,'$item4[1]')");
        $sth->execute();
        $sth->finish;
    

        foreach my $key(@theme)
        {
            my @item1;
            @item1=split("_",$key);
    
            my $sth = $dbh->prepare("insert into tbl_leadrelations_jun
+k(FK_GENERAL_ID,FK_LEAD_ID,TBL_LEADRELATION_VALUE) values('$item1[0]'
+,'$id','$item1[1]')");
            $sth->execute();
            $sth->finish;
        }
    
        foreach my $key(@destination)
        {
            my @item3;
            @item3=split("_",$key);

            my $sth = $dbh->prepare("insert into tbl_leadrelations_jun
+k(FK_GENERAL_ID,FK_LEAD_ID,TBL_LEADRELATION_VALUE) values('$item3[0]'
+,'$id','$item3[1]')");
            $sth->execute();
            $sth->finish;
        }


    }
    else
    {
        
        my $to3 = 'mayank@hellotravel.com,pratibha@indiamart.com';
        my $from3 = 'error@hellotravel.com';
        my $sub3 = "DB Error- $name,$email,$country2 ";
        my $message3 = "Could not connect & submit enquiry to database
        Name - $name
        Email -$email
        Country Code - $country2";
        
        my $sth = $dbh->prepare("INSERT INTO tbl_leads (TBL_LEAD_ID,TB
+L_LEAD_NAME,TBL_LEAD_EMAIL,FK_TBL_COUNTRY_ISO_CODE,TBL_LEAD_CITY,FK_T
+BL_LANGUAGE_ID,TBL_LEAD_PHONE,FK_TBL_LEADTYPE_ID,FK_TBL_PEOPLE_ADULT_
+ID,FK_TBL_PEOPLE_KID_ID,FK_TBL_DURATION_ID,TBL_LEAD_ARRIVAL_DATE,TBL_
+LEAD_ARRIVAL_MONTH,TBL_LEAD_ARRIVAL_YEAR,TBL_LEAD_DESCRIPTION,TBL_LEA
+D_IP,TBL_LEAD_IP_COUNTRY,TBL_LEAD_IP_CITY,FK_TBL_WEBSITE_URL,TBL_LEAD
+_REFERER,TBL_LEAD_RECD_DATE_TIME,TBL_LEAD_DATE_TIME,TBL_LEAD_TIME,TBL
+_LEAD_SELFURL,FK_TBL_LOGIN_AFFILIATE_ID) VALUES ('$TBL_LEAD_ID', '$na
+me','$email','$country1','$city','$website_language_id2','$phone','$l
+ead_type_id1','$people_adults2','$people_kids2','$duration_id2','$arr
+ival_date','$arrival_month','$arrival_year','$description','$ip','$ip
+_country_name','$ip_city_name','$site_name','$ref','$datetime','$date
+time','$time','$refferer3','$af_id')");
        $sth->execute() || Globalinit->SendMail(__FILE__,__LINE__,$to3
+,$from3,'',$sub3,$message3,'');
        $sth->finish;
        
        
        my $maxID=$dbh->prepare("SELECT max(TBL_LEAD_ID) as maxID FROM
+ tbl_leads");
        $maxID->execute();
        my $maxID1=$maxID->fetchrow_hashref();
        my $id=$maxID1->{'maxID'};
    
        my $tbl_country_query=$dbh->prepare("SELECT TBL_COUNTRY FROM t
+bl_country ,tbl_leads WHERE tbl_leads. FK_TBL_COUNTRY_ISO_CODE = tbl_
+country. TBL_COUNTRY_ISO_CODE and TBL_LEAD_ID=$id;");
        $tbl_country_query->execute();
        my $tbl_country_query2=$tbl_country_query->fetchrow_hashref();
    
        my $tbl_country_query_value=$tbl_country_query2->{'TBL_COUNTRY
+'};
    
        if($tbl_country_query_value)
        {
        
        my $sth = $dbh->prepare("update tbl_leads set FK_TBL_COUNTRY =
+ '$tbl_country_query_value' where TBL_LEAD_ID=$id");
        $sth->execute();
        $sth->finish;
    
        }
        else
        {
            print "some error has occured";
            exit;
        }

        
        my $query_budget1=$dbh->prepare("SELECT TBL_BUDGET FROM tbl_bu
+dget where TBL_BUDGET_ID = $tbl_budget_id2");
        $query_budget1->execute();
        my $query_budget2=$query_budget1->fetchrow_hashref();
        my $value_budget=$query_budget2->{'TBL_BUDGET'};
        
    
        if($value_budget)
        {
        
        my $sth = $dbh->prepare("update tbl_leads set FK_TBL_BUDGET = 
+'$value_budget' where TBL_LEAD_ID=$id");
        $sth->execute();
        $sth->finish;
        }
        else
        {
            print "some error has occured";
            exit;
        }
    
        my $TBL_WEBSITE_ID1=$dbh->prepare("SELECT TBL_WEBSITE_ID FROM 
+tbl_websites,tbl_leads WHERE tbl_leads.FK_TBL_WEBSITE_URL = tbl_websi
+tes.TBL_WEBSITE_URL and TBL_LEAD_ID=$id");
        $TBL_WEBSITE_ID1->execute();
        my $TBL_WEBSITE_ID2=$TBL_WEBSITE_ID1->fetchrow_hashref();
    
        my $TBL_WEBSITE_ID_VALUE=$TBL_WEBSITE_ID2->{'TBL_WEBSITE_ID'};
        if($TBL_WEBSITE_ID_VALUE eq '0')
        {
    
            print "some error has occured";
            exit;
        }
        if($TBL_WEBSITE_ID_VALUE)
        {
    
        my $sth = $dbh->prepare("update tbl_leads set FK_TBL_WEBSITE_I
+D = '$TBL_WEBSITE_ID_VALUE' where TBL_LEAD_ID=$id");
        $sth->execute();
        $sth->finish;
    
        }
        else
        {
            print "some error has occured";
            exit;
        }
    
        $query1=$dbh->prepare("SELECT  TBL_DURATION  FROM tbl_duration
+,tbl_leads WHERE tbl_leads.FK_TBL_DURATION_ID = tbl_duration. TBL_DUR
+ATION_ID  and TBL_LEAD_ID=$id;");
        $query1->execute();
        $query2=$query1->fetchrow_hashref();
    
        $value=$query2->{'TBL_DURATION'};
    
        if($value)
        {
        
        my $sth = $dbh->prepare("update tbl_leads set FK_TBL_DURATION 
+= '$value' where TBL_LEAD_ID=$id");
        $sth->execute();
        $sth->finish;
        }
        else
        {
            print "some error has occured";
            exit;
        }
    
        @item4=split("_",$visittype);
        
        $sth = $dbh->prepare("insert into tbl_leadrelations(FK_GENERAL
+_ID,FK_LEAD_ID,TBL_LEADRELATION_VALUE) values('$item4[0]','$id','$ite
+m4[1]')");
            $sth->execute();
            $sth->finish;
        
    
        foreach my $key(@theme)
        {
            my @item1;
            @item1=split("_",$key);
        
            my $sth = $dbh->prepare("insert into tbl_leadrelations(FK_
+GENERAL_ID,FK_LEAD_ID,TBL_LEADRELATION_VALUE) values('$item1[0]','$id
+','$item1[1]')");
            $sth->execute();
            $sth->finish;
        }
        
        foreach my $key(@destination)
        {
            my @item3;
            @item3=split("_",$key);
    
            my $sth = $dbh->prepare("insert into tbl_leadrelations(FK_
+GENERAL_ID,FK_LEAD_ID,TBL_LEADRELATION_VALUE) values('$item3[0]','$id
+','$item3[1]')");
            $sth->execute();
            $sth->finish;
        }
        
    }
        
        
    if($q->param('MYREDIRECT'))
    {    
        my $redirect;
        $redirect = $q->param('MYREDIRECT');
        #print "Location: http://$host/$redirect";
        print $q->header( -location => "$redirect", -status => "302" )
+;
        exit;
    }
    else
    {
        print $q->header( -location => "http://www.hellotravel.com/ser
+veform/serveform.pl?action=redirect", -status => "302" );
        $incfile='';
        exit;
    }
    
    }

if($q->param('action') && $q->param('action') eq 'redirect')
{
    $incfile='';
print "Content-type: text/html \n\n";


print qq~
<HTML>
 <HEAD>
  <TITLE> New Document </TITLE>
  <META NAME="Generator" CONTENT="EditPlus">
  <META NAME="Author" CONTENT="">
  <META NAME="Keywords" CONTENT="">
  <META NAME="Description" CONTENT="">
 </HEAD>
 <BODY>
<B> your query has ben submitted</B>
 </BODY>
</HTML>~;
}

[download]

In Section Seekers of Perl Wisdom