🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: pl.comp.lang.php
6 messages
6 total messages Started by Metempsychoza Tue, 28 Aug 2001 05:41
Era - wysylanie sms-ow
#1343
Author: Metempsychoza
Date: Tue, 28 Aug 2001 05:41
80 lines
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
#1344
Author: Marcin
Date: Tue, 28 Aug 2001 06:47
16 lines
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
#1345
Author: Metempsychoza
Date: Tue, 28 Aug 2001 13:55
23 lines
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
#1346
Author: Qrak
Date: Tue, 28 Aug 2001 18:21
7 lines
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
#1347
Author: slawek-
Date: Tue, 28 Aug 2001 21:46
9 lines
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
#1348
Author: Grzegorz
Date: Wed, 29 Aug 2001 10:54
4 lines
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