diff options
| author |   Gustavo Felisberto <humpback@gentoo.org> | 2006-10-28 22:33:52 +0000 |
|---|---|---|
| committer | Gustavo Felisberto <humpback@gentoo.org> | 2006-10-28 22:33:52 +0000 |
| commit | f09ae917a4c8e2d6b99045208a7452ea72b928b9 (patch) | |
| tree | 8a7ab8c4783437d25401d9dec6a215343b6f0fcf /net-im/tkabber/files | |
| parent | Remove monolithic X support and add pkgconfig to DEPEND. (bug #150804) (diff) | |
| download | gentoo-2-f09ae917a4c8e2d6b99045208a7452ea72b928b9.tar.gz gentoo-2-f09ae917a4c8e2d6b99045208a7452ea72b928b9.tar.bz2 gentoo-2-f09ae917a4c8e2d6b99045208a7452ea72b928b9.zip | |
new improved version
(Portage version: 2.1.1-r1)
Diffstat (limited to 'net-im/tkabber/files')
| -rw-r--r-- | net-im/tkabber/files/NAT_HTTP_filetransfer.diff | 75 | ||||
| -rw-r--r-- | net-im/tkabber/files/digest-tkabber-0.9.9 | 6 |
2 files changed, 81 insertions, 0 deletions
diff --git a/net-im/tkabber/files/NAT_HTTP_filetransfer.diff b/net-im/tkabber/files/NAT_HTTP_filetransfer.diff new file mode 100644 index 000000000000..8d858a196975 --- /dev/null +++ b/net-im/tkabber/files/NAT_HTTP_filetransfer.diff @@ -0,0 +1,75 @@ +--- plugins/filetransfer/http.tcl.orig 2006-09-25 14:59:45.000000000 +0200 ++++ plugins/filetransfer/http.tcl 2006-09-25 15:03:41.000000000 +0200 +@@ -5,6 +5,8 @@ + variable chunk_size 4096 + + variable options ++ variable defport 0 ++ variable defip "" + + custom::defgroup HTTP \ + [::msgcat::mc "HTTP options."] \ +@@ -13,10 +15,22 @@ + custom::defvar options(enable) 1 \ + [::msgcat::mc "Enable HTTP transport for outgoing file transfers."] \ + -group HTTP -type boolean ++ ++ custom::defvar defport 0 \ ++ [::msgcat::mc "Port for outgoing HTTP file transfers (0 for assigned automatically).\ ++ This is useful when sending files from behind a NAT with a forwarded port."] \ ++ -group HTTP -type integer ++ ++ custom::defvar defip "" \ ++ [::msgcat::mc "Force advertising this IP address for outgoing HTTP file transfers."] \ ++ -group HTTP -type string ++ + } + + proc http::send_file_dialog {user args} { + variable winid ++ variable defport ++ variable defip + + foreach {opt val} $args { + switch -- $opt { +@@ -51,13 +65,17 @@ + label $f.lip -text [::msgcat::mc "IP address:"] + entry $f.ip -textvariable [list [namespace current]::ip$winid] + variable ip$winid 127.0.0.1 +- catch { +- set ip$winid [info hostname] +- set ip$winid [lindex [host_info addresses [set ip$winid]] 0] +- } + +- catch { +- set ip$winid [lindex [fconfigure $jlib::lib($connid,sck) -sockname] 0] ++ if { [string compare $defip ""] != 0 } { ++ set ip$winid [set defip] ++ } else { ++ catch { ++ set ip$winid [info hostname] ++ set ip$winid [lindex [host_info addresses [set ip$winid]] 0] ++ } ++ catch { ++ set ip$winid [lindex [fconfigure $jlib::lib($connid,sck) -sockname] 0] ++ } + } + + ProgressBar $f.pb \ +@@ -136,6 +154,7 @@ + } + + proc http::send_file_offer {winid user filename desc ip args} { ++ variable defport + + foreach {opt val} $args { + switch -- $opt { +@@ -148,7 +167,7 @@ + + set servsock \ + [socket -server \ +- [list [namespace current]::send_file_accept $winid $filename] 0] ++ [list [namespace current]::send_file_accept $winid $filename] $defport] + + lassign [fconfigure $servsock -sockname] addr hostname port + diff --git a/net-im/tkabber/files/digest-tkabber-0.9.9 b/net-im/tkabber/files/digest-tkabber-0.9.9 new file mode 100644 index 000000000000..264a82ddfab5 --- /dev/null +++ b/net-im/tkabber/files/digest-tkabber-0.9.9 @@ -0,0 +1,6 @@ +MD5 72adb238e77018cee7ee5ac6358bdc51 tkabber-0.9.9.tar.gz 785288 +RMD160 ecaed256760caa30b97654c67852257dec770ba6 tkabber-0.9.9.tar.gz 785288 +SHA256 a5d3f38654a480d1ea2df60be3a5d9180d867fe400424ff09f8154fc86fc067a tkabber-0.9.9.tar.gz 785288 +MD5 2b0b8a7b15b80eb35b902d83f0e5626f tkabber-plugins-0.9.9.tar.gz 366148 +RMD160 920595ba427758d13be4398078a0d1bb400ac602 tkabber-plugins-0.9.9.tar.gz 366148 +SHA256 03435ab0e890d2ed7cee55e727c9a16136bbf89a12af28cf8a72f16080c5e96a tkabber-plugins-0.9.9.tar.gz 366148 |