Page MenuHomeDevCentral

D1323.id3397.diff
No OneTemporary

D1323.id3397.diff

diff --git a/Daeghrefn/Communication.tcl b/Daeghrefn/Communication.tcl
--- a/Daeghrefn/Communication.tcl
+++ b/Daeghrefn/Communication.tcl
@@ -30,7 +30,7 @@
set pass [registry get sms.$to.pass]
set xtra [registry get sms.$to.xtra]
if {$url == ""} {return "URL inconnue pour $to"}
-
+
#Check length
set len [string length $from$message]
if {$len > 113} {
@@ -63,7 +63,7 @@
default {
return "Unknown sms mode: $mode."
- }
+ }
}
}
@@ -76,7 +76,7 @@
# sms.$destinataire.url form URL
# sms.$destinataire.pass e.g. rose
# sms.$destinataire.xtra not needed for triskel forms, who=Darkknow needed for Wolfplex form
-
+
if {$arg == "" || $arg == "config"} {
#Prints config
switch [set mode [registry get sms.$handle.mode]] {
@@ -177,7 +177,7 @@
if {[twitter_token $account] != ""} {
switch [lindex $arg 2] {
"--force" { registry del twitter.oauth.tokens.$account }
- "" {
+ "" {
putdcc $idx "There is already a token set for this account. Please use '.twitter setup $account --force' to erase it."
return 0
}
@@ -247,7 +247,7 @@
#.identica
proc dcc:identica {handle idx arg} {
-
+
}
# Publishes to special accounts
@@ -390,7 +390,7 @@
# Mail
#
-# .mail
+# .mail
proc dcc:mail {handle idx arg} {
global mail special
if {$arg == ""} {
@@ -408,14 +408,14 @@
putdcc $idx "\002Alors, que désires tu envoyer comme mail ?\002"
putdcc $idx "Pour envoyer l'e-mail, entre une ligne ne contenant que ceci: \002+\002"
putdcc $idx "Pour annuler l'e-mail, entre une ligne ne contenant que ceci: \002-\002"
-
+
set mail($idx-subject) [truncate_first_word $arg]
if {$mail($idx-subject) == ""} {
putdcc $idx "\002Objet :\002"
} else {
putdcc $idx "\002Message :\002"
}
-
+
control $idx control:mail
dccbroadcast "Tiens, $handle est parti rédiger un mail ..."
}

File Metadata

Mime Type
text/plain
Expires
Sun, Nov 24, 14:56 (21 h, 8 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
2260193
Default Alt Text
D1323.id3397.diff (1 KB)

Event Timeline