[Anton Kovalenko]: GSM library for [tcl]
---- 
A library [http://45.free.net/~akovalenko/gsm-1.1.tar.gz] to communicate with GSM mobile phone and to 
send/receive [SMS].

Usage samples:

    set phone [open COM1 r+]
    foreach {manuf model revision} [gsm::phone::acquire $phone] {break}
    puts "Phone model: $manuf $model ($revision)"
    gsm::io::atcmd $phone Z
    # set default timeout
    gsm::io::timeout $phone 4000
    set gdconts [gsm::io::atcmd $phone +CGDCONT]
    ...
    gsm::phone::sendsms $phone +79163453402 \
                 "Hello Anton, I'm testing your library"
    gsm::phone::sendsms $phone +79163453402 "Unicode test: \u0412 "

    foreach sm [gsm::pdu::assemble [gsm::phone::readsms $tty ME 4]] {
      array set sm1 $sm
      puts "Storage id $sm1(id), assembled from $sm1(parts)"
      puts "From/to $sm1(peer): $sm1(text)"
    }

It is possible to use it with my [infrared] mini-extension.
Just pass to gsm::phone::acquire a [socket] 
connected to IrDA:IrCOMM service.

----
This library is used in SMS Reception Center [http://sw4me.com]
----

As an alternative to the character conversion implemented in the gsm library, the [encoding] command can be extended with a gsm0338 encoding: [GSM 03.38 encoding]

----
[Zarutian] 29. september:
But if you dont have and IrDa capable computer/phone handy you can use the procedure bellow.
  
 proc GSM_sendSMS {phonenumber text} {
   # the number must have international country code prefix
   package require http
   if {[string range $phonenumber 0 4] == "+354"} {
     # find out if number is at OgVodafone or Landsíma Íslands
     # _ctl1:_oContentSection:_ctl1:txtMSISDN <- phonenum here.
     set token [http::geturl http://www.ogvodafone.is/index.aspx?GroupId=3784 -post 
   }
 }

''Still in progress''