Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Prijevod sa ASP u PHP

[es] :: PHP :: Prijevod sa ASP u PHP

[ Pregleda: 2659 | Odgovora: 17 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

openet
open net , dizajner

Član broj: 223894
Poruke: 9
*.adsl.net.t-com.hr.



Profil

icon Prijevod sa ASP u PHP28.05.2009. u 14:53 - pre 180 meseci
Poštovanje,

imam jedan mali problem, trebalo bi mi prijevod sa ASP na PHP. Ne znam raditi u php a gazda hoće to u php...
Code:
'*********************************************************************************************
'// CARNet :: http://www.dns.hr/pretrazivanje.html
'*********************************************************************************************
Function getCARNetStatus(strDN, strTLD)

    Dim htmlDocument
    Dim strUrl, strRegStatus

    getCARNetStatus = False '## Domain is maybe free

    Select Case strTLD
        Case "hr"
            strUrl = "http://www.dns.hr/asp/trazidomenu.asp"
            strDN =    "Upit=" & strDN
            strRegStatus = "nijeregistrirana"    '## !!!
        Case "com.hr"
            strUrl = "http://hr-t.dns.hr/php/search.php"
            strDN = "domena=" & strDN
            strRegStatus = "jeslobodna"            '## !!!
    End Select

    '## Getting Response Text
    htmlDocument = getHtml(strUrl, strDN)

    '## Fixing HTML Document
    htmlDocument = Replace(htmlDocument, CHR(10), "")
    htmlDocument = Replace(htmlDocument, CHR(13), "")
    htmlDocument = Replace(htmlDocument, " ", "")

    '## Finding Registration Status inside HTML Document
    strRegStatus = InStr(htmlDocument, strRegStatus)

    '## Domain is registred and not available
    If strRegStatus = 0 Then
        getCARNetStatus = True
    End If


hvala unaprijed
 
Odgovor na temu

Nikola Poša
Backend (PHP) developer
Beograd

Član broj: 173839
Poruke: 1616
*.adsl-a-1.sezampro.yu.



+33 Profil

icon Re: Prijevod sa ASP u PHP28.05.2009. u 18:25 - pre 180 meseci
Bolje da si nam samo opisao šta treba da radi ta f-ja. Meni lično taj kod ništa ne znači, jer ne znam ASP, a ni verujem da će ga iko od ljudi koji pišu na PHP forumu razumeti...
 
Odgovor na temu

metvsmet

Član broj: 223029
Poruke: 27
77.46.193.*



Profil

icon Re: Prijevod sa ASP u PHP28.05.2009. u 18:32 - pre 180 meseci
Citat:
Nikola Poša: Bolje da si nam samo opisao šta treba da radi ta f-ja. Meni lično taj kod ništa ne znači, jer ne znam ASP, a ni verujem da će ga iko od ljudi koji pišu na PHP forumu razumeti...


koliko ja vidim liku je potrebna skripta za proveru domena, tj, za proveru da li je slobodan domen ili ne.
 
Odgovor na temu

openet
open net , dizajner

Član broj: 223894
Poruke: 9
*.adsl.net.t-com.hr.



Profil

icon Re: Prijevod sa ASP u PHP29.05.2009. u 08:09 - pre 180 meseci
pozdrav dragi ljudi,

ova skripta radi provjeru HR domena. Pored provjere hr domena moram napraviti da se provjeravaju još par domena(com,net,info,com.hr, biz,org).

Kada se klikne na "pretraži" da on samo proveri da li je moguće regati (asinhrono), ako je onda se ide na neku sasvim drugu stranicu a ako ne onda ništa. bez onog
Whois look up.

Pozz
 
Odgovor na temu

stankons
Stanko Milošev
ise Gmbh, Deutschland
Bonn

Član broj: 99408
Poruke: 231
*.trinet.si.

ICQ: 147767352
Sajt: www.milosev.com


Profil

icon Re: Prijevod sa ASP u PHP29.05.2009. u 09:21 - pre 180 meseci
Ne znam najbolje ASP, a mislim da je poenta u onoj getHtml funkciji, cini mi se da radis post na http://www.dns.hr/asp/trazidomenu.asp

Posto sam na poslu, ne mogu ti odraditi skriptu, a ne mogu ti obecati da cu odraditi i kuci, posto imam u planu da ne budem trezan sutra, a u nedelju cu se verovatno leciti. Predlazem ti da sam pokusas, imas php.net gde imas sve potrebne funkcije, ako negde zapnes, javi, pa cemo ti pomoci. Cak ako ti neko i odradi celu skriptu, ako ti treba izmena imaces problema, tako da, po meni, najbolje ti je da sam pokusas, dvostruko ces profitirati, nesto ces nauciti, i ne zavisis ni od koga...
 
Odgovor na temu

agvozden
Aleksandar Gvozden
founder
Info-G
Beograd

Član broj: 37813
Poruke: 1122
*.b92.net.

Sajt: www.gvozden.info


+68 Profil

icon Re: Prijevod sa ASP u PHP29.05.2009. u 09:22 - pre 180 meseci
mozda da probas http://asp2php.naken.cc/download.php?
 
Odgovor na temu

openet
open net , dizajner

Član broj: 223894
Poruke: 9
*.adsl.net.t-com.hr.



Profil

icon Re: Prijevod sa ASP u PHP29.05.2009. u 09:46 - pre 180 meseci
hej agvozden,

probao ali ne ide, ali super stvar, pitanje je koliko dobro radi konverziju?

možda bi bilo dobro da pustim cijeli ASP?
ako tko misli da treba rado ću ga pustit.

Našao sam na netu puno whois skripti ali problem mi predstavlja pretraga HR domena. Pitam se kak je
napravljen whois.com.hr!!!
 
Odgovor na temu

Tudfa
Jovicevic Vladimir

Član broj: 152699
Poruke: 384
*.dynamic.sbb.rs.



+3 Profil

icon Re: Prijevod sa ASP u PHP29.05.2009. u 17:09 - pre 180 meseci
A jel ti ta funkcija getHtml neka tvoja funkcija ? Šta radi, šta vraća i u kom obliku ? Ako je tvoja onda mora i ona da se prebaci iz asp-a.
Ako nije tvoja nego asp, reci nam šta radi, da ti predlozimo ekvivalent.

Ni ja se ne bavim asp-om, mada ovaj kod je verujem prilično čitljiv bilo kome ko radi web progamiranje...
Ekvivalenti za Replace fju bi bio str_replace, a za ovu InStr bi verovatno bila fja strpos
Evo ti nešto otprilike kako bi ja to preveo, čisto da pohvataš tu potrebnu sintaksu.

Code:
<?php

function getCARNetStatus($strDN, $strTLD) {
 
    $htmlDocument ='';
    $strUrl ='';
    $strRegStatus = false;
 
       $getCARNetStatus = false; //Domain is maybe free
 
   switch($strTLD)
   {
        case 'hr' :
            $strUrl = 'http://www.dns.hr/asp/trazidomenu.asp';
            $strDN =    'Upit='.$strDN;
            $strRegStatus = 'nijeregistrirana';
        break;
        case 'com.hr':
            $strUrl = 'http://hr-t.dns.hr/php/search.php';
            $strDN = 'domena='.$strDN;
            $strRegStatus = 'jeslobodna';
        break;
        
    default:
        //default akcija koja moze i da se izostavi
    break;
   }
 
    // Getting Response Text
    //$htmlDocument = $getHtml($strUrl, $strDN); šta radi ova fja
    
    // Fixing HTML Document
    $htmlDocument = str_replace(chr(10),'',$htmlDocument);
    $htmlDocument = str_replace(chr(13),'',$htmlDocument);
    $htmlDocument = str_replace( ' ', '',$htmlDocument);
 
    //Finding Registration Status inside HTML Document
    $strRegStatus = strpos($htmlDocument, $strRegStatus);
 
    // Domain is registred and not available
    if ($strRegStatus == false)
    {    
        $getCARNetStatus = true
        return $getCARNetStatus;//ili mozes samo return true
    }
    
    return $getCARNetStatus;//ovde moze samo return false
}

?>


Nisam se baš sto posto udubio u tvoj asp kod, mada bi ovo trebalo da ti bude ok za pocetak...
 
Odgovor na temu

Tudfa
Jovicevic Vladimir

Član broj: 152699
Poruke: 384
*.dynamic.sbb.rs.



+3 Profil

icon Re: Prijevod sa ASP u PHP01.06.2009. u 13:13 - pre 180 meseci
Ova getHtml ako se ne varam pravi asinhroni(AJAX) zahtev za nekom stranicom i vraća podatke poslate sa servera(getHtml = objXmlHttp.ResponseText).
Mislim da bi bilo dobro da kreneš sa tutorijalima, jer ne verujem da će ti ovde neko prevoditi funkciju za funkcijom. Imaš korisnih stvari ovde , a mozes da pogledaš i jquery.
 
Odgovor na temu

Goran Rakić
Beograd

Moderator
Član broj: 999
Poruke: 3766

Sajt: blog.goranrakic.com


+125 Profil

icon Re: Prijevod sa ASP u PHP01.06.2009. u 13:32 - pre 180 meseci
Izgleda da niko od vas nije video formu na http://www.dns.hr/pretrazivanje.html po kojoj je očigledno da getHTML pravi HTTP POST zahtev. U php-u možeš da koristiš curl funkcije ili da sam napišeš preko sockets funkcija.

http://sr.libreoffice.org — slobodan kancelarijski paket, obrada teksta, tablice,
prezentacije, legalno bez troškova licenciranja
 
Odgovor na temu

Tudfa
Jovicevic Vladimir

Član broj: 152699
Poruke: 384
*.dynamic.sbb.rs.



+3 Profil

icon Re: Prijevod sa ASP u PHP01.06.2009. u 13:36 - pre 180 meseci
Da ne dodje do zabune jer je kod koji je openet postovao obrisan iz nekog razloga, na ovu funkciju sam mislio:
Code:

Function getHtml(strURL, strDN)
       Dim objXmlHttp

       Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
               objXmlHttp.Open "POST", strURL, false
               objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
               objXmlHttp.Send(strDN)
       getHtml = objXmlHttp.ResponseText
       Set objXmlHttp = Nothing
End Function
 
Odgovor na temu

openet
open net , dizajner

Član broj: 223894
Poruke: 9
*.adsl.net.t-com.hr.



Profil

icon Re: Prijevod sa ASP u PHP02.06.2009. u 07:50 - pre 180 meseci
hvala narode na savjetima.
Dalje ću sam..
btw da se zna, nisam nikad očekivao "gotov code"....

pozdrav
 
Odgovor na temu

openet
open net , dizajner

Član broj: 223894
Poruke: 9
*.adsl.net.t-com.hr.



Profil

icon Re: Prijevod sa ASP u PHP02.06.2009. u 10:21 - pre 180 meseci
Dragi moji,
problem riješen...
evo rješenja
Code:


<?php

    function dajHTMLhr($url,$domen) {
        
        $params = ("Upit=$domen&Submit=Tra%BEi");
        $curl = curl_init($url);
        curl_setopt($curl, CURLOPT_USERAGENT, "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)");
        curl_setopt($curl, CURLOPT_HEADER,1);
        curl_setopt($curl, CURLOPT_FOLLOWLOCATION,1);
        curl_setopt($curl, CURLOPT_COOKIEJAR, "/"); 
        curl_setopt($curl, CURLOPT_POST, true);
        curl_setopt($curl, CURLOPT_POSTFIELDS, $params);
        curl_setopt($curl, CURLOPT_RETURNTRANSFER, true); 
        $result = curl_exec($curl);
        curl_close($curl);
        


    if (strpos($result,"aktivna")) {
        echo "Domena $domen.hr zauzeta";
    }
    else {
        echo "domena slobodna";
    }
       
    }
    
if ($_POST["hr"]) {

  $check = dajHTMLhr("http://www.dns.hr/asp/trazidomenu.asp","ime_domene");
    

  
?>

ovaj $_POST na kraju skripte je prosljeđen od html dokumenta.
Skonto sam da kod poziva externih stranica u asp-u treba se viditi računa o njihovim sesijama...
3 reda ispod USERAGENT rješavaju problem

pozdrav
 
Odgovor na temu

openet
open net , dizajner

Član broj: 223894
Poruke: 9
*.adsl.net.t-com.hr.



Profil

icon Re: Prijevod sa ASP u PHP03.06.2009. u 10:15 - pre 180 meseci
da li itko zna
ime whois servera za RH domene ili je ovo jedini način za dobivanje info o zauzeću??
 
Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Moderator
Član broj: 32202
Poruke: 4391
77.46.233.*

Sajt: https://avramovic.info


+46 Profil

icon Re: Prijevod sa ASP u PHP03.06.2009. u 18:33 - pre 180 meseci
Samo umesto tog echo-a unutar funkcije ubaci return false, odnosno return true.
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
 
Odgovor na temu

openet
open net , dizajner

Član broj: 223894
Poruke: 9
*.adsl.net.t-com.hr.



Profil

icon Re: Prijevod sa ASP u PHP08.06.2009. u 08:06 - pre 180 meseci
hehehe to sam napravio kasnije :)
ovo je napisano odmah nakon kreiranja...

fala na savjetu
 
Odgovor na temu

sihozg
student

Član broj: 261109
Poruke: 1
*.dsl.iskon.hr.



Profil

icon Re: Prijevod sa ASP u PHP31.05.2010. u 20:22 - pre 168 meseci
Pretraživanje .hr radi savršeno, ali nikako natjerati pretraživanje .com.hr da proradi.

Ima li itko ideju?
 
Odgovor na temu

dendic
servisi ,odrzavanje
Mostar

Član broj: 10678
Poruke: 1856



+10 Profil

icon Re: Prijevod sa ASP u PHP03.06.2010. u 08:10 - pre 168 meseci
<?
//*********************************************************************************************
//// CARNet :: http://www.dns.hr/pretrazivanje.html
//*********************************************************************************************

function getCARNetStatus($strDN, $strTLD) {
$_retval=false;
//## Domain is maybe free
switch ($strTLD) {

case "hr":
$strUrl="http://www.dns.hr/asp/trazidomenu.asp";
$strDN="Upit=".$strDN;
$strRegStatus="nijeregistrirana";
//## !!!
break;

case "com.hr":
$strUrl="http://hr-t.dns.hr/php/search.php";
$strDN="domena=".$strDN;
$strRegStatus="jeslobodna";
//## !!!
break;
}
//## Getting Response Text
$htmlDocument=getHtml($strUrl, $strDN); // WARNING: assuming getHtml is an external function
//## Fixing HTML Document
$htmlDocument=str_replace(chr(10),"",$htmlDocument);
$htmlDocument=str_replace(chr(13),"",$htmlDocument);
$htmlDocument=str_replace(" ","",$htmlDocument);
//## Finding Registration Status inside HTML Document
$strRegStatus=_instr(0,$htmlDocument,$strRegStatus,0);
//## Domain is registred and not available
if ($strRegStatus == 0) {
$_retval=true;
}
return $_retval;
}

// Helper Functions

function _instr($start,$str1,$str2,$mode) {
if ($mode) { $str1=strtolower($str1); $str2=strtolower($str2); }
$retval=strpos($str1,$str2,$start);
return ($retval===false) ? 0 : $retval+1;
}
?>
 
Odgovor na temu

[es] :: PHP :: Prijevod sa ASP u PHP

[ Pregleda: 2659 | Odgovora: 17 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.