TclXMPP

Check-in [e8ee93c2c5]
Login

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

Overview
SHA1:e8ee93c2c57794fed56cb12c1c19a2c7692c9448
Date: 2015-06-02 08:29:57
User: sgolovan
Comment:Replaced the literal rssbot.tcl string by $argv0 in short help notice.
Tags And Properties
Context
2015-06-02
09:02
[767ea9ff52] Added a simple makefile which installs the TclXMPP and bundled TclXML into /usr/lib and jsend.tcl and rssbot.tcl into /usr/local/bin (by default). (user: sgolovan, tags: trunk)
08:29
[e8ee93c2c5] Replaced the literal rssbot.tcl string by $argv0 in short help notice. (user: sgolovan, tags: trunk)
08:28
[9b41e52763] Added a short manpage for the rssbot RSS/XMPP gateway 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-02  Sergei Golovan  <sgolovan@nes.ru>




	* examples/rssbot.man: Added a short manpage for the rssbot RSS/XMPP
	  gateway example.

2015-06-01  Sergei Golovan  <sgolovan@nes.ru>

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

>
>
>







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

	* examples/rssbot.tcl: Replaced the literal rssbot.tcl string by
	  $argv0 in short help notice.

	* examples/rssbot.man: Added a short manpage for the rssbot RSS/XMPP
	  gateway example.

2015-06-01  Sergei Golovan  <sgolovan@nes.ru>

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

Changes to examples/rssbot.tcl.

1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
set status 1

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

if {(([set x [lsearch -exact $argv -help]] >= 0) \
            || ([set x [lsearch -exact $argv --help]] >= 0)) \
        && (![expr {$x % 2}])} {
    puts stdout "usage: rssbot.tcl ?options...?
            -pidfile     file
            -from        jid
            -password    string
            -tls         boolean (e.g., 'true')

The file .jsendrc.tcl is consulted, e.g.,

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

for default values."

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

        source $file








|













|







1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
set status 1

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

if {(([set x [lsearch -exact $argv -help]] >= 0) \
            || ([set x [lsearch -exact $argv --help]] >= 0)) \
        && (![expr {$x % 2}])} {
    puts stdout "usage: $argv0 ?options...?
            -pidfile     file
            -from        jid
            -password    string
            -tls         boolean (e.g., 'true')

The file .jsendrc.tcl is consulted, e.g.,

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

for default values."

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

        source $file