########### # TIK Config File # # Example ~/.tik/tikrc # # This file is sourced after the login window and buddy # window are created, but before they are shown. If # you want color changes to show up, they should be in # ~/.tik/tikpre ########### ########### # CONFIG VARS # # Here is a list of the different vars you can set. # Just uncomment and change the string. ########### ################ OPEN PORT PROXY ##################### # The TOC servers listen to EVERY port, if 5190 is blocked on your system # change it. Many firewalls leave ports 21, 25, 80, or 6000 open. #set TOC(production,port) 5190 ################ HTTP PROXY ##################### # If you need to use a HTTP proxy to access web pages then # set these. This is ONLY for fetching web pages, and NOT used # for to connecting to the TOC servers. # #set HTTPPROXY "proxy.domain.com" ;# Hostname of the web proxy #set HTTPPORT "3180" ;# Port of the web proxy #set TIK(options,HTTPProxy,enable) 1 ;# Enable the web proxy. ################ SOCKS PROXY ##################### # If you are using SOCKS you need to set the following things. The # proxy is used for connecting to the TOC server NOT for fetching web # pages. You *MUST* set TOC(production,host) to the ip address of # "toc.oscar.aol.com". The suggested way to find out the ip address # is "nslookup toc.oscar.aol.com" at the command line. If this # this doesn't work please contact your network administrator. # We can not tell you the ip address of toc.oscar.aol.com or # how to get it, other then the above suggestion. # # WARNING: The ip address of toc.oscar.aol.com WILL change # sometimes. Currently there is no good way to do a nslookup in tcl # that we are aware of, so you WILL need to change it once and a while. # #set SOCKSHOST "socks.domain.com" ;# Hostname of YOUR socks machine #set SOCKSPORT 1080 #set TOC(production,host) "10.10.10.10" ;# IP of toc.oscar.aol.com #set USEPROXY Socks ################ SSL/HTTP PROXY ##################### # If you are using SSL/HTTP you need to set the following things. # This is used for connecting to the TOC server NOT for fetching web pages. # #set SSLHOST "ssl.domain.com" ;# Hostname of YOUR ssl machine #set SSLPORT 3128 #set TOC(production,port) "443" ;# Most SSL proxies require this. #set USEPROXY "SSL/HTTP" #The following is ONLY needed if your SSL Proxy requires Basic Authorization: #set SSLNEEDAUTH 1 #set SSLUSER sslusername #set SSLPASS sslpassword ################ SIGN ON VARIABLES ##################### # If you want the screenname or password field filled in. # Use ./tik.tcl -roast to get a roasted version of # the password so it isn't in clear text, although it isn't # any more secure then clear text. #set SCREENNAME "myscreenname" #set PASSWORD "mypassword" #tik_signon ;#For auto login #set ::TIK(options,persistent) 1 ;# Reconnect when accidentally disconnected ## Sound Files - Can use full paths if you want. ## To turn off an individual sound just uncomment the ## correct line and change the sound file to "none". # set ::TIK(SOUND,Send) media/Send.au # set ::TIK(SOUND,Receive) media/Receive.au # set ::TIK(SOUND,ChatSend) media/Send.au # set ::TIK(SOUND,ChatReceive) media/Receive.au # set ::TIK(SOUND,Arrive) media/BuddyArrive.au # set ::TIK(SOUND,Depart) media/BuddyLeave.au ## You can also have per buddy sounds for Send/Receive/Arrive/Depart ## by setting ::TIK(SOUND,,) # set ::TIK(SOUND,example,Arrive) media/SillyArrived.au ########### # OPTIONS # # Options that control how the TiK app works. ########### # Default OPTIONS set ::TIK(options,imtime) 1 ;# Display timestamps in IMs? set ::TIK(options,chattime) 1 ;# Display timestamps in Chats? # Heights: # == 0 :One Line Entry. Resizing keeps it 1 line # >= 1 :Text Entry, Multiline. Resizing may increase number of lines # <= -1 :Text Entry, Multiline. Same as >=1 but with scroll bar. set ::TIK(options,iimheight) 4 ;# Initial IM Entry Height set ::TIK(options,cimheight) 0 ;# Converation IM Entry Height set ::TIK(options,chatheight) 0 ;# Chat Entry Height set ::TIK(options,cimexpand) 0 ;# If cimheight is not 0, then this ;# determins if the entry area expands ;# on resize. # imcolor & chatcolor are bit fields -- OR the following together # 0x1 - Support foreground colors # 0x2 - Support character group background colors # 0x4 - Support body background colors set ::TIK(options,imcolor) 1 ;# Process IM colors how? set ::TIK(options,chatcolor) 1 ;# Process Chat colors how? set ::TIK(options,defaultchatcolor) "#000000" ;# Default Chat color set ::TIK(options,defaultimcolor) "#000000" ;# Default IM color set ::TIK(options,windowgroup) 0 ;# Group TiK windows together ## WARNING: Tk & some modern window manangers don't work well together ## if rasieim, raisechat are turned on, you will see a 2 second pause. set ::TIK(options,raiseim) 0 ;# Raise IM window on new message set ::TIK(options,deiconifyim) 0 ;# Deiconify IM window on new message set ::TIK(options,raisechat) 0 ;# Raise Chat window on new message set ::TIK(options,deiconifychat) 0 ;# Deiconify Chat window on new message set ::TIK(options,monitorrc) 1 ;# Monitor rc file for changes? set ::TIK(options,monitorrctime) 20000 ;# Check for rc file changes how often (millisecs) set ::TIK(options,monitorpkg) 1 ;# Monitor pkgs for changes? set ::TIK(options,monitorpkgtime) 20000 ;# Check the pkg dir for changes how often (millisecs) # When receiving a new message we can flash the scroll bar. set ::TIK(options,flashim) 1 ;# Flash IM sb when new msg set ::TIK(options,flashimtime) 500 ;# ms between flashes set ::TIK(options,flashimcolor) blue ;# Flash color is set ::TIK(options,showgrouptotals) 1 ;# Show the group totals set ::TIK(options,showidletime) 1 ;# Show the idle time of buddies set ::TIK(options,showicons) 1 ;# Show the icons set ::TIK(options,padframe) 1 ;# Pad Buddy Window? set ::TIK(options,sagborderwidth) 2 ;# Border width for sag windows. # 0 - Enter/Ctl-Enter insert NewLine, Send Button Sends # 1 - Ctl-Enter inserts NewLine, Send Button/Enter Sends # 2 - Enter inserts NewLine, Send Button/Ctl-Enter Sends # 3 - No Newlines, Send Button/Ctl-Enter/Enter Sends set ::TIK(options,msgsend) 1 # 0 - Use the config from the host # 1 - Use the config from ~/.tik/NSCREENNAME.config # 2 - Use the config from ~/.tik/NSCREENNAME.config & keep this config # on the host. (Remember the host has a 1k config limit!) set ::TIK(options,localconfig) 0 # 0 - Don't report idle time # 1 - Report idle time set ::TIK(options,reportidle) 1 set ::TIK(options,idlewatchmouse) 1 ;# Watch the global mouse pointer set ::TIK(options,reportidleafter) 900 ;# Report idle after this long (secs) # Buddy Colors set ::TIK(options,buddymcolor) black set ::TIK(options,buddyocolor) blue set ::TIK(options,groupmcolor) black set ::TIK(options,groupocolor) red # Window Manager Classes set ::TIK(options,imWMClass) Tik set ::TIK(options,chatWMClass) Tik ##### Ticker Package Options #### # The ticker now has tons of options, see the top of packages/ticker.tcl # for more info set ::TIK(options,Ticker,on) 0 ;# Ticker on? set ::TIK(options,Ticker,aim) 0 ;# Display AIM buddies? #set ::TIK(options,Ticker,geometry) 670x26+215+5 ;# Location of Ticker #tik_default_set options,Ticker,lines 2 ;# Number of lines #tik_default_set options,Ticker,AIM,line 0 ;# Buddies on what line? #tik_default_set options,Ticker,notice,line 1 ;# Notice on what line? #tik_default_set options,Ticker,SlashMeat,line 0 ;# SlashMeat on what line? #tik_default_set options,Ticker,Stocks,line 0 #tik_default_set options,Ticker,Wx,line 0 ##### Stock Package Options #### set ::TIK(options,Stock,update) 300000 ;# Update Time (ms) ##### Search Package Options #### set ::TIK(options,Search,display) 1 ;# display search? set ::TIK(options,Search,default) "NetFind" ;# Default engine ##### Away Package Options #### ## How many times do we send an away message to a particular user? ## By default 1 since this can open us up to evil attacks. #set ::TIK(options,Away,sendmax) 1 ## Do we send an idle message: #set ::TIK(options,Away,sendidle) 0 ## How many seconds do we wait before sending the idle message. ## This gives us a chance to type a answer before it is sent. #tik_default_set options,Away,idlewait 5 ## What is the idle away msg: tik_default_set options,Away,idlemsg \ "Sorry %n, I'm away from my computer right now. -- %N" ##### Pounce Package Options #### # To register people to pounce use (the defaults are included) # pounce::register # # Example 1: pounce::register TicTocTikTac # Example 2: pounce::register TicTocTikTac 0 1 1 1 "Auto send this" 0 "" ########### # WM Commands # # The login window and buddy window are created on start up # so you can set the size and stuff here. ########### #wm geometry .buddy 250x800-15+80 #wm geometry .login +400+400 #If you set SCREENNAME above then this will take us to the password #focus .login.pwE ########### # FUNCTIONS # # Tcl lets you override functions, here are some of the # functions you may need to replace, since their default # implementation is platform specific. ########### # Use the currently open netscape window to display # URLS. Ignore the window param for now. #proc tik_show_url {window url} { ##Default: Use Netscape # catch {exec netscape -remote openURL($url) &} ##Use KDE Browser # catch {exec kfmclient exec $url &} #} # You may have to write your own play sound method, we include # some examples here and see tik.tcl for more examples. Please send # any working routines to tictoc-list@aol.net along with output # of `uname -s` and platform info. SOUNDPLAYING is used to keep # multiple sounds from playing at the same time. #proc tik_play_sound {soundfile} { # if {($soundfile == "none") || $::SOUNDPLAYING || # (![file exists $soundfile])} { # return # } # set ::SOUNDPLAYING 1 # after [expr [file size $soundfile] / 8] set ::SOUNDPLAYING 0 # ##Default Implementation -- # catch {exec dd if=$soundfile of=/dev/audio 2> /dev/null &} ##Use "play" which is already installed on some machines, this usually uses SOXs # catch {exec play $soundfile 2> /dev/null &} ##SOX Implementation -- Sheraz Sharif # catch {exec sox $soundfile -t .au - > /dev/audio &} ##NAS (Network Audio System) Implementation -- # catch {exec /usr/local/bin/auplay $soundfile &} ##Windows 95: wplany Implementation -- # catch {exec wplany $soundfile &} ##ESDPlay Implementation -- Stevie Strickland # catch {exec esdplay $soundfile &} #} ########### # INFO # # Want to set your info? Shameless default plug here. :-) ########### tik_set_info {This is my Cool Info! Get TiK} ########### # Away Messages # # Away messages to show up in the menu. You can use the following codes # in your messages to change them dynamically. # # %n - Who sent the IM # %N - Your screen name # %i - Idle time in seconds # %I - Idle time in minutes # %e - Your current evil level # %j - Last TiK Event (Local Time) # %J - Last TiK Event (UTC/GMT) # %t - Current Time (Local) # %T - Current Time (UTC/GMT) # %F - Execute Command and Return Output # %% - A percent sign ########### away::register "Gone to lunch. I'll be back in an hour." away::register "In a meeting. I'll be back soon." away::register "I'm adding more features to Tik. Be back soon." ########### # Stocks to monitor. # # If you don't want to montior stocks remove the packages/ystocks.tcl file. # ystock is available from the TiK home page. ########### catch { ystock::add AOL AOL ystock::add SUN SUNW ystock::add Yahoo YHOO } ########### # Minimalist - kjr # If you want to make the buddy list less cluttered. Also need # to change the tikstrs and tikpre file. See example.* ########### #pack forget .buddy.im ;# Remove the buttons from the buddy list #pack forget .buddy.chat ;# You can still use Control-[icl] to #pack forget .buddy.info ;# im, chat, or get info #pack forget .buddy.list.sb ;# Remove the scrollbar from the buddy list #.menubar delete [tik_str M_HELP] ;# Move Help Menu to first item in Tools #.toolsMenu insert 0 cascade -label [tik_str M_HELP] -menu .menubar.help #set ::TIK(options,showgrouptotals) 0 ;# Don't show the group totals #set ::TIK(options,showidletime) 0 ;# Don't show the idle time of buddies ;# this doesn't effect packages. #set ::TIK(options,showicons) 0 ;# Don't show ANY icons #set ::TIK(options,removedelay) 0 ;# Change icons right away