Page Menu
Home
DevCentral
Search
Configure Global Search
Log In
Files
F3764041
D1048.id2696.diff
No One
Temporary
Actions
View File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Flag For Later
Size
802 B
Referenced Files
None
Subscribers
None
D1048.id2696.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] {
File Metadata
Details
Attached
Mime Type
text/plain
Expires
Sat, Nov 23, 03:58 (17 h, 47 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
2256449
Default Alt Text
D1048.id2696.diff (802 B)
Attached To
Mode
D1048: Set Twitter message length
Attached
Detach File
Event Timeline
Log In to Comment