My favorites | Sign in
Project Home
READ-ONLY: This project has been archived. For more information see this post.
Search
for
SyntaxCheck  
Syntax check your TCL code
Phase-QA
Updated Jul 6, 2011 by nfhm2k

Introduction

There are a number of ways you can syntax check your TCL scripts.

Details

  • #Tcl Pastebin - Designed to be tested with eggdrop in mind, powered by nagelfar (with special options).
  • nagelfar - Not specifically for eggdrop tcl without additional parameters (eg: nagelfar/nagelfar.tcl -markup -quiet -html -Welse0 -prefix l myscript.tcl)
  • Tcl syntax checker plugin for Komodo edit - again, for use with general TCL
Comment by wolfsong...@gmail.com, Aug 11, 2014
if {!$uri?} {
return $NoHTTPS
}
Comment by wolfsong...@gmail.com, Aug 11, 2014
set NoHTTPS {"tls package not found. Secure https unreachable."} set SeenHTTPS 0
proc CheckHTTPS {uri} {
if {$SeenHTTPS} {
return 1
}
  1. # If URI is https, register on default port 443
  2. # todo : make port configurable
if {-nocase ^(https://)(.*) $uri?} {
if {{package require tls}?} {
  1. Should we announce Failure in the GUI, as the error dialog will be shown elsewhere
  2. tk_messageBox -title "Xfcc Oops" -type ok -icon warning -message $NoHTTPS
return 0
} else {
http::register https 443 ::tls::socket set SeenHTTPS 1 return 1
}
} else {
return 1
}
}
Powered by Google Project Hosting