On Wed, 2002-02-13 at 18:11, Bjorn Wesen wrote: > (or we could implement it from vICQ
This is actually based on the Net::ICQ2000 perl module at http://icq2000.phase3solutions.com/ICQ2000.pm Here's an excerpt of this (must be viewed in context to really be useful, but it's amazing how simple this looks) that sends SMS messages) if ($event->{MessageType} eq "SMS"){ push(@TempPacket, _int_to_bytes(2, 0xd007)); push(@TempPacket, _int_to_bytes(1, $Me->{_Mem})); push(@TempPacket, _int_to_bytes(4, 0x00821400)); push(@TempPacket, _int_to_bytes(4, 0x01001600)); push(@TempPacket, _int_to_bytes(17, 0)); my $TimeString = gmtime(); if ($TimeString =~ /(\w+) (\w+) ?(\d+) (\d+:\d+:\d+) (\d+)/){ $TimeString = $1.", ".$3." ".$2." ".$5." ".$4." GMT"; } else { print "Unable to encode time...[$TimeString]\n"; return; } unless ($event->{delivery_receipt} eq "Yes"){$event->{delivery_receipt} = "No"}; $event->{senders_name} or ($event->{senders_name} = "Robbot"); my $SMSMessage = "<icq_sms_message><destination>".$event->{SMS_Dest_Number}."</destination><text>".$event->{text}."</text>"; $SMSMessage .= "<codepage>1252</codepage><senders_UIN>".$Me->{_UIN}."</senders_UIN><senders_name>".$event->{senders_name}."</senders_name>"; $SMSMessage .= "<delivery_receipt>".$event->{delivery_receipt}."</delivery_receipt><time>$TimeString</time></icq_sms_message>"; my $SMSLength = length($SMSMessage)+1; push(@TempPacket, _int_to_bytes(2, $SMSLength)); push(@TempPacket, _str_to_bytes($SMSMessage)); push(@TempPacket, _int_to_bytes(1, 0)); #null end.. } Of course, ICQ doesn't even support AT&T, so why do I care about this? :) Ryan _______________________________________________ Licq-devel mailing list [EMAIL PROTECTED] https://lists.sourceforge.net/lists/listinfo/licq-devel
