TclXMPP

Check-in [e8ee93c2c5]
Login

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

Overview
Comment:Replaced the literal rssbot.tcl string by $argv0 in short help notice.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:e8ee93c2c57794fed56cb12c1c19a2c7692c9448
User & Date: sgolovan 2015-06-02 08:29:57
Context
2015-06-02
09:02
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). check-in: 767ea9ff52 user: sgolovan tags: trunk
08:29
Replaced the literal rssbot.tcl string by $argv0 in short help notice. check-in: e8ee93c2c5 user: sgolovan tags: trunk
08:28
Added a short manpage for the rssbot RSS/XMPP gateway example. check-in: 9b41e52763 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