Any one knows if a cgi to be called by FormAPI via callServer method can read value from other DCRs? I am getting "No such file or directory" when I try to open a DCR.
Following is my code fragement:
use CGI;
use CGI qw(:all);
use TeamSite::WFtask;
use TeamSite::WFworkflow;
use TeamSite::Config;
use TeamSite:
CRparser;
$|=1;
my $iwhome = TeamSite::Config::iwgethome();
my $iwmount = TeamSite::Config::iwgetmount();
my $cgi = new CGI;
$iwhome =~ s!\\!/!g;
print "Content-type:text/html\n\n";
my $workarea = $cgi->param('workarea');
my $id = $cgi->param('id');
my $title = getTitle($iwmount, $workarea, $id);
# to something about $title here ...
sub getTitle
{
my ($iwmount, $workarea, $id) =
@_;
my $filename = "/templatedata/PageSetup/ContentNode/data/$id";
my $fullpath = $iwmount . $workarea . $filename;
open(DCR,"<$full_path") or debug("Can't open configuration file: $!");
my
@xml = <DCR>;
close(DCR);
my $xmlstring = join("",
@xml);
my $parser = TeamSite:
CRparser->new();
my $dcr = $parser->parse($xmlstring);
my $title = $dcr->value("nodedescription.defaultnodedefinition.pagename");
return $title;
}
