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