FormAPI callserver permissions

miletwo

Hi folks,

I'm trying to do either iwgen or iwregen via a CGI in formAPI... the script works fine... creates the correct system call... but fails with what appears to be permission problem when it tries to regenerate the file.

If I copy the command I'm carping out and paste into terminal, it works fine.

Any suggestions?


my CGI script
**************

#!/opt/iw/iw-home/iw-perl/bin/iwperl

use TeamSite::CGI_lite;
use TeamSite::Config;

use CGI::Carp qw(carpout);

BEGIN {
open (CARPLOG, ">>/temp/jander/gac_finish.log") or die ("Can't open log
file!");
carpout(CARPLOG);
}

# begin the cgitask
$|=1;

$cgi = TeamSite::CGI_lite->new();
$cgi->parse_data();

my $form_name = $cgi->{'form'}{'iw_form_name'};
my $element_name = $cgi->{'form'}{'iw_callback_var'};
my $user_name = $cgi->{'form'}{'user_name'};
my $item_name = $cgi->{'form'}{'iw_item_name'};
my $item_description = $cgi->{'form'}{'iw_item_description'};
my $dcr_name = $cgi->{'form'}{'iw_object_name'};

my $area_path = $cgi->{'form'}{'area_path'};
my $iw_dcr_path = $cgi->{'form'}{'iw_dcr_path'};

my $output_file = $cgi->{'form'}{'output_file'};

my $output_path = $area_path;
$output_path =~ s|^//\w*||;
$iw_dcr_path =~ s|^//\w*||;

my $output_fullpath = "$output_path/$output_file";

my $output_tpl = $output_path . "/templatedata/web/one_column/presentation/one_column.tpl";
my $iw_bin = TeamSite::Config::iwgetlocation('iwbin');
my $iw_regen_cmd = "$iw_bin/iwregen '$output_fullpath'";

my $gen_error = `$iw_regen_cmd`;

warn("iw_gen_cmd: $iw_gen_cmd\n");
my $iw_fs_cmd = "$iw_bin/iwfilestate '$output_fullpath'";
my $filestate_output = `$iw_fs_cmd`;
my $file_state = (($filestate_output =~ m/Modified: (\w+)/) && $1 eq 'Yes');

&print_header();
print '<script language="JavaScript">';
if( $file_state ){
print "callback(true);";
}else{
print "callback(false);";
}
print '</script>';
&print_footer();


sub print_header{
print <Content-type: text/html \n\n



saving...

<script language="JavaScript">

function callback(success) {
var frame = getDCRFrame();

if (frame){
frame.doFinishCallback(success, "$output_file");
}else{
alert("DCR Frame not available. Did you close it?");
}
}

function getDCRFrame() {
if (parent){
return parent.getScriptFrame();
}else{
return null;
}
}

</script>

saving...
EOH
}

sub print_footer{
print <
EOF
}

exit 0;

*****************
from carp:
*****************
cat gac_finish.log
/default/main/clientName/WORKAREA/jander/templatedata/web/one_column/presentation/one_column.tpl: Could not output file: /opt/iw/.iwmnt/default/main/clientName/WORKAREA/jander/test/about.html

[Mon Jun 5 20:58:03 2006] visa_gac_finish.ipl: iw_gen_cmd: /opt/iw/iw-home/bin/iwregen '/default/main/clientName/WORKAREA/jander/test/about.html'

Mr_Cruise

The command regen will only work if the file has already been regenerated from a DCR and TPL. So check the MetaData on the html file and should have something like :-

TeamSite/Templating/PrimaryDCR: 158\158_2
TeamSite/Templating/PrimaryDocumentType: content/areagroup
TeamSite/Templating/PrimaryPT: areagroup.tpl

If the MetaData is missing then manually generate the html file and things shouls start working.