Subversion Repositories or1k

#

# 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

}