Open Mash Cross Reference
mash/tcl/mb/net.tcl

   # net.tcl --
   #
   #       FIXME: This file needs a description here.
   #
   # Copyright (c) 1998-2002 The Regents of the University of California.
   # All rights reserved.
   #
   # Redistribution and use in source and binary forms, with or without
   # modification, are permitted provided that the following conditions are met:
  #
  # A. Redistributions of source code must retain the above copyright notice,
  #    this list of conditions and the following disclaimer.
  # B. Redistributions in binary form must reproduce the above copyright notice,
  #    this list of conditions and the following disclaimer in the documentation
  #    and/or other materials provided with the distribution.
  # C. Neither the names of the copyright holders nor the names of its
  #    contributors may be used to endorse or promote products derived from this
  #    software without specific prior written permission.
  #
  # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
  # AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  # ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR
  # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
  # CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  # OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  #
  #  @(#) $Header: /usr/mash/src/repository/mash/mash-1/tcl/mb/net.tcl,v 1.9 2002/02/03 04:27:17 lim Exp $
  
  
  import Configuration SRMAgent AnnounceListenManager/AS/Client/MeGa
  
  #
  # Initializes some of the network state for the mediaboard.
  #
  Class MBNet -configuration {
          megaMbFormat null
          # multicast is default
          megaRecvMbPort 0
          mbSessionBW 20
          megaMbCtrl 224.4.5.24/50000/31
          megaMbCtrlBW 20000
          mbServiceLocation urn:mbgw
  
          delayParams default
          mbSessionSpec "224.2.55.66/8000"
  }
  
  #
  # Creates an SRMAgent and MeGa Client if desired.
  #
  MBNet instproc init { ui mbMgr } {
          global mb
  
          set srcList [$ui set srcList_]
          set pageList [[$ui set pageNavPanel_] set pageList_]
  
          $mbMgr proc new_source { src } "$srcList register \$src"
          $mbMgr proc cname_update { src newname }  \
                      "$srcList update_src_info \$src \$newname ; \
                       $pageList update_src_info \$src \$newname"
  
          set luid [$self get_option uid]
          if { $luid != "" } {
                  set luid [format %x $luid]
          }
  
          $self instvar mbAgent_ addr_
          set mbAgent_ [new SRMAgent $luid]
  
          if { [$self get_option megaMbSession] != "" } {
                  $self start_mega
  
                  set prefix [$self get_option iconPrefix]
                  set hostname [lindex [split [info hostname] .] 0]
                  append prefix "@" $hostname ":"
                  set conf "Contacting MeGa..."
                  $ui window_title $prefix $conf
          } else {
                  set addr_ [$self get_option mbSessionSpec]
          }
  
          $self instvar session_
          set session_ [$mbAgent_ create-session $mbMgr $mbMgr]
          $mbMgr attach_session $session_
  
          set params [$self get_option delayParams]
          if {"$params"!="default"} {
                  eval $session_ delay-params $params
          }
  
          $mbMgr attach_ui $ui
  }
  
  
  MBNet public start_mega { } {
         $self instvar al_ mbAgent_ addr_
 
         if [info exists al_] { delete $al_ }
         if { [$self get_option megaMbSession] != "" } {
                 set sname [$self get_option megaMbSession]
                 set sspec [$self get_option mbSessionSpec]
                 set rportspec [$self get_option megaRecvMbPort]
                 set ofmt [$self get_option megaMbFormat]
 
                 set sbw [$self get_option mbSessionBW]
                 set bw [expr 0.02*$sbw*1000]
                 set megaspec [$self get_option megaMbCtrl]
                 set loc [$self get_option mbServiceLocation]
                 set al_ [new AnnounceListenManager/AS/Client/MeGa \
                                 $mbAgent_ $megaspec $bw mb mb \
                                 $sname $sspec $rportspec $ofmt $loc]
                 $al_ start
                 set addr_ ""
         }
 }
 
 
 MBNet public reset_mega {} {
         $self instvar al_
         if ![info exists al_] {
                 $self start_mega
         } else {
                 $al_ reset_spec [$self get_option mbSessionSpec]
         }
 }
 
 
 #
 MBNet instproc adjust_spec {} {
         $self instvar mbAgent_ addr_
 
         if { $addr_ != "" } {
                 #addressblock uses a different syntax,
                 #so we have to change it..
                 set comps [split $addr_ /]
                 if {[llength $comps] > 2} {
                         $self add_default defaultTTL [lindex $comps 2]
                 }
                 $mbAgent_ reset_spec [lindex $comps 0]/[lindex $comps 1]
         }
 }
 
 # accessor function
 MBNet instproc session { } {
         $self instvar session_
         return $session_
 }
 
 # accessor function
 MBNet instproc mbAgent { } {
         $self instvar mbAgent_
         return $mbAgent_
 }