Can some one explain how to use iwextattr. Thank you
#!c:\interwoven\iw-home\iw-perl\bin\iwperluse TeamSite::Config;(my $iwhome = TeamSite::Config::iwgethome()) =~ tr|\\|/|;use File::Find;use TeamSite:CRparser;$start = "/default/main/Internet/WORKAREA/Medical_Mgmt/templatedata/web_Pages/general_unsecure/data/7.01";# The path to TeamSite Perl.my $iwperl = "$iwhome/iw-perl/bin/iwperl";find(\&wanted, $start);foreach $DCR (@list) { if (!($DCR =~ "/data/") ) { next;} ($EA = $DCR) =~ s|.*templatedata/||; $EA =~ s|/data/.*||; $command = "$iwhome/bin/iwextattr -s TeamSite/Templating/DCR/Type=$EA $DCR"; system ($command); }sub wanted {-f && push(@list, $File::Find::name);}