###########
# 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 <pass> 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,<normalized buddy name>,<event>)
# 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 2k config limit!)
# 3 - Use the config from the host, but backup locally, if host config
#     is empty then use local config.
set ::TIK(options,localconfig) 3

# 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 <name> <onlyonce 0> <sound 1> <popim 1> <sendim 0> <msg ""> 
#                  <execcmd 0> <cmdstr "">
# 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 <B>Cool</B> Info!  Get <A HREF="http://www.aim.aol.com/tik">TiK</A>}

###########
# 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