Hi friends we are working on the migration of contents from older version of teamsite Teamsite5.5.2 to newer version Teamsite6.7.1 . Please provide some suggession about how to migrate existing DCRs from old production teamsite to new teamsite. If we copy those DCRs its not opening in edit mode in new teamsite.Please provide some suggession about copying of those DCRs to new teamsite?
#!/bin/sheval 'exec `/usr/bin/iwgethome`/iw-perl/bin/iwperl -x -S $0 ${1+"$@}';#!iwperl -wuse TeamSite::Config;use File::Find;(my $iwhome=TeamSite::Config::iwgethome()) =~ tr|\\|/|;(my $iwmnt=TeamSite::Config::iwgetmount()) =~ tr|\\|/|;$start=$iwmnt."/default/main/llumc/lomalindahealth.org/Medical_Center/WORKAREA/web/templatedata";my @list;find(\&wanted, $start);foreach $DCR (@list) { next if ($DCR =~ m|\.cfg$|i); next if ($DCR =~ m|\.tpl$|i); next if (-d $DCR ); $command = "$iwhome/bin/iwextattr -g TeamSite/Templating/DCR/Type \"$DCR\""; chomp (my $result= `$command 2>&1`); if ($result =~ m|not found|i) { ($EA = $DCR) =~ s|.*templatedata/(.*?)/(.*?)/data/.*|$1/$2|i; $command = "$iwhome/bin/iwextattr -s TeamSite/Templating/DCR/Type=$EA \"$DCR\""; `$command 2>&1`; }}sub wanted {-f && push(@list, $File::Find::name);}