TclXMPP

Check-in [bdec1069ef]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Allow one to rename the jsend.tcl to jsend when installing the examples.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:bdec1069eff36c3f1c4f56d15c9bbc678a148505
User & Date: sgolovan 2015-06-01 19:36:27
Context
2015-06-02
08:28
Added a short manpage for the rssbot RSS/XMPP gateway example. check-in: 9b41e52763 user: sgolovan tags: trunk
2015-06-01
19:36
Allow one to rename the jsend.tcl to jsend when installing the examples. check-in: bdec1069ef user: sgolovan tags: trunk
15:37
Added a short manual page for the jsend command line client example. check-in: b65104f112 user: sgolovan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.

1



2
3
4
5
6
7
8
2015-06-01  Sergei Golovan  <sgolovan@nes.ru>




	* examples/jsend.man: Added a short manual page for the jsend
	  command line client example.

2015-05-11  Sergei Golovan  <sgolovan@nes.ru>

	* xmpp/blocking.tcl, xmpp/bosh.tcl, xmpp/muc.tcl, xmpp/ping.tcl,

>
>
>







1
2
3
4
5
6
7
8
9
10
11
2015-06-01  Sergei Golovan  <sgolovan@nes.ru>

	* examples/jsend.tcl: Allow one to rename the jsend.tcl to jsend when
	  installing the examples.

	* examples/jsend.man: Added a short manual page for the jsend
	  command line client example.

2015-05-11  Sergei Golovan  <sgolovan@nes.ru>

	* xmpp/blocking.tcl, xmpp/bosh.tcl, xmpp/muc.tcl, xmpp/ping.tcl,

Changes to examples/jsend.tcl.

493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
...
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
}


set status 1

array set jsend::lib [list lastwhen [clock seconds] lastwhat ""]

if {[string equal [file tail [lindex $argv 0]] "jsend.tcl"]} {
    incr argc -1
    set argv [lrange $argv 1 end]
}

if {(([set x [lsearch -exact $argv -help]] >= 0) \
            || ([set x [lsearch -exact $argv --help]] >= 0)) \
        && (($x == 0) || ([expr {$x % 2}]))} {
    puts stdout \
"usage: jsend.tcl recipient ?options...?
            -follow      file
            -pidfile     file
            -from        jid
            -host        hostname
            -port        number
            -password    string
            -type        string (e.g., 'chat')
................................................................................

    set args {-from fred@example.com/bedrock -password wilma}

for default values."

    set status 0
} elseif {($argc < 1) || (![expr {$argc % 2}])} {
    puts stderr "usage: jsend.tcl recipent ?-key value?..."
} elseif {[catch {
    if {([file exists [set file .jsendrc.tcl]]) \
            || ([file exists [set file ~/.jsendrc.tcl]])} {
        set args {}

        source $file








|








|







 







|







493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
...
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
}


set status 1

array set jsend::lib [list lastwhen [clock seconds] lastwhat ""]

if {[string equal [file rootname [file tail [lindex $argv 0]]] jsend]} {
    incr argc -1
    set argv [lrange $argv 1 end]
}

if {(([set x [lsearch -exact $argv -help]] >= 0) \
            || ([set x [lsearch -exact $argv --help]] >= 0)) \
        && (($x == 0) || ([expr {$x % 2}]))} {
    puts stdout \
"usage: $argv0 recipient ?options...?
            -follow      file
            -pidfile     file
            -from        jid
            -host        hostname
            -port        number
            -password    string
            -type        string (e.g., 'chat')
................................................................................

    set args {-from fred@example.com/bedrock -password wilma}

for default values."

    set status 0
} elseif {($argc < 1) || (![expr {$argc % 2}])} {
    puts stderr "usage: $argv0 recipent ?-key value?..."
} elseif {[catch {
    if {([file exists [set file .jsendrc.tcl]]) \
            || ([file exists [set file ~/.jsendrc.tcl]])} {
        set args {}

        source $file