D1048.id2680.diff
No OneTemporary
Actions

Size

879 B

Referenced Files

None

Subscribers

None

D1048.id2680.diff
View Options

	diff --git a/Daeghrefn/Communication.tcl b/Daeghrefn/Communication.tcl
	--- a/Daeghrefn/Communication.tcl
	+++ b/Daeghrefn/Communication.tcl
	@@ -17,6 +17,12 @@
	bind pub - !style pub:styleencyclo

	#
	+# Constants
	+#
	+
	+set TWITTER_MESSAGE_LEN 280
	+
	+#
	# SMS
	#

	@@ -347,13 +353,15 @@
	}

	proc twitterpublish {account nick text} {
	+ global TWITTER_MESSAGE_LEN
	+
	if {$text == ""} {
	putquick "NOTICE $nick :Syntaxe : !pub <texte à publier sur identi.ca et Twitter>"
	return
	}
	set len [twitter_compute_len $text]
	- if {$len > 140} {
	- putquick "NOTICE $nick :140 caractères max, là il y en a $len ([twitter_get_short_url_length] par lien)."
	+ if {$len > $TWITTER_MESSAGE_LEN} {
	+ putquick "NOTICE $nick :$TWITTER_MESSAGE_LEN caractères max, là il y en a $len ([twitter_get_short_url_length] par lien)."
	return
	}
	if [twitterpost $account $text] {