1 # almserver-trancoder.tcl --
2 #
3 # FIXME: This file needs a description here.
4 #
5 # Copyright (c) 1998-2002 The Regents of the University of California.
6 # All rights reserved.
7 #
8 # Redistribution and use in source and binary forms, with or without
9 # modification, are permitted provided that the following conditions are met:
10 #
11 # A. Redistributions of source code must retain the above copyright notice,
12 # this list of conditions and the following disclaimer.
13 # B. Redistributions in binary form must reproduce the above copyright notice,
14 # this list of conditions and the following disclaimer in the documentation
15 # and/or other materials provided with the distribution.
16 # C. Neither the names of the copyright holders nor the names of its
17 # contributors may be used to endorse or promote products derived from this
18 # software without specific prior written permission.
19 #
20 # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
21 # AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23 # ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR
24 # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
26 # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
27 # CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
28 # OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
29 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30
31 import AnnounceListenManager/AS/Service
32
33 Class AnnounceListenManager/AS/Service/Transcoder -superclass AnnounceListenManager/AS/Service
34
35 Class AnnounceListenManager/AS/Service/Transcoder/Video -superclass AnnounceListenManager/AS/Service/Transcoder
36
37
38 #
39 AnnounceListenManager/AS/Service/Transcoder/Video public init \
40 { agent specAS iBW specService } {
41 $self next $agent $specAS $iBW $specService
42
43 $self instvar m_iLastSeqNum
44 $self instvar m_specService
45 $self instvar m_agent
46
47 # Initialize data
48 set m_iLastSeqNum 0
49 set m_specService $specService
50 set m_agent $agent
51 }
52
53 # callback for AS
54 AnnounceListenManager/AS/Service/Transcoder/Video public service_name {} {
55 return Transcoder/Video
56 }
57
58
59 # Recv a message, check if it's for us, and check if the seqno has incremented
60 # If not, then it's a keep alive message, and we can ignore it. If so, then
61 # pass the message in to the archive agent
62 AnnounceListenManager/AS/Service/Transcoder/Video public recv_msg \
63 { atype aspec addr srv_name srv_loc srv_inst ssg_port msg } {
64 $self instvar m_iLastSeqNum
65 $self instvar m_specService
66 $self instvar m_agent
67
68 if { $srv_name == "DEATH" } {
69 puts stderr "Received death packet from $aspec at $addr - exiting."
70 $self announce_death
71 exit 0
72 }
73
74 $self next $atype $aspec $addr $srv_name $srv_loc $srv_inst $ssg_port $msg
75
76 if {$m_specService != $srv_inst} {
77 return
78 }
79
80 # give the agent the message
81 $m_agent ReceiveMessage $msg
82 }
83
84 # SSACServer sets the agent-data for the return messages
85 AnnounceListenManager/AS/Service/Transcoder/Video public agent_data {} {
86 return "nothing much!"
87 }
88
89
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.