Open Mash Cross Reference
mash/tcl/indiva/imgr/mob-conference.tcl

   # mob-conference.tcl --
   #
   #   Media object representation of a conference.
   #
   # Copyright (c) 1996-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/indiva/imgr/mob-conference.tcl,v 1.5 2002/06/20 00:00:39 weitsang Exp $
  
  import MobDirectory
  
  #--------------------------------------------------------------------
  # Class:
  #   MobConference
  # Description:
  #   Represents a conference, which contains a list of sessions. A
  #   MashConference can be initialized by a SDP description and can
  #   be converted into a SDP description.  Sessions can be added or 
  #   removed from a MobConference.  
  #--------------------------------------------------------------------
  Class MobConference -superclass MobDirectory
  
  #--------------------------------------------------------------------
  # Method:
  #   MobConference init
  # Description:
  #   Initialized a MobConference.  Based on arguments from $arg.
  # Arguments:
  #   args -- args is a list of {-attribute value} pair.  Possible
  #       attributes are:
  #       -sdp {desc} : This takes a SDP description $desc string 
  #                     and initialized the conference.  Sessions
  #                     can be created in the conference based on
  #                     $desc.
  #--------------------------------------------------------------------
  MobConference instproc init {name args} {
      # Set some default attributes.
      $self set_attribute "username" "indiva"
      $self set_attribute "session_id" [clock clicks -milliseconds]
      $self set_attribute "network_type"  "IN"
      $self set_attribute "address_type" "IP4"
      $self set_attribute "creator_address"  "[info hostname]"
  
      eval $self next $name $args
  }
  
  MobConference public get_type {} {
      return "conference"
  }
  
  
  MobConference proc get_ext {} {
      return ".con"
  }