Obsah fóra www.hojko.com
Homefórum.sk
Hľadať  •  FAQ  •  IP  •  CS  •  Zoznam užívateľov  •  Karma  •  Závisláci  •  Registrácia
 Prihlásiť sa pre kontrolu súkromných správ  •  Prihlásenie

Veľa šťastia, zdravia, lásky a úspechov v novom roku prajeme...






PHP Scripty
Odoslať novú tému   Odpovedať na tému    Obsah fóra www.hojko.com -> Programovanie Choď na stránku 1, 2, 3, 4, 5  Ďalšia 
 Moje príspevky :: Hľadanie v téme:  
Autor Správa
warezman
Professional
Professional


Pohlavie: Pohlavie:Muž
Stav: Odhlásený
Založený: 27.02.2006
Príspevky: 1521

Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 02 Jan 2007, 23:35    Predmet: PHP Scripty Odpovedať s citátom  
Sem dávajte svoje php scripty!
Upload script:

meno súboru:upload.php
Kód:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Upload</title>
</head>
<body>
<h2>Warezman Upload Script</h2>
<form action="upload.php" method="post" enctype="multipart/form-data">
<div><input name="subor" type="file" /></div>
<div><input name="upload" type="submit" value="upload" /></div>
</form>
<?php
 if (!empty($_POST['upload'])):
     if (is_uploaded_file($_FILES["subor"]["tmp_name"])):
     $subor_cesta = $_SERVER['DOCUMENT_ROOT']."<prepisat>/admin</prepisat>";
     $subor_name = $_FILES["subor"]["name"];
     copy($_FILES["subor"]["tmp_name"], "$subor_cesta/$subor_name");
     echo "<a href=\"<prepisat>http://localhost/admin/$subor_name</prepisat>\">Subor uploadnuty,klikni pre zobrazenie</a>";
     else:
     echo "Subor sa neda uploadnut :)";
     endif;
 endif;
?>
</body>
</html>

Funguje na php4 aj php5
Nezabudnite prepísať názov domény a cestu k uploadu,inak to nebude fungovať!!!
Ohladom scriptov pište do ss nech nu neni spam!
Sťiahnuť
(c) 2007 by warezman
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu Zobraziť autorove WWW stránky
mastermind
Moderátor
Moderátor


Pohlavie: Pohlavie:Muž
Stav: Odhlásený
Založený: 09.02.2005
Príspevky: 4752

Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 02 Jan 2007, 23:49    Predmet: Odpovedať s citátom  
ak tu chceme mat taku temu, bolo by dobrem aby sa sem pridavali len skriptym ktore budu fungovat bez ohladu na konfiguraciu php.
teda take skriptym ktore predpokladaju napr. zapnute register_globals, ako pripad vyssie, tu nechcem vidiet.
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu
zupanok
Medium Star
Medium Star



Stav: Odhlásený
Založený: 19.12.2005
Príspevky: 319
Bydlisko: MT
Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 03 Jan 2007, 8:31    Predmet: Odpovedať s citátom  
ešte lepšie by bolo, keby sa toho ujal niektorý moderátor, jemu by sa scripty zaslali, a on by to po odskúšaní zverejnil, samozrejme mal by to byť odborník

//mastermind: ja nemam cas a iny tu nie je Very Happy Very Happy
//audiotrack: mastermind nabudúce čítaj príspevky dokonca, posledné slovo ti ušlo Cool
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu
warezman
Professional
Professional


Pohlavie: Pohlavie:Muž
Stav: Odhlásený
Založený: 27.02.2006
Príspevky: 1521

Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 03 Jan 2007, 10:50    Predmet: Odpovedať s citátom  
Aká je moja ip adresa??

súbor:ip.php
Kód:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>IP Adresa</title>
</head>
<body>
<h1>Aká je moja ip adresa??</h1>
<?
$ip=$_SERVER['REMOTE_ADDR'];
echo "<h3>Moja ip adresa je $ip<h3>"
?>
</body>
</html>

Funguje na php4,php5
Ohladom scriptov pište do ss nech nu neni spam!
Sťiahnuť
(c) 2007 by warezman
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu Zobraziť autorove WWW stránky
warezman
Professional
Professional


Pohlavie: Pohlavie:Muž
Stav: Odhlásený
Založený: 27.02.2006
Príspevky: 1521

Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 03 Jan 2007, 19:55    Predmet: Odpovedať s citátom  
IP Bloker !

meno súboru:index.php
Kód:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Zablokovanie IP</title>
</head>
<body>
<?php
include("mysql.php");
$mysql=mysql_query("SELECT ip FROM ban");
while($lock=mysql_fetch_object($mysql))
if($_SERVER['REMOTE_ADDR'] == $lock->ip):
die("Vasa ip adresa je zablokovana kontaktujte administratora");
endif;
echo "Heh,tvoja ip neni zablokovana";
?>
</body>
</html>

meno súboru:ban.php
Kód:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Zablokovanie IP - ADMIN</title>
</head>
<body>
<h2>Zablokovane IP</h2>
<?
include("mysql.php");
$frt=mysql_query('ALTER TABLE `ban` ORDER BY `id`DESC');
$sql=mysql_query("SELECT * FROM ban ");
while($stlpec = mysql_fetch_object($sql))
{
 $ipka = $stlpec->ip;
 echo "<div>$ipka</div>";
}
if (empty($ipka)):
echo "Ziadna ip neni zablokovana!";
endif;
?>
<h2>Zablokovanie IP</h2>
<form action="ban.php" method="post">
<input type="text" name="ip" value=""/>
<input type="submit" name="ban" value="Zablokuj IP"/>
</form>
<?
 if (!empty($_POST['ban'])):
   if (!empty($_POST['ip'])):
   $ippost = $_POST['ip'];
   $sql=mysql_query("SELECT * FROM ban");
   while($stlpec = mysql_fetch_object($sql))
   $idko = $stlpec->id;
    if (empty($idko)):
    $id=1;
    else:
    $id=$idko+1;
    endif;
   $sql = MySQL_Query("INSERT INTO ban VALUES ('$id','$ippost')");
   echo"Zablokovaná IP";   
   else:
   echo"Nezadal si IP";   
   endif;   
 endif;   
?>
<h2>Odblokovanie IP</h2>
<form action="ban.php" method="post">
<?
$sql=mysql_query("SELECT * FROM ban ");
while($stlpec = mysql_fetch_object($sql))
{
$ipka = $stlpec->ip;
$idko = $stlpec->id;
echo "<div><input name=\"id\" type=\"radio\" value=\"$idko\" />";
echo "$ipka &nbsp;";
echo "<input type=\"submit\" name=\"zmaz\" value=\"Odblokuj IP\"></div>";
}
if (empty($idko)):
echo "Ziadnu IP netreba odblokovat.";
endif;

 if (!empty($_POST['zmaz'])):
    if (!empty($_POST['id'])):
    $id = $_POST['id'];
    $sql = MySQL_Query("DELETE FROM `ban` WHERE `id` = $id");
     if(!$sql):
     echo "Neodblokovane";
     else:
     echo "Odblokovane";
     endif;
    else:
    echo "<div>Ani nevies koho chces odblokovat.</div>";
    endif; 
 endif;   
?>
</form>
</body>
</html>

meno súboru:mysql.php
Kód:
<?php
if (!@$spojenie = MySQL_Connect("localhost", "uzivatelske_meno", "heslo")):
 echo "Nepodarilo sa pripojit k databáze!";
 die;
endif;
if (!@$select = MySQL_Select_Db("databaza")):
 echo "Chyba pri výbere databáze!";
 die;
endif;
?>

príkaz na sql:
Kód:
CREATE TABLE `ban` (
  `id` int(8) NOT NULL default '0',
  `ip` varchar(50) NOT NULL default ''
) ENGINE=MyISAM DEFAULT CHARSET=latin1;

Testovane na php4,mysql4
Nezabudnite prepísať pripojenie do mysql!!!
Ohladom scriptov pište do ss nech nu neni spam!
Sťiahnuť
(c) 2007 by warezman
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu Zobraziť autorove WWW stránky
roman3x
Medium Star
Medium Star



Stav: Odhlásený
Založený: 02.11.2005
Príspevky: 448

Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 03 Jan 2007, 20:50    Predmet: Odpovedať s citátom  
warezman napísal:
IP Bloker !

meno súboru:index.php
Kód:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Zablokovanie IP</title>
</head>
<body>
<?php
include("mysql.php");
$mysql=mysql_query("SELECT ip FROM ban");
while($lock=mysql_fetch_object($mysql))
if($_SERVER['REMOTE_ADDR'] == $lock->ip):
die("Vasa ip adresa je zablokovana kontaktujte administratora");
endif;
echo "Heh,tvoja ip neni zablokovana";
?>
</body>
</html>

Toto mas celkkom nehospodarne, lebo vzdy nacitas z DB vsetky IPCky a potom ich prechadzas. Efektivnejsie je urobit dotaz:
Kód:
$mysql=mysql_query("SELECT ip FROM ban where ip ='{$_SERVER['REMOTE_ADDR']}'");

a ten vyhodnotit. Dalsie zrychlenie dosiahnes, ked zaindexujes stlpec 'ip'. Mozno aj ip2long -> previest na cislo a to mat ulozene v DB a to kontrolovat. Neviem, co bude rychlejsie fungovat.
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu Zobraziť autorove WWW stránky
jurko.info
Medium Expert
Medium Expert



Stav: Odhlásený
Založený: 22.11.2006
Príspevky: 104

Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 06 Jan 2007, 10:42    Predmet: transkripcia LATINKA > BREILLOVO PÍSMO Odpovedať s citátom  
Uživateľskú funkciu breill(); som (dosť ťažkopádne) napísal pre jednu stránku istého združenia pomáhajúcemu nevidiacim ľuďom. jej funkčnosť si môžete vyzkúšať na adrese http://www.jurko.info/stranka_breill/index.php a samotný kód funkcie je:

Kód:

function breill($retazec,$jazyk){
/* ======== nastavenia ========= */
$imagepath = ""; // cesta k súborom aj s lomítkami (rel. alebo abs.)
$imageext = ".gif"; // formát obrázkov s breillovými znakmi
/* ============================= */
$vysledok = "";
$slovo = explode (" ",$retazec);
$slovop = sizeof($slovo);

for($iii = 0; $iii <= ($slovop - 1); $iii++){
$dlzka = strlen($slovo[$iii]);

if(is_numeric($slovo[$iii])&&strlen($slovo[$iii])>"1"){
   $vysledok .= "<img id='breill_znak' src='".$imagepath."3456".$imageext."' alt='&nbsp;' />";
   for($n = 0; $n <= ($dlzka - 1); $n++)
   {
   $znak = substr($slovo[$iii],$n,1);
   $rozloz = explode(",",$jazyk[$znak]);
   $vysledok .= "<img id='breill_znak' src='".$imagepath.$rozloz[1].$imageext."' alt='".$znak."' />";
   }
   $vysledok .= "<img src='".$imagepath."0".$imageext."' alt='&nbsp;' />\n";
   }

elseif(ereg("^[AÁÄBCČDĎEÉFGHIÍJKLĹĽMNŇOÓÔPQRŔSŠTŤUÚVWXYÝZŽ]{2,}$",$slovo[$iii])&&strlen($slovo[$iii])>"1"){
   $vysledok .= "<img id='breill_znak' src='".$imagepath."6".$imageext."' alt='&nbsp;' />";
   for($n = 0; $n <= ($dlzka - 1); $n++)
   {
   $znak = substr($slovo[$iii],$n,1);
   $rozloz = explode(",",$jazyk[$znak]);
   $vysledok .= "<img id='breill_znak' src='".$imagepath.$rozloz[1].$imageext."' alt='".$znak."' />";
   }
   $vysledok .= "<img src='".$imagepath."0".$imageext.".gif' alt='&nbsp;' />\n";
   }

else{
   for($i = 0; $i <= ($dlzka - 1); $i++)
   {
   $znak = substr($slovo[$iii],$i,1);
   if(in_array($jazyk[$znak],$jazyk)){
      if(ereg("^[0-6]$",$jazyk[$znak])){
         $vysledok .= "<img id='breill_znak' src='".$imagepath.$jazyk[$znak].$imageext."' alt='".$znak."' />";
         }
      else{
         $rozloz = explode(",",$jazyk[$znak]);
         $rozlozp = sizeof($rozloz);
         for($ii = 0; $ii <= ($rozlozp - 1); $ii++)
         {$vysledok .= "<img id='breill_znak' src='".$imagepath.$rozloz[$ii].$imageext."' alt='".$znak."' />";}
         }

      }
   else{
      $vysledok .= "<span id='breill_chyba'>".$znak."</span>";
      }
   }
   $vysledok .= "<img src='".$imagepath."0".$imageext."' alt='&nbsp;' />\n";
   }
}
return $vysledok;
}


kde $retazec je text, ktorý sa má transkriptovať a $jazyk je pole obsahujúce breillove znaky charakteristické pre určitú jazykovú skupinu. Pre slovenský jazyk to môže byť napríklad:

Kód:

$jazyksk = array(
" " => "0","a" => "1","á" => "16","ä" => "4","b" => "12","c" => "14",
"č" => "146","d" => "145","ď" => "1456","e" => "15","é" => "345",
"f" => "124","g" => "1245","h" => "125","i" => "24","í" => "34",
"j" => "245","k" => "13","l" => "123","ľ" => "456","ĺ" => "46",
"m" => "134","n" => "1345","ň" => "1246","o" => "135","ó" => "246",
"ô" => "23456","p" => "1234","q" => "112345","r" => "1235",
"ŕ" => "12345","s" => "234","š" => "156","t" => "2345","ť" => "1256",
"u" => "136","ú" => "346","v" => "1236","w" => "2456","x" => "1346",
"y" => "13456","ý" => "12346","z" => "1356","ž" => "2346",

"A" => "6,1","Á" => "6,16","Ä" => "6,4","B" => "6,12","C" => "6,14",
"Č" => "6,146","D" => "6,145","Ď" => "6,1456","E" => "6,15",
"É" => "6,345","F" => "6,124","G" => "6,1245","H" => "6,125",
"I" => "6,24","Í" => "6,34","J" => "6,245","K" => "6,13","L" => "6,123",
"Ľ" => "6,456","Ĺ" => "6,46","M" => "6,134","N" => "6,1345",
"Ň" => "6,1246","O" => "6,135","Ó" => "6,246","Ô" => "6,23456",
"P" => "6,1234","Q" => "6,112345","R" => "6,1235","Ŕ" => "6,12345",
"S" => "6,234","Š" => "6,156","T" => "6,2345","Ť" => "6,1256",
"U" => "6,136","Ú" => "6,346","V" => "6,1236","W" => "6,2456",
"X" => "6,1346","Y" => "6,13456","Ý" => "6,12346","Z" => "6,1356",
"Ž" => "6,2346",

"1" => "3456,1","2" => "3456,12","3" => "3456,14","4" => "3456,145",
"5" => "3456,15","6" => "3456,124","7" => "3456,1245",
"8" => "3456,125","9" => "3456,24","0" => "3456,245",
);


použitie je veľmi jednoduché:

Kód:

<?php
$retazec = "Nejaký ten textík.";
echo breill($retazec,$jazyksk);
?>


Súbory s obrázkami jednotlivých znakov som zpakoval (*.zip) na adrese:
http://www.jurko.info/stranka_breill/breill_files_gif.zip (12 kB).
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu Odoslať e-mail Zobraziť autorove WWW stránky
warezman
Professional
Professional


Pohlavie: Pohlavie:Muž
Stav: Odhlásený
Založený: 27.02.2006
Príspevky: 1521

Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 06 Jan 2007, 13:28    Predmet: Odpovedať s citátom  
IP Logger

index.php
Kód:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>IP Logger</title>
</head>
<body>
<?
$datum  = date("d-M-Y - H:i:s");
$ip=$_SERVER['REMOTE_ADDR'];
$zkade=$HTTP_REFERER;
 if(empty ($zkade)):
 $zkade="neznamej adresy";
 endif;
$kam="<prepisat>/home/admin/stats-www.html</prepisat>";
$ulozit = fopen("$kam", "a+");
$log  = "<div>Dna $datum bol na www z ip: $ip prisiel z $zkade</div>";
fwrite($ulozit, "$log");
fclose($ulozit);
?>
</body>
</html>

Testovane na php5
Nezabudnite si prepísať premmennú kam,posledný adresár musí mať atributy 777.
Ohladom scriptov pište do ss nech nu neni spam!
Sťiahnuť
(c) 2007 by warezman
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu Zobraziť autorove WWW stránky
final
Light Star
Light Star


Pohlavie: Pohlavie:Muž
Stav: Odhlásený
Založený: 04.12.2005
Príspevky: 207
Bydlisko: Prievidza
Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 07 Jan 2007, 18:24    Predmet: Odpovedať s citátom  
(opravený) script na posielanie správ do icq siete.. (trochu som to ešte zmenil, aby to išlo na viacerých hostingoch)..

použitie

Kód:
include_once('./script.php');

$icq = new icq;

if($icq->pripoj('icq', 'heslo') === TRUE)
  {
  $icq->sprava('icq', 'sprava');
  $icq->sprava('icq', 'dalsia sprava');
  $icq->odpoj();
  }
else
  {
  echo('zle prihlasenie, alebo docasne odstavene prihlasovanie');
  }


script.zip
 Popis:

Stiahnúť
 Názov súboru:  script.zip
 Veľkosť prílohy:  1.26 kB
 Stiahnutí:  189 krát
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu
DomCZo
Expert
Expert



Stav: Odhlásený
Založený: 16.10.2006
Príspevky: 145

Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 20 Jan 2007, 15:48    Predmet: Odpovedať s citátom  
Finalway: to posielanie mi nefunguje. http://pool.profitux.cz/script_index.php
Ked dam zle heslo, tak mi to vypise "zle prihlasenie, alebo docasne odstavene prihlasovanie". Teraz je tam zadane vsetko dobre, a predsa mi spravy nepridu. Posielam jednu spravu z jedneho cisla na druhe.
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu
roman3x
Medium Star
Medium Star



Stav: Odhlásený
Založený: 02.11.2005
Príspevky: 448

Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 20 Jan 2007, 17:48    Predmet: Citanie kontakt listu v ICQ? Odpovedať s citátom  
a na citanie stavu(online-offline) uzivatela v ICQ ste nevideli niekto niekde?
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu Zobraziť autorove WWW stránky
DomCZo
Expert
Expert



Stav: Odhlásený
Založený: 16.10.2006
Príspevky: 145

Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 20 Jan 2007, 18:34    Predmet: Odpovedať s citátom  
Toto som nasiel a trosku upravil. Funguje to dobre.
Kód:
<?php


function GetICQ($uin)
{
   $uin = str_replace('-', '', $uin);

   if(!is_numeric($uin)) return FALSE;

   $fp = fsockopen('status.icq.com', 80, &$errno, &$errstr, 8);
   if (!$fp)
   {
      return "N/A";
   }
   else
   {
      $request = "HEAD /online.gif?icq=$uin HTTP/1.0\r\nHost: web.icq.com\r\nConnection: close\r\n\r\n";
      fputs($fp, $request);
      do
      {
         $response = fgets($fp, 1024);
      }
      while(!feof($fp) && !stristr($response, 'Location'));
      fclose($fp);

      if(strstr($response, 'online1')) return 'Online';
      if(strstr($response, 'online0')) return 'Offline';
      if(strstr($response, 'online2')) return 'N/A';
      // N/A unamena, ze uzivatel si nastavil moznost, ze jeho
      // status nemoze byt viditeny cez internet
      return false;
   }
}


echo GetICQ("111-111-111");


?>
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu
roman3x
Medium Star
Medium Star



Stav: Odhlásený
Založený: 02.11.2005
Príspevky: 448

Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 20 Jan 2007, 19:54    Predmet: Odpovedať s citátom  
jaaaj, ja blbec, na ten web status, som uplne zabudol Wink dik
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu Zobraziť autorove WWW stránky
mastermind
Moderátor
Moderátor


Pohlavie: Pohlavie:Muž
Stav: Odhlásený
Založený: 09.02.2005
Príspevky: 4752

Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 21 Jan 2007, 2:47    Predmet: Odpovedať s citátom  
bolo by to dobre prerobit do nejakej triedy pretoze, takato funkcionalita sa zvykne pri jednom generovani stranky pouzit viackrat (userlist) a bolo by zbytocne aby to zakazdym vytvaralo novy socket.
to len taky detail
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu
roman3x
Medium Star
Medium Star



Stav: Odhlásený
Založený: 02.11.2005
Príspevky: 448

Karma:  Odobrať Kladná karma Pridať
PríspevokZaslal: 21 Jan 2007, 11:19    Predmet: Odpovedať s citátom  
Kód:
<?php

class StatusICQ
{
  # identifikator spojenia na icq server
  var $fp;

  # uspesnost spojenia so servrom
  var $conn;
 
  function StatusICQ()
  {
    $this->fp = fsockopen('status.icq.com', 80, $errno, $errstr, 30);
    if ($this->fp)
    {
      $this->conn = true;
      return true;
    }
    else
    {
      $this->conn = false;
      return false;
    }
  }
 
  function GetOneICQ($uin)
  {
    $uin = str_replace('-', '', $uin);
   
    if(!is_numeric($uin)) return false;     

    $request = "HEAD /online.gif?icq=$uin HTTP/1.0\r\nHost: web.icq.com\r\nConnection: Keep-Alive\r\n\r\n";
   
    fputs($this->fp, $request);
    do
    {
      $response = fgets($this->fp, 1024);
    }
    while(!feof($this->fp) && !stristr($response, 'Location'));
   
    if(strstr($response, 'online1')) return 'Online';
    if(strstr($response, 'online0')) return 'Offline';
    if(strstr($response, 'online2')) return 'N/A';
    // N/A unamena, ze uzivatel si nastavil moznost, ze jeho
    // status nemoze byt viditeny cez internet
    return $response;
    return false;
  }

  function CloseICQ()
  {
    fclose($this->fp);
  }
 
  function GetICQ($uins)
  {
    if (is_array($uins))
    {
      $ret = array();
      foreach ($uins as $uin)
      {
        $ret[$uin] = $this->GetOneICQ($uin);
      }
      return $ret;
    }
    else
    {
      return $this->GetOneICQ($uins);
    }
  }

}


$contact_list = "111-111-111";
# alebo
$contact_list = array("11-111-111","111-111-111","477-827-971");

$icq = new StatusICQ();
if ($icq->conn){
  echo "<pre>";
  print_r($icq->GetICQ( $contact_list ));
  echo "</pre>";
}else{
  echo "ICQ status server neodpovedal.\n";
}
$icq->CloseICQ();

?>

inac so statickym volanim:
Kód:
$fp = fsockopen('status.icq.com', 80, &$errno, &$errstr, 8);
to mne osobne neslo
Návrat hore
Zobraziť informácie o autorovi Odoslať súkromnú správu Zobraziť autorove WWW stránky
Zobraziť príspevky z predchádzajúcich:    Časy uvádzané v GMT + 1 hodina
Odoslať novú tému   Odpovedať na tému    Obsah fóra www.hojko.com -> Programovanie Choď na stránku 1, 2, 3, 4, 5  Ďalšia
Strana 1 z 5

 
Prejdi na:  
Nemôžete odosielať nové témy do tohto fóra
Nemôžete odpovedať na témy v tomto fóre
Nemôžete upravovať svoje príspevky v tomto fóre
Nemôžete mazať svoje príspevky v tomto fóre
Nemôžete hlasovať v tomto fóre
Nemôžete pripájať súbory do tohto fóra
Môžete sťahovať súbory v tomto fóre


Powered by phpBB © 2005 phpBB Group, phpBB SEO, © Hojko 2004-2009

[ Vygenerované za: 0.3s ] :: [ 18 Queries ] :: [ 121,833 stránok za dnes ] :: [ Dnes DB: 1,954,211 ] :: [ Max DB: 3,232,735 Queries ]