TclXMPP

Check-in [bdec1069ef]
Login

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

Overview
SHA1:bdec1069eff36c3f1c4f56d15c9bbc678a148505
Date: 2015-06-01 19:36:27
User: sgolovan
Comment:Allow one to rename the jsend.tcl to jsend when installing the examples.
Tags And Properties
Context
2015-06-02
08:28
[9b41e52763] Added a short manpage for the rssbot RSS/XMPP gateway example. (user: sgolovan, tags: trunk)
2015-06-01
19:36
[bdec1069ef] Allow one to rename the jsend.tcl to jsend when installing the examples. (user: sgolovan, tags: trunk)
15:37
[b65104f112] Added a short manual page for the jsend command line client example. (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