You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
65 lines
1.7 KiB
Tcl
65 lines
1.7 KiB
Tcl
15 years ago
|
#
|
||
|
|
# internet.tcl - tcl interface to various internet functions
|
||
|
|
#
|
||
|
|
# Copyright (C) 1998 Cygnus Solutions
|
||
|
|
#
|
||
|
|
|
||
|
|
# ------------------------------------------------------------------
|
||
|
|
# send_mail - send email
|
||
|
|
# ------------------------------------------------------------------
|
||
|
|
|
||
|
|
proc send_mail {to subject body} {
|
||
|
|
global tcl_platform
|
||
|
|
|
||
|
|
switch -- $tcl_platform(platform) {
|
||
|
|
windows {
|
||
|
|
ide_mapi simple-send $to $subject $body
|
||
|
|
}
|
||
|
|
unix {
|
||
|
|
exec echo $body | mail -s $subject $to &
|
||
|
|
}
|
||
|
|
default {
|
||
|
|
error "platform \"$tcl_platform(platform)\" not supported"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# ------------------------------------------------------------------
|
||
|
|
# open_url - open a URL in a browser
|
||
|
|
# Netscape must be available for Unix.
|
||
|
|
# ------------------------------------------------------------------
|
||
|
|
|
||
|
|
proc open_url {url} {
|
||
|
|
global tcl_platform
|
||
|
|
switch -- $tcl_platform(platform) {
|
||
|
|
windows {
|
||
|
|
ide_shell_execute open $url
|
||
|
|
# FIXME. can we detect errors?
|
||
|
|
}
|
||
|
|
unix {
|
||
|
|
if {[catch "exec netscape -remote [list openURL($url,new-window)]" result]} {
|
||
|
|
if {[string match {*not running on display*} $result]} {
|
||
|
|
# Netscape is not running. Try to start it.
|
||
|
|
if {[catch "exec netscape [list $url] &" result]} {
|
||
|
|
tk_dialog .warn "Netscape Error" "$result" error 0 Ok
|
||
|
|
return 0
|
||
|
|
}
|
||
|
|
} elseif {[string match {couldn't execute *} $result]} {
|
||
|
|
tk_dialog .warn "Netscape Error" "Cannot locate \"netscape\" on your system.\nIt must be installed and in your path." error 0 Ok
|
||
|
|
return 0
|
||
|
|
} else {
|
||
|
|
tk_dialog .warn "Netscape Error" "$result" error 0 Ok
|
||
|
|
return 0
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
default {
|
||
|
|
error "platform \"$tcl_platform(platform)\" not supported"
|
||
|
|
return 0
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return 1
|
||
|
|
}
|
||
|
|
|
||
|
|
|