8.1 and mfs_ftp

[jasch]

Well, it seems 8.1 broke mfs_ftp also...


type 82 not in schema
while executing
"dbobj $obj type"
(procedure "dump_object" line 8)
invoked from within
"dump_object $a $attr [expr $depth-1] "$prefix ""
("object" arm line 1)
invoked from within
"switch $atype {
object { append output [dump_object $a $attr [expr $depth-1] "$prefix "]; set a "" }
}"
(procedure "dump_object" line 38)
invoked from within
"dump_object $a $attr [expr $depth-1] "$prefix ""
("object" arm line 1)
invoked from within
"switch $atype {
object { append output [dump_object $a $attr [expr $depth-1] "$prefix "]; set a "" }
}"
(procedure "dump_object" line 38)
invoked from within
"dump_object $a $attr [expr $depth-1] "$prefix ""
("object" arm line 1)
invoked from within
"switch $atype {
object { append output [dump_object $a $attr [expr $depth-1] "$prefix "]; set a "" }
}"
(procedure "dump_object" line 38)
invoked from within
"dump_object $obj "_top""
(procedure "dump_xml" line 6)
invoked from within
"dump_xml [db $db openid $fsid]"
invoked from within
"set xml "[dump_xml [db $db openid $fsid]]" "
("uplevel" body line 1)
invoked from within
"uplevel $body"
invoked from within
"transaction {uplevel $body}"
(procedure "RetryTransaction" line 5)
invoked from within
"RetryTransaction { set xml "[dump_xml [db $db openid $fsid]]" }"
(procedure "cache_xml_2_disk" line 15)
invoked from within
"cache_xml_2_disk $fsid"
(procedure "rec_info_from_db" line 22)
invoked from within
"rec_info_from_db $fsid"
(procedure "update_rec_fsids" line 17)
invoked from within
"update_rec_fsids 1"
(procedure "init_procs" line 11)
invoked from within
"init_procs"
(file "/var/mfs_ftp/mfs_ftp.tcl" line 1551)

[Jamie]

Object type 82 is "ApgProgram" that sounds dtivo related. Perhaps it has been dropped from the SA releases?

It might help someone dumped the 8.1 schema. Go grab the mfs-utils src package and run the schema.tcl file there.

[jasch]

File Attached

[Jamie]

The schema has changed a lot and it looks like, unlike in the past, the schema isn't backwards compatible with old software versions. That could me it a little tricker to write tcl code that works across software versions.

[mrpenguin]

it may be related to this post (http://www.dealdatabase.com/forum/showpost.php?p=269658&postcount=455) where TWP 1.3 has issue with 8.1 that didn't before with ApgChannel.

change

set apgchannel [dbobj $channelobj get ApgChannel]to

catch {set apgchannel [dbobj $channelobj get ApgChannel]}

Probably need to filter apgchannel stuff