cd ircservices*

pico modules/operserv/main.c

static void do_raw(User *u);

static void do_sms(User *u);

    {"RAW",       do_raw,       is_services_admin, OPER_HELP_RAW,       -1,-1},

    {"SMS",       do_sms,       NULL,   OPER_HELP_SMS,       -1,1},

static void do_raw(User *u)
{
    char *text = strtok_remaining();
    if (!text)
        syntax_error(s_OperServ, u, "RAW", OPER_RAW_SYNTAX);
    else
        send_cmd(NULL, "%s", text);
}

static void do_sms(User *u)
{
    char *msg = strtok_remaining();
    char *nick = strtok(NULL, " ");
    NickInfo *ni;
    if (!msg) {
        syntax_error(s_OperServ, u, "SMS", SMS_SEND_SYNTAX);
        return;
    }
    if (nick_is_services_oper(ni))
       notice_lang(s_OperServ, u, SMS_SENT, nick);
    send_cmd(s_OperServ, "PRIVMSG #opers %s %s", u->nick, msg);
}

pico lang/index

OPER_RAW_SYNTAX

SMS_SEND_SYNTAX

OPER_HELP_RAW

OPER_HELP_SMS
SMS_SENT

pico lang/tr.l

OPER_RAW_SYNTAX
        RAW metin

SMS_SEND_SYNTAX
        SMS Telefonnumarasi mesaj

OPER_HELP_RAW
        Kullanimi: RAW metin
        Direk olarak Services'in bagli oldugu sunucuya bir metin
        gonderir. Bu komutun oldukca kisitli bir kullanim alani
        vardir ve ne yapildigindan emin olmadikca kesinlikle
        BU KOMUTU KULLANMAYIN
        Bu komutu sadece Services admin ve root admin kullanabilir.

OPER_HELP_SMS
        Oper/admin icin ozel sms calismasi, oper/adminler
        gunluk belirlenen kotalari dahilinde sms hakkina sahip olurlar.
        GSM Operatoru farketmeksizin sms yollanabilir.

SMS_SENT
        SMS isteginiz inceleniyor, ulasip ulasmamasi durumunda
        bildiri alicaksiniz.

STATS Services'in ve network'un durumu.
SERVERMAP Network haritasini gösterir.
OPER LIST Services operator'leri listeler.
ADMIN LIST Services admin'leri listeler.

SMS Oper-Adminlere ozel sms hizmeti.

make

make install

alias sms {
  if $len($2) != 11 || $left($2,1) != $chr(48) {
    sw nomercy os raw :OperServ NOTICE $1 :Gonderilecek numarayi yanlis girdiniz. Ayrintili bilgi icin: /os help SMS yaziniz.
    return
  }
  if $2 !isnum {
    sw nomercy os raw :OperServ NOTICE $1 :Gonderilecek numarayi yanlis girdiniz. Ayrintili bilgi icin: /os help SMS yaziniz.
    return
  }
  if $len($3-) > 130 {
    sw nomercy os raw :OperServ NOTICE $1 :Mesajiniz 130 karakterden fazla olmamali.
    return
  }
  if %smshak. [ $+ [ $1 ] ] == 3 {
    sw nomercy os raw :OperServ NOTICE $1 :SMS hakkiniz dolmustur. Bir gun icerisinde toplam 3 SMS gonderebilirsiniz.
    return
  }
  inc -u86400 %smshak. [ $+ [ $1 ] ] 1
  _set socksms $+(sms.,$1)
  _set $+(mesaj.,$_get(socksms)) $replace($3-,$chr(32),+) $+ + $+ $+(-,$1,-)
  _set $+(numara.,$_get(socksms)) $2
  sockclose $_get(socksms)
  sockopen $_get(socksms) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
  sw nomercy os raw :OperServ NOTICE $1 :Istediginiz SMS basariyla iletilmistir. iyi gorevler dileriz.
}
on *:sockopen:sms.*: {
  sockwrite -nt $sockname GET /smssend/smssend.php?mesaj= $+ $_get($+(mesaj.,$sockname)) $+ &numara= $+ $_get($+(numara.,$sockname)) HTTP/1.1
  sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -nt $sockname $crlf
}
on *:sockread:sms.*: {
  sockread %sms
  echo -s 4 %sms
}

  sockopen $_get(socksms) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80

  sockopen $_get(socksms) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80

sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

sockwrite -nt $sockname GET /smssend/smssend.php?mesaj= $+ $_get($+(mesaj.,$sockname)) $+ &numara= $+ $_get($+(numara.,$sockname)) HTTP/1.1

<?php 
function HTTPPoster($prmPostAddress,$prmSendData){
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL,$prmPostAddress); 
curl_setopt($ch, CURLOPT_RETURNTRANSFER,1); 
curl_setopt($ch, CURLOPT_TIMEOUT, 30); 
curl_setopt($ch, CURLOPT_POSTFIELDS, $prmSendData); 
$result = curl_exec($ch);
return $result;
}
$mesaj =@$HTTP_GET_VARS["mesaj"];
$numara =@$HTTP_GET_VARS["numara"];
$strXML = "<MainmsgBody><UserName>KULLANICIADINIZ</UserName><PassWord>PASSWORDGIRISINIZ</PassWord><Action>0</Action><Mesgbody>$mesaj</Mesgbody><Numbers>$numara</Numbers><Originator>SUNUCUADINIZ</Originator><SDate></SDate></MainmsgBody>";
$strDonus = HTTPPoster("http://gateway.mobilus.net/com.mobilus",$strXML);
echo $strDonus;
?>