[* $QUERY = $param[0] || ''; $TOTAL_COUNT = $param[1] || 0; $RawDataArray = $param[2] || ''; $PAGENATION = $param[3] || ''; $REMOTE_HOST = $param[4] || ''; $SERVER_ERR = $param[5] || ''; $RELATEDKEYWORDS= $param[6] || ''; $START_CNT = $param[7] || ''; $LAST_CNT = $param[8] || ''; $CONARR = $param[9] || ''; $CITYARR = $param[10] || ''; $TIME = $param[11] || ''; $TOTALTIME = $param[12] || ''; $country = $param[13] || ''; $city = $param[14] || ''; $afterLWP = $param[15] || ''; $debug = $param[16] || ''; $limit = $param[17] || ''; $dataHash = $param[18] || ''; $iil = $param[19] || ''; $collapseOnOff = $param[20] || ''; $etofilter = $param[21] || ''; $type = $param[22] || ''; $boostfactor = $param[23] || 0; $escmode = 0; $TIME = sprintf("%.2f", $TIME); $QUERY =~ s/\+/ /g; $countryHash = { 'GL' => 'Greenland', 'DJ' => 'Djibouti', 'JM' => 'Jamaica', 'PG' => 'Papua New Guinea', 'AT' => 'Austria', 'KI' => 'Kiribati', 'SZ' => 'Swaziland', 'YT' => 'Mayotte', 'BN' => 'Brunei', 'ZM' => 'Zambia', 'CD' => 'Congo', 'BW' => 'Botswana', 'AO' => 'Angola', 'ZW' => 'Zimbabwe', 'VC' => 'Caribbean States', 'PR' => 'Puerto Rico', 'JP' => 'Japan', 'NA' => 'Namibia', 'SH' => 'Saint Helena', 'TJ' => 'Tajikistan', 'LC' => 'Saint Lucia', 'MA' => 'Morocco', 'VU' => 'Vanuatu', 'MT' => 'Malta', 'SV' => 'El Salvador', 'MN' => 'Mongolia', 'MP' => 'Mariana Islands', 'IT' => 'Italy', 'RE' => 'Reunion', 'WS' => 'Samoa', 'FR' => 'France', 'EG' => 'Egypt', 'UZ' => 'Uzbekistan', 'PW' => 'Palau', 'TK' => 'Tokelau', 'LR' => 'Liberia', 'RW' => 'Rwanda', 'UM' => 'USA', 'TN' => 'Tunisia', 'BE' => 'Belgium', 'EE' => 'Estonia', 'CK' => 'Cook Islands', 'BY' => 'Belarus', 'NO' => 'Norway', 'LS' => 'Lesotho', 'KR' => 'South Korea', 'SA' => 'Saudi Arabia', 'ZA' => 'South Africa', 'PT' => 'Portugal', 'BF' => 'Burkina Faso', 'CA' => 'Canada', 'AM' => 'Armenia', 'CM' => 'Cameroon', 'SR' => 'Suriname', 'MG' => 'Madagascar', 'NP' => 'Nepal', 'BT' => 'Bhutan', 'PL' => 'Poland', 'TM' => 'Turkmenistan', 'GA' => 'Gabon', 'CF' => 'Congo', 'AE' => 'UAE', 'BA' => 'Bosnia & Herzegovina', 'TH' => 'Thailand', 'KY' => 'Cayman Islands', 'UK' => 'UK', 'LA' => 'Laos', 'PH' => 'Philippines', 'CC' => 'Cocos Islands', 'NI' => 'Nicaragua', 'NC' => 'New Caledonia', 'GU' => 'Guam', 'TF' => 'TAAF', 'KZ' => 'Kazakhstan', 'SJ' => 'Svalbard', 'MM' => 'Myanmar', 'NR' => 'Nauru', 'NE' => 'Niger', 'DM' => 'Dominica', 'TO' => 'Tonga', 'MR' => 'Mauritania', 'AD' => 'Andorra', 'SE' => 'Sweden', 'AZ' => 'Azerbaijan', 'AF' => 'Afghanistan', 'GS' => 'Georgia', 'NG' => 'Nigeria', 'KE' => 'Kenya', 'BJ' => 'Benin', 'ME' => 'Montenegro', 'OM' => 'Oman', 'VG' => 'Virgin Island', 'VN' => 'Vietnam', 'YE' => 'Yemen', 'CI' => 'Ivory Coast', 'DZ' => 'Algeria', 'LK' => 'Sri Lanka', 'ID' => 'Indonesia', 'FM' => 'Micronesia', 'GE' => 'Georgia', 'GM' => 'Gambia', 'CX' => 'Christmas Islands', 'LV' => 'Latvia', 'RU' => 'Russia', 'LB' => 'Lebanon', 'FK' => 'Falkland', 'DE' => 'Germany', 'FI' => 'Finland', 'MV' => 'Maldives', 'LU' => 'Luxembourg', 'VE' => 'Venezuela', 'PN' => 'Pitcairn Island', 'BH' => 'Bahrain', 'GI' => 'Gibraltar', 'WF' => 'Wallis And Futuna', 'RO' => 'Romania', 'VI' => 'Virgin Island', 'TV' => 'Tuvalu', 'IN' => 'India', 'GP' => 'Guadeloupe', 'AR' => 'Argentina', 'SN' => 'Senegal', 'MX' => 'Mexico', 'FO' => 'Faeroe Islands', 'AW' => 'Aruba', 'CS' => 'Serbia', 'MC' => 'Monaco', 'HN' => 'Honduras', 'BR' => 'Brazil', 'IL' => 'Israel', 'SB' => 'Solomon Islands', 'PS' => undef, 'NZ' => 'New Zealand', 'HU' => 'Hungary', 'DO' => 'Dominican Republic', 'UG' => 'Uganda', 'KH' => 'Cambodia', 'YU' => 'Yugoslavia', 'TG' => 'Togo', 'BB' => 'Caribbean States', 'HT' => 'Haiti', 'DK' => 'Denmark', 'PA' => 'Panama', 'QA' => 'Qatar', 'CV' => 'Cape Verde', 'GD' => 'Grenada', 'MO' => 'Macau (China)', 'GF' => 'French Guiana', 'KM' => 'Comoros', 'KW' => 'Kuwait', 'HR' => 'Croatia', 'TC' => 'Caribbean States', 'MQ' => 'Martinique', 'CZ' => 'Czech Republic', 'ES' => 'Spain', 'MZ' => 'Mozambique', 'BO' => 'Bolivia', 'ST' => 'Sao Tome And Principe', 'AU' => 'Australia', 'AL' => 'Albania', 'IR' => 'Iran', 'CG' => 'Congo', 'TR' => 'Turkey', 'MD' => 'Moldova', 'BI' => 'Burundi', 'GN' => 'Guinea', 'GW' => 'Guinea-Bissau', 'MK' => 'Macedonia', 'GR' => 'Greece', 'AG' => 'Caribbean States', 'SI' => 'Slovenia', 'CO' => 'Colombia', 'AI' => 'Anguilla', 'AQ' => 'Antarctica', 'AN' => 'West Indies', 'JO' => 'Jordan', 'SM' => 'San Marino', 'UA' => 'Ukraine', 'EH' => 'Western Sahara', 'CL' => 'Chile', 'CU' => 'Cuba', 'KN' => 'Caribbean States', 'ML' => 'Mali', 'SC' => 'Seychelles', 'ET' => 'Ethiopia', 'IS' => 'Iceland', 'NL' => 'Netherlands', 'MS' => 'Montserrat', 'HK' => 'Hong Kong (China)', 'EC' => 'Ecuador', 'MY' => 'Malaysia', 'CR' => 'Costa Rica', 'VA' => 'Holy See', 'IO' => 'BIOT', 'SD' => 'Sudan', 'RS' => 'Serbia', 'CN' => 'China', 'MH' => 'Marshall Islands', 'BG' => 'Bulgaria', 'UY' => 'Uruguay', 'BS' => 'Caribbean States', 'PY' => 'Paraguay', 'TL' => 'East Timor', 'MU' => 'Mauritius', 'CH' => 'Switzerland', 'LI' => 'Liechtenstein', 'GH' => 'Ghana', 'KG' => 'Kyrgyzstan', 'NU' => 'Niue', 'PE' => 'Peru', 'US' => 'USA', 'SL' => 'Sierra Leone', 'BZ' => 'Caribbean States', 'CY' => 'Cyprus', 'FJ' => 'Fiji Islands', 'IE' => 'Ireland', 'TW' => 'Taiwan', 'KP' => 'North Korea', 'PF' => 'Polynesia', 'ER' => 'Eritrea', 'IQ' => 'Iraq', 'AS' => 'Samoa', 'TZ' => 'Tanzania', 'MW' => 'Malawi', 'LY' => 'Libya', 'GT' => 'Guatemala', 'GY' => 'Guyana', 'BM' => 'Bermuda', 'PK' => 'Pakistan', 'GQ' => 'Guinea', 'BV' => 'Bouvet Island', 'LT' => 'Lithuania', 'SG' => 'Singapore', 'PM' => 'Saint Pierre And Miquelon', 'TT' => 'West Indies', 'NF' => 'Norfolk Island', 'SO' => 'Somalia', 'TD' => 'Chad', 'SY' => 'Syria', 'SK' => 'Slovakia', 'BD' => 'Bangladesh', 'HM' => 'Mcdonald Islands' }; $city_lst = ''; $city_li = ''; $city_li0 = ''; $city_li1 = ''; $cty1 = ''; if($country ne '') { $city_count = 0; foreach $cty (@$CITYARR) { $city =~s/\\//ig; if($cty eq $city) { $city_li0 = qq~
  • - $cty
  • ~; } else { $cty1 = $cty; $cty1 =~s/ /\\+/ig; if ($city_count < 5) { $city_li .=qq~
  • -$cty
  • ~; } else { $cty1 = $cty; $cty1 =~s/ /\\+/ig; $city_li1 .= qq~
  • -$cty
  • ~; } } $city_count ++; } $city_lst = qq~~; if($city_li1 ne '') { $city_lst =qq~$city_lst
    ~; } } $cntry_li1 = ''; $cntry_li2 = ''; $cntry_li = ''; $cntry_lst = ''; $country_count = 0; foreach $c (@$CONARR) { $countryiso = uc($c); $countryname = $countryHash->{$countryiso}; if($countryiso eq $country) { $cntry_li =qq~
    $city_lst~; } else { if($country_count <5) { $cntry_li1 .=qq~
  • $countryname
  • ~; } else { $cntry_li2 .=qq~
  • $countryname
  • ~; } } $country_count ++; } if($cntry_li1) { $cntry_lst =qq~
    ~; } if($cntry_li2 ne '') { $cntry_lst =qq~$cntry_lst
      View All...
    ~; } *] HelloTrade Sellers
    [* $checked1 = ''; $checked2 = ''; if($collapseOnOff == 1) { $checked1 = 'checked'; } else { $checked2 = 'checked'; } *]
    Limit   Debug [* if($debug) { *] [* } else { *] [* } *] Boost Factor Collapse: Y N
    [* if($SERVER_ERR != 1) { if($TOTAL_COUNT) { *]
    [* if($RELATEDKEYWORDS) { *]
    Related:[+$RELATEDKEYWORDS+]
    [* } *]

    [+$START_CNT+] - [+$LAST_CNT+] of [+$TOTAL_COUNT+] ([+$TIME+] seconds) Results:"[+$QUERY+]"


    Sellers Search

    [* my $tr = ''; my $count = 0; foreach my $i(@$RawDataArray) { $uniqueid = $i->{'displayid'} || ''; $company = $i->{'companyname'} || ''; $glusrid = $i->{'glusrid'} || ''; $address = $i->{'address'} || ''; $state = $i->{'state'} || ''; $photo = $i->{'photo'}->[0] || ''; if($photo ne '') { $photo =~ s/^\s+//g; $photo =~ s/\s+$//g; } @mcatname = @{$i->{'mcatname'}}; if(scalar(@mcatname) > 0) { $mcatname = join(',',@mcatname); $mcatname =~ s/,+/, /mg; $mcatname =~ s/^,//mg; $mcatname =~ s/,$//mg; } else { $mcatname = ''; } @catname = @{$i->{'catname'}}; if(scalar(@catname) > 0) { $catname = join(',',@catname); $catname =~ s/,+/, /mg; $catname =~ s/^,//mg; $catname =~ s/,$//mg; } else { $catname = ''; } $title = $i->{'title'} || ''; $score = $i->{'score'} || ''; $scorevalue = $dataHash->{'debug'}->{'explain'}->{$uniqueid} || ''; $desc = ''; if($i->{'smalldesc'}) { $desc = $i->{'smalldesc'}; $desc =~ s/\<(.*)\>//mg; } $smalldesc = $desc; $largedesc = ''; if($i->{'largedesc'}) { $largedesc = $i->{'largedesc'}; $largedesc =~ s/\<(.*)\>//mg; } if($desc ne '') { $len = 150; $strlen = length $desc; if($strlen > 0) { $substr_limit = 0; if($len > $strlen) { $desc= substr $desc, 0, $strlen; } else { $substr_limit = rindex $desc,' ',$len; if($substr_limit ==-1) { $desc= substr $desc, 0, $len; } else { $desc= substr $desc, 0,$substr_limit; } } } } $cntry = $i->{'countryname'} || ''; $fcp = $i->{'url'} || ''; $iso = lc($i->{'countryiso'}) || ''; $phone = $i->{'phone'}->[0] || ''; if($phone ne '') { $phone =~ s/^\s+//g; $phone =~ s/\s+$//g; } $mobile = $i->{'mobile'}->[0] || ''; if($mobile ne '') { $mobile =~ s/^\s+//g; $mobile =~ s/\s+$//g; } $data_type = ucfirst($i->{'datatype'}) || ''; $display_date = $i->{'datedisplay'} || ''; $image = ''; $bigimg = ''; if($photo ne '') { $photo =~ s/imghost(\d*)\.indiamart\.com/images$1.hellotrade.com/isg; $photo = '' if ($photo =~ /pcat-gifs/); $photo = '' if ($photo =~ /add-image/); $image = qq~~; $bigimg = $photo; $bigimg =~ s/100x100([\.jpg|\.png|\.gif])/500x500$1/; $bigimg =~ s/125x125([\.jpg|\.png|\.gif])/500x500$1/; } else { $image = ''; } my @ph = (); my $phone_temp = ''; if($phone ne '') { @ph = split(/ /,$phone); if ($ph[2]) { if($ph[2] =~ /\//ig) { ($ph[2], $phone_temp) = split(/\//,$ph[2]); } $phone = '+('.$ph[0].')-'.$ph[1].'-'.$ph[2]; } else { if($ph[1] =~ /\//ig) { ($ph[1], $phone_temp) = split(/\//,$ph[1]); } $phone = '+('.$ph[0].')-'.$ph[1]; } } elsif($mobile ne '') { @ph = split(/ /,$mobile); if($ph[1] =~ /\//ig) { ($ph[1], $phone_temp) = split(/\//,$ph[1]); } $phone = '+('.$ph[0].')-'.$ph[1]; } else { $phone = ''; } $phdisplay1 = ''; if($phone ne '') { $phdisplay1 = $phone; $phdisplay1 =~ s/[^0-9]//g; } $displaylead = qq~$company~; if($title and $data_type ne 'Company') { $title = qq~$title
    ~; } else { $title = ''; } if($debug) { $a = qq~(Score - $score)~; } else { $a = qq~(Score - $score)~; } $tr .= qq~
    $scorevalue
     
    GlusrId: $glusrid     Address: $address
    State: $state
    Small Desc:
    $smalldesc
    Large Desc:
    $largedesc
    Mcat Name:
    $mcatname
    Cat Name:
    $catname
     
    ~; $count++; } *] [+$tr+]
    Description Contact Details

    $displaylead

    ($data_type) $a
    $image
    $title $desc
    $cntry
    $iso
     
    $phone
    [+$PAGENATION+]



    Refine Search:

    [+$cntry_li+] [+$cntry_lst+]

    CALL FREE

    Close
    Enter your Phone Number with area code (optional).
     
    * Name
    * Email
    * Country
    * Your Number
    You will receive call on this number.
     
    [* } else { if($QUERY eq '') { *]


      Sorry, Please fill at least 3 characters for Search.

    [* } else { *]
    No Result Found
    Please select other Country to proceed.
    [* } } } else { *]


      Sorry,Server error....

    [* } *]