Thread View: pl.comp.lang.php
6 messages
6 total messages
Started by Metempsychoza
Tue, 28 Aug 2001 05:41
Era - wysylanie sms-ow
Author: Metempsychoza
Date: Tue, 28 Aug 2001 05:41
Date: Tue, 28 Aug 2001 05:41
80 lines
3211 bytes
3211 bytes
moze was zainteresuje:
<?php
# opis: wysylka sms-ow do abonentów sieci Era.
# autor: Metempsychoza <metempsychoza(at)wp.pl>
# do prawidlowego dzialania niezbedna jest biblioteka PEAR
# sposob uzycia:
# $era = new Era;
# $era->Send($numer, $wiadomosc, $podpis, $kontakt)
#
require_once "Net/Socket.php";
class Era extends Net_Socket {
var $url = "http://213.158.194.32/sms/sendsms.asp";
var $formdata = array();
function Era() {
$array = parse_url($this->url);
$this->Net_Socket();
Net_Socket::connect($array[host], 80);
Net_Socket::writeLine ("POST ".$array[path]." HTTP/1.0");
Net_Socket::writeLine ("Referer: ".$this->url);
Net_Socket::writeLine ("User-Agent: Mozilla/4.77");
Net_Socket::writeLine ("Accept: image/gif, image/jpeg, image/png,
*/*");
Net_Socket::writeLine ("Accept-Encoding: gzip");
Net_Socket::writeLine ("Accept-Language: en");
Net_Socket::writeLine ("Accept-Charset: iso-8859-2,*,utf-8");
Net_Socket::writeLine ("Content-type: application/x-www-form-urlencoded");
}
function Set($name, $value="0") {
$this->formdata[] = $name."=".urlencode($value);
}
function Fetch() {
$data_post = implode("&", $this->formdata)."\r\n";
$length = strlen($data_post);
Net_Socket::writeLine ("Content-length: ".$length."\r\n");
Net_Socket::writeLine ($data_post);
if("HTTP/1.1 200 OK" != Net_Socket::ReadLine())return false;
return Net_Socket::readAll();
}
function Send($numer, $wiadomosc, $podpis="0", $kontakt="0") {
$this->GetCode($code, $cookie);
Net_Socket::writeLine ("Cookie: ".$cookie);
$this->Set(bookopen);
$this->Set(ksiazka);
$this->Set(message, $wiadomosc);
$this->Set(messagebis);
$this->Set(numer, $numer);
$this->Set(podpis, $podpis);
$this->Set(kontakt, $kontakt);
$this->Set(termin);
$this->Set(Code, $code);
$this->Set(Nadaj, " tak-nadać ");
$s = $this->Fetch();
Net_Socket::disconnect();
return $s;
}
function GetCode(&$code, &$cookie) {
$code = new Era;
$code->Set(sms, 1);
$answer = $code->Fetch();
$code->disconnect();
$pattern = "/.*name=\"Code\" value=\"(.+?)\".*/i";
preg_match($pattern, $answer, $regs);
$pattern = "/^Set-Cookie:\s(.+?)$/im";
preg_match($pattern, $answer, $regs2);
$cookie = $regs2[1];
$code = $regs[1];
}
}
?>
--
metempsychoza(at)wp.pl
Re: Era - wysylanie sms-ow
Author: Marcin
Date: Tue, 28 Aug 2001 06:47
Date: Tue, 28 Aug 2001 06:47
16 lines
1173 bytes
1173 bytes
> moze was zainteresuje: bardzo, ale > return Net_Socket::readAll(); troche marnowanie czasu, wystarczyloby odczytac tylko do miejsca znalezienia "Code" > $this->Set(Nadaj, " tak-nadać "); a co to? no i nie ma sprawdzania czy sms zostal wyslany :( Marcin
Re: Era - wysylanie sms-ow
Author: Metempsychoza
Date: Tue, 28 Aug 2001 13:55
Date: Tue, 28 Aug 2001 13:55
23 lines
1423 bytes
1423 bytes
Użytkownik "Marcin" <marcin@sdi.pl> napisał w wiadomości news:9mfeml$1vq$1@news.tpi.pl... > > moze was zainteresuje: > > bardzo, ale > > > return Net_Socket::readAll(); > > troche marnowanie czasu, wystarczyloby odczytac tylko do miejsca > znalezienia "Code" pole Code i tak jest pod koniec > > $this->Set(Nadaj, " tak-nadać "); > > a co to? to jedno w pol formularza (przycisk submit) > no i nie ma sprawdzania czy sms zostal wyslany :( ruszą głową! -- metempsychoza(at)wp.pl
Re: Era - wysylanie sms-ow
Author: Qrak
Date: Tue, 28 Aug 2001 18:21
Date: Tue, 28 Aug 2001 18:21
7 lines
1104 bytes
1104 bytes
IMHO niezłe. W erze sie wkurwią, jak ten skrypt się sklonuje :). Dobrze im tak :) :) :) -- pozdr. Qrak tomek-w@wp.pl
Re: Era - wysylanie sms-ow
Author: slawek-
Date: Tue, 28 Aug 2001 21:46
Date: Tue, 28 Aug 2001 21:46
9 lines
1235 bytes
1235 bytes
"Qrak" <tomek-w@wp.pl> napisał: > IMHO niezłe. W erze sie wkurwią, jak ten skrypt się sklonuje :). Dobrze im tak :) :) :) Bramka ery "poddała się" już dawno. Zobacz choćby te skrypty: http://sokrates.mimuw.edu.pl/~zagrodzki/mailsms.html slawek-
Re: Era - wysylanie sms-ow
Author: Grzegorz
Date: Wed, 29 Aug 2001 10:54
Date: Wed, 29 Aug 2001 10:54
4 lines
951 bytes
951 bytes
A ja dziekuje za ten skrypt. Dziala bez zarzutu. Pozdr. Grzegorz
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads