/usr/share/obextool/plugins/smi_siem.tcl is in obextool 0.35-0ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | ###
### SMS incoming plugin for ObexTool
###
### (c) Gerhard Reithofer, Techn. EDV Reithofer - 2003-05
### gerhard.reithofer@tech-edv.co.at http://www.tech-edv.co.at
###
### See COPYING for further details
###
namespace eval ::SMI {
source $OBEXDIR/plugins/siemplug.tcl
load_Messages siemplug [getObexCfg config language] $version
proc add_flag_data { tf } {
global SMS_FLAG PDU_TYPE
variable header_data
set sa_data [pdu2phone $SMS_FLAG(SCA)]
set ts_data [pdu2time $SMS_FLAG(SCTS)]
set se_data [pdu2phone $SMS_FLAG(OA)]
set hd_data $header_data
set sa_lbl [get_text "Service center address:" siemplug]
set ts_lbl [get_text "Time stamp:" siemplug]
set se_lbl [get_text "Sender address:" siemplug]
set hd_lbl [get_text "Undocumented header:" siemplug]
foreach key [list sa ts se hd] {
eval "label_entry $tf.$key $${key}_lbl $${key}_data"
}
}
proc default_handler { args } {
debug_out "[namespace current]::default_handler $args" 5
global global_msg
set path [lindex $args 0]
set len [init_plugin $path]
if {$len < 0} return
set title [get_text "Incoming SMS file: %s" siemplug]
set stext [pdu2txt $global_msg $len]
sms_dialog [format $title $path] $stext
}
}
return $::SMI::version
|