regenerate custom menu

dkuntze

I'm having trouble getting this script to actually "walk" the directory structure. It'll regenerate the cwd files, but will not traverse any sub directories.

FYI: This is a custom menu item cgi

#!C:\IW-Home/iw-perl/bin/iwperl

use TeamSite::CGI_lite;
use TeamSite:irwalk;

print "Content-type: text/html\n\n";

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


print "<h1>FNNI Site Generator</h1>\n";
print "<p>Generating this site: " . $cgi->{form}{"cwd.vpath"} . "</p>\n" ;

my $root_dir = "Y:\\default\\main\\employeesite_branch\\WORKAREA\\southwest_wa\\southwest\\htdocs";

my $d2 = TeamSite:irwalk->new( dir_handler => \&dir_handler, file_handler => \&file_handler, error_handler => \&error_handler, trace => 0);

$d2->dirwalk($root_dir);

sub dir_handler {
my ($this,$dir,$depth) = @_;
print "Directory: " . $dir . "<br />";
return 1;
}

sub error_handler {
my ($this,$dirname,$os_err) = @_;
$this->{aux}{error} = $os_err;
}

sub file_handler {
my ($this,$filename,$depth) = @_;
print "<p>starting...<br/>\n";
if (`iwextattr -g TeamSite/Templating/PrimaryDCR $filename`) {
$filename = substr $filename, 2;
print "iwregen $filename<br/>\n";
`iwregen $filename`;
}
print "done.</p>\n";
return 1;
}

Darin Kuntze
Senior Programming Analyst
First National Bank Nebraska, Inc.

Adam Stoller

seemed to work for me - I didn't actually run anything though - perhaps you should try writing this as a CLT first to verify the functionality of the code before trying to turn it into a CGI?

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com