Reading Xml file in TPl to generate html page

Hello Team,

I have a requirement to read an xml on teamsite server itself in a .TPL file, which will finally render html page.

Please help with a smaple code sample. I'm trying to use XMl:: Simple module.

BUt in my .TPL is not reading 'XMl:: Simple '. Please help
Simple.pm is intsalled on my server at location 'C:\Perl\lib\XML'.

Please help!

Find more posts tagged with

Comments

nipper

Teamsite has its own perl libraries in iwhome/iw-perl

Use XML::Node which is included with TeamSite

perldoc is your friend.

RonaldV

How about the obvious place to start searching:

http://search.cpan.org/~grantm/XML-Simple-2.18/lib/XML/Simple.pm

Adam Stoller

Hello Team,

I have a requirement to read an xml on teamsite server itself in a .TPL file, which will finally render html page.

Please help with a smaple code sample. I'm trying to use XMl:: Simple module.

BUt <iwperl> in my .TPL is not reading 'XMl:: Simple '. Please help
Simple.pm is intsalled on my server at location 'C:\Perl\lib\XML'.

Please help!

Generally - most perl code executed from TeamSite is run with iwperl - located in IWHOME/iw-perl/bin - and using modules from within IWHOME/iw-perl/ directory tree - not from C:\Perl - if you're using a recent version of TS (6.5 or newer) you should already have XML: Smiley Frustrated

imple installed with iwperl so that is unlikely to be the issue.

If you want help with the code - you need to post your code first - and then perhaps someone will assist you in pointing out issues in your code that need to be fixed.

agarg

I'm using this code snippet:

-------------------------------------------------
use File::Basename;

use XML: Smiley Frustrated

imple;

use strict;

use warnings;

use TeamSite::XMLnode;

use TeamSite::CGI_lite;

use Switch;

#use Teamsite::Config;

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

$cgi->parse_data();

my $groups_file = "/iw-mount/default/main/....../help_left_nav.xml";

open (CFG, $groups_file) || die "Cannot open $groups_file: $!\n";

$xmlgroup = join ("", CFG);

close CFG;

---------------------------------------------------

This code doesn't go beyond this line :
open (CFG, $groups_file) - here it gives error. Can any one help.

agarg

guys any help . I don't know why above code is not able to read xml file.

I tried reading xml file with XMLin also but its also ot working.

Any help will be appreciated.

Adam Stoller

I'm using this code snippet:

use File::Basename;
use XML:imple;
use strict;
use warnings;
use TeamSite::XMLnode;
use TeamSite::CGI_lite;
use Switch;
#use Teamsite::Config;

my $cgi = TeamSite::CGI_lite->new();
$cgi->parse_data();
my $groups_file = "/iw-mount/default/main/....../help_left_nav.xml";
open (CFG, $groups_file) || die "Cannot open $groups_file: $!\n";
$xmlgroup = join ("", CFG);
close CFG;

This code doesn't go beyond this line :
open (CFG, $groups_file) - here it gives error. Can any one help.

Why are you trying to do this as a CGI - If you're calling this code from within the PT - you'll probably do better writing it as a CLT - and you'll also probably do better using the value of TeamSite::Config::iwgetmount() - or normally

/iwmnt

rather than using the customer web-server virtual directory

/iw-mount

gzevin

guys any help . I don't know why above code is not able to read xml file.

I tried reading xml file with XMLin also but its also ot working.

Any help will be appreciated.

weel, if the code was not reading the file, it was obvious the issue was not the XML routine, right? Comp Science 101?????

Samir_Friend

I'm using this code snippet:

-------------------------------------------------
use File::Basename;

use XML:imple;

use strict;

use warnings;

use TeamSite::XMLnode;

use TeamSite::CGI_lite;

use Switch;

#use Teamsite::Config;

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

$cgi->parse_data();

my $groups_file = "/iw-mount/default/main/....../help_left_nav.xml";

open (CFG, $groups_file) || die "Cannot open $groups_file: $!\n";

$xmlgroup = join ("", CFG);

close CFG;

---------------------------------------------------

This code doesn't go beyond this line :
open (CFG, $groups_file) - here it gives error. Can any one help.

My code is something like this and it works fine, it should work for you too:

[html]
my $iw_mount = TeamSite::Config::iwgetmount();
my $groups_file = "$iw_mount/default/main/myBranch/WORKAREA/Global/templatedata/Article/sample.xml";

open (CFG, $groups_file) || die "Cannot open $groups_file: $!\n";
$xmlgroup = join ("", );
close CFG;
[/html]

agarg

Thanks Guys! Problem resolved.