-
Notifications
You must be signed in to change notification settings - Fork 1
/
t_class.rb
106 lines (91 loc) · 3.2 KB
/
t_class.rb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
class Packet_header_two # Fidonet Packet Header
def initialize (orgnode,destnode,year,month,day,hour,min,sec,pkttype,
orgnet,destnet,prodcode,sernum,password,orgzone,
destzone,auxnet,cwcopy,revision,cword,orgpoint,
destpoint)
@orgnode = orgnode #Origination Node of Packet
@destnode = destnode #Destination Node of Packet
@year = year #Year of Packet Creation e.g. 1995
@month = month #Month of Packet Creation 0-11
@day = day #Day of Packet Creation 1-31
@hour = hour #Hour of Packet Creation 0-23
@min = min #Minute of Packet Creation 0-59
@sec = sec #Second of Packet Creation 0-59
@baud = baud #Max Baud Rate of Orig & Dest
@pkttype = pkttype #Packet Type (-1 is obsolete)
@orgnet = orgnet #Origination Net of Packet
@destnet = destnet #Destination Net of Packet
@prodcode = prodcode #Product Code (00h is Fido)
@sernum = sernum #Binary Serial Number or nil
@password = password #Session Password or nil (8 characters)
@orgzone = orgzone #Origination Zone of Packet or nil
@destzone = destzone #Destination Zone of Packet or NULL
@auxnet = auxnet #Orig Net if Origin is a Point
@cwcopy = cwcopy #Must be Equal to cword
@revision = revision #Revision
@cword = cword #Compatibility Word
@orgpoint = orgpoint #Origination Point
@destpoint = destpoint #Destination Point
end
attr_accessor :orgnode, :destnode, :year, :month, :day, :hour, :min,:sec,
:baud, :pkttype, :orignet, :destnet, :prodcode, :sernum, :password,
:orgnet, :destnet, :orgzone, :destzone, :auxnet, :cwcopy, :prodcode, :revision,
:cword, :orgpoint, :destpoint
end # of class packet_header_two
class A_fidonet_message # An individual Fidonet Message
def initialize (orgnode,destnode,orgnet,destnet,attribute,cost,datetime,
to,from,subject,message,area,msgid,path,tzutc,charset,tid,
pid,intl,topt,fmpt,reply,origin)
@orgnode = orgnode
@destnode = destnode
@orgnet = orgnet
@destnet = destnet
@attribute = attribute
@cost = cost
@datetime = datetime
@to = to
@from = from
@subject = subject
@message = message
@area = area
@msgid = msgid
@path = path
@tzutc = tzutc
@charset = charset
@tid = tid
@pid = pid
@intl = intl
@topt = topt
@fmpt = fmpt
@reply = reply
@origin = origin
end
attr_accessor :orgnode, :destnode, :orgnet, :destnet, :attribute,
:cost, :datetime, :to, :from, :subject, :message, :area,
:msgid, :path, :tzutc, :charset, :tid, :pid, :intl, :topt, :fmpt,
:reply, :origin
end # of class A_fidonet_message
class Kludge
attr_accessor :area, :msgid, :path, :tzutc, :charset, :tid, :pid, :intl, :topt,
:fmpt, :reply, :origin
def initialize (area=nil,msgid=nil,path=nil,tzutc=nil,
charset=nil,tid=nil,pid=nil,intl=nil,
topt=nil,fmtp=nil,reply=nil,origin=nil)
@area = area
@msgid = msgid
@path = path
@tzutc = tzutc
@charset = charset
@tid = tid
@pid = pid
@intl = intl
@topt = topt
@fmpt = fmpt
@reply = reply
@origin = origin
end
def []=(field, value)
field = field.downcase
self.send("#{field}=", value)
end
end #of class Kludge