Hello! This website is a demo on how you can use TCL scripting language to make a website Superlinux: The Linux and TCL company
" incr i; if { [expr "$i%2" ] == 0 } { set tmp_img_tags "$tmp_img_tags"; set img_tags "$img_tags $tmp_img_tags" ; set tmp_img_tags ""; } } } puts -nonewline "
About this page

This page lists all the projects made by friends of superlinux.net in Tcl/Tk.


unable to open database file while executing "sqlite3 file_db "/var/www/superlinux-sqlite-tcl/include/cms.sqlite""

OUTPUT BUFFER:

puts -nonewline "" package require sqlite3 # #===============================Database Settings============// set mode "online1"; #$mode = "local" is for testing. $mode="online" for production. if { $mode=="local" } { set db_host "localhost"; set db_user "root"; set db_pass "975008"; set db "cms"; #$file_db= new PDO('sqlite:/var/www/superlinux-sqlite-tcl/include/cms.sqlite'); sqlite3 file_db "/var/www/superlinux-sqlite-tcl/include/cms.sqlite" } if { $mode=="online" } { # $db_host = "localhost"; # $db_user = "749979_root"; # $db_pass = "975008"; # $db="superlinux_zxq_school"; # //chown('/www/zxq.net/s/u/p/superlinux/htdocs/include/cms.sqlite', 2001); # $file_db= new PDO('sqlite:/www/zxq.net/s/u/p/superlinux/htdocs/include/cms.sqlite'); #sqlite3 file_db "/var/www/superlinux-sqlite-tcl/include/cms.sqlite" sqlite3 file_db "/smartarray/home/www_superlinux_net/superlinux-sqlite-tcl/cms.sqlite" } if { $mode=="online1" } { set db_host "localhost"; set db_user "root"; set db_pass "ab4pqmz5"; set db "visitor"; # //chown('/www/zxq.net/s/u/p/superlinux/htdocs/include/cms.sqlite', 2001); # $file_db= new PDO('sqlite:/www/zxq.net/s/u/p/superlinux/htdocs/include/cms.sqlite'); sqlite3 file_db "/var/www/superlinux-sqlite-tcl/include/cms.sqlite" } #//=============================Web Site Title=====================================// #//this sets the of the page set website_title "Superlinux: The Linux and TCL company"; #============================Web site Copyright=================================// set copyright "All rights reserved for Superlinux.net.
Website Powered by Tcl scripting language and the Tcl for the Apache 2 module Rivet
same website in PHP here"; set copyright "$copyright
This website is run by Host1Plus.com"; #//================================MASS MAIL SETTINGS===============// #base URL to be used in the html message that should show the broadcast images correctly set domain_url ""; #the From header in the html message. this should have the Email of the comapny generally. set email_from "ranixlb@gmail.com"; puts -nonewline " "

while executing "parse "include/config.rvt""

OUTPUT BUFFER:

puts -nonewline "
About this page

This page lists all the projects made by friends of superlinux.net in Tcl/Tk.

" # /* # * display list of company products # * To change this template, choose Tools | Templates # * and open the template in the editor. # */ parse "include/config.rvt"; set cwd [pwd] set query1 "select * from product where product_type='Tcl Store' order by product_id"; file_db eval $query1 { puts -nonewline "
" puts -nonewline $product_name; puts -nonewline "

" puts -nonewline $product_desc; puts -nonewline "

Price:" puts -nonewline $product_price; puts -nonewline "

" if {[string length [string trim $product_id]]>0} { set query2 "select image_id from product_images where product_id= $product_id"; set img_tags ""; set i 0; set tmp_img_tags ""; file_db eval $query2 { set tmp_img_tags "$tmp_img_tags
" puts $img_tags; puts -nonewline "
" } file_db close; puts -nonewline " "

while executing "parse "include/$page_id.rvt""

OUTPUT BUFFER:

puts -nonewline "" # if (empty($_GET["page_id"]) || !file_exists("include/".$_GET["page_id"].".php")) { # $page_id='home'; # }else { # $page_id = $_GET["page_id"]; # } #parse "../config.rvt" set query "select name from script where name= :page_id and is_link_enabled=1 limit 1" set statement [dbcon prepare $query ] set page_id [var_qs get page_id] $statement foreach row { set name [ dict get $row name ] } $statement close if { ![file exists "include/$page_id.rvt"] || $name !=$page_id } { set page_id "home" } parse "include/$page_id.rvt"; puts -nonewline " "

while executing "parse "include/left_pane.rvt"" (in namespace eval "::request" script line 46) invoked from within "namespace eval request { puts -nonewline "" parse "../config.rvt"; puts "Hello! This website is a demo on how you can use TCL scripting language to m..."

OUTPUT BUFFER:

namespace eval request { puts -nonewline "" parse "../config.rvt"; puts "Hello! This website is a demo on how you can use TCL scripting language to make a website"; puts -nonewline " " puts -nonewline $website_title; puts -nonewline "
" parse "include/links.rvt"; puts -nonewline "
" parse "include/left_pane.rvt"; puts -nonewline "
" parse "include/footer.rvt"; puts -nonewline "

" puts $copyright puts -nonewline "

" }