Page MenuHomeDevCentral
Files F7165592

D1201.diff
No OneTemporary
Actions

D1201.diff
View Options

diff --git a/Core.tcl b/Core.tcl
--- a/Core.tcl
+++ b/Core.tcl
@@ -180,12 +180,11 @@
#\ -> \\
#' -> \'
string map {"\\" "\\\\" "'" "\\'"} $data
-
}
#Gets the first item of the first row of a sql query (scalar results)
proc sqlscalar {sql} {
- lindex [lindex [sql $sql] 0] 0
+ lindex [lindex [sql $sql] 0] 0
}
#Adds specified data to specified SQL table
diff --git a/Daeghrefn/Gerrit.tcl b/Daeghrefn/Gerrit.tcl
--- a/Daeghrefn/Gerrit.tcl
+++ b/Daeghrefn/Gerrit.tcl
@@ -185,7 +185,7 @@
# When a message is received, we sent the decoded json message
# to gerrit::callevent, which has the job to fire events and
# to call event callback procedures.
-
+
global buffers
if {$text == ""} {
diff --git a/Daeghrefn/Last.fm.tcl b/Daeghrefn/Last.fm.tcl
--- a/Daeghrefn/Last.fm.tcl
+++ b/Daeghrefn/Last.fm.tcl
@@ -11,7 +11,7 @@
}
"count" {
-
+
}
"top5" {
@@ -64,4 +64,4 @@
proc url {} {
registry get lastfm.api.url
}
-}
\ No newline at end of file
+}
diff --git a/Daeghrefn/Wikimedia.tcl b/Daeghrefn/Wikimedia.tcl
--- a/Daeghrefn/Wikimedia.tcl
+++ b/Daeghrefn/Wikimedia.tcl
@@ -152,7 +152,7 @@
if {![regexp $re $char]} { return 0 }
}
#UTF-8 ok
- }
+ }
return 1
}
@@ -221,7 +221,7 @@
if {![regexp "^\[a-z]\[A-Za-z0-9]*$" $setting]} {
return "Not a valid setting: $setting"
}
-
+
if {![regexp "^\[a-z]\[a-z0-9_]*$" $project]} {
return "Not a valid project: $project"
}
diff --git a/Daeghrefn/Wolfplex.tcl b/Daeghrefn/Wolfplex.tcl
--- a/Daeghrefn/Wolfplex.tcl
+++ b/Daeghrefn/Wolfplex.tcl
@@ -25,4 +25,3 @@
flush $fd
close $fd
}
-
diff --git a/TC2/Server.tcl b/TC2/Server.tcl
--- a/TC2/Server.tcl
+++ b/TC2/Server.tcl
@@ -1,25 +1,25 @@
# ===============================================
-# ========= ==== ====== ============
-# ============ ====== === === = ==========
-# ============ ===== ======== === =========
-# ============ ===== ============= ==========
-# ============ ===== ============ ===========
-# == DcK ===== ===== =========== ============
-# ============ ===== ========== =============
-# ============ ====== === === ==============
-# ============ ======= === ==========
+# ========= ==== ====== ============
+# ============ ====== === === = ==========
+# ============ ===== ======== === =========
+# ============ ===== ============= ==========
+# ============ ===== ============ ===========
+# == DcK ===== ===== =========== ============
+# ============ ===== ========== =============
+# ============ ====== === === ==============
+# ============ ======= === ==========
# ===============================================
# ===============================================
# == Tau Ceti Central == Server administration ==
# == This is a very dangerous product to use ==
# == Don't deploy it in stable environment ==
-# == Or say goodbye to the serv security ==
-# == This warning will not be repeated ==
-# == All your base are belong to us! ==
+# == Or say goodbye to the serv security ==
+# == This warning will not be repeated ==
+# == All your base are belong to us! ==
# ===============================================
# ===============================================
#
-# (c) 2011 Sﾃｩbastien Santoro aka Dereckson.
+# (c) 2001 Sﾃｩbastien Santoro aka Dereckson.
# Released under BSD license.
bind bot - tc2 bot:tc2
@@ -32,7 +32,7 @@
proc bot:tc2 {sourcebot command text} {
#Sourcebot: Nasqueron
#Command: tc2
- #Text: requester Dereckson command phpfpm arg status
+ #Text: requester Dereckson command phpfpm arg status
set requester [dict get $text requester]
set cmd [dict get $text command]
set arg [dict get $text arg]
@@ -69,9 +69,9 @@
proc tc2:username_exists {username} {
#TODO: Windows and other OSes (this line has been tested under FreeBSD)
if {[exec -- logins -oxl $username] == ""} {
- return 0
+ return 0
} {
- return 1
+ return 1
}
}
@@ -130,7 +130,7 @@
}
}
-#Creates an account $username froﾃm the $specified group
+#Creates an account $username from the $specified group
proc tc2:createaccount {username group} {
if {$group == "web"} {
set key "tc2.[tc2:hostname].wwwroot"
@@ -528,7 +528,7 @@
#.nginx server edit <domain> <+php|-php>
set subcommand [lindex $arg 1]
set domain [lindex $arg 2]
-
+
if {$subcommand != "" && $domain != "" && [tc2:isdomain $domain]} {
set fulldomain $domain
foreach "subdomain domain" [tc2:cutdomain $fulldomain] {}
diff --git a/Wearg/Notifications.tcl b/Wearg/Notifications.tcl
--- a/Wearg/Notifications.tcl
+++ b/Wearg/Notifications.tcl
@@ -5,7 +5,7 @@
namespace eval notifications {
proc init {} {
::broker::bind [registry get broker.queue.notifications] ::notifications::on_broker_message
-
+
bind * * * * ::notifications::channel_notify
bind "DockerHub" * * * ::notifications::docker_build_summary
}
@@ -58,7 +58,7 @@
foreach field "service project group rawContent type text link" {
lappend params [dict get $notification $field]
}
-
+
set matchingBinds 0
foreach bind [binds] {
if {[is_matching_notification_bind $bind $notification]} {

File Metadata

Mime Type
text/plain
Expires
Tue, Apr 22, 19:34 (22 h, 4 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
2596268
Default Alt Text
D1201.diff (5 KB)

Event Timeline

Nasqueron DevCentral · If it had been much bigger the moon would have had a core of ice. · Powered by Phabricator