D1048.diff
No OneTemporary
Actions

Size

802 B

Referenced Files

None

Subscribers

None

D1048.diff
View Options

	diff --git a/Daeghrefn/Communication.tcl b/Daeghrefn/Communication.tcl
	--- a/Daeghrefn/Communication.tcl
	+++ b/Daeghrefn/Communication.tcl
	@@ -346,14 +346,16 @@
	twitterpublish $account $nick $text
	}

	+proc twitter_message_len {} { return 140 }
	+
	proc twitterpublish {account nick text} {
	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] {