How to populate data from ipl file to cfg file

Hi. How to populate data(select box entries) from ipl file to cfg file.

In my cfg file i have statements like this i am calling testing.ipl file

In testing.ipl file i had statements like this
------------------------------------------------
# Declare which external packages and library routines will be used.
use TeamSite::CGI_lite;

my $iwhome = TeamSite::Config::iwgethome();
my $line;
if (open(MYFILE, "/iw-home/local/bin/Content/Store/work.txt")) {
$line = ;
my @arr = split("\n", $line);
foreach my $a (@arr) {
my $line1 = $a;

print <

EEE

}

}
------------------------------------------------
In the above testin.ipl file i am reading data from work file have data like this one 11, two 22 etc.
but in select box of cfg file i am getting only one entry one 11 is printing.

Can any one help me how to get full details in cfg file.

Thanks and regards,
Raja.

Find more posts tagged with

Comments

Frederik

FIRST OF ALL: try to learn the proper syntax for this forum, using the HTML and CODE tags as appropriate. (You need the HTML tag to escape blocks of text that contain < angle brackets >). It's not always easy to get it right, but that's what the "Preview Post" function is for - I used it 6 times to improve the readability of this post, before submitting... Pleeeeeaaaase.

Hi. How to populate data(select box entries) from ipl file to cfg file.

In my cfg file i have statements like this i am calling testing.ipl file
[html]

[/html]

In testing.ipl file i had statements like this
[HTML]
# Declare which external packages and library routines will be used.
use TeamSite::CGI_lite;

my $iwhome = TeamSite::Config::iwgethome();
my $line;
if (open(MYFILE, "/iw-home/local/bin/Content/Store/work.txt")) {
$line = ;
my @arr = split("\n", $line);
foreach my $a (@arr) {
my $line1 = $a;

print <

EEE

}
}
[/HTML]
In the above testin.ipl file i am reading data from work file have data like this one 11, two 22 etc.
but in select box of cfg file i am getting only one entry one 11 is printing.

Can any one help me how to get full details in cfg file.

Thanks and regards,
Raja.

Your output of the .ipl MUST be like this
[html]

[/html]
(the XML declarator may be optional)
it appears to me that you are producing something like
[html]

[/html]

If you are not going to declare the produced charset in the PERL code and in the produced XML, then you must make sure to stick to pure ASCII - or expect trouble.

Pawan

One more thing I would like to confirm is that you checking the work.txt file for \n character, and you have mentioned them as comma separated in your post.

Please cross check.

Adam Stoller

In testing.ipl file i had statements like this
 
------------------------------------------------
# Declare which external packages and library routines will be used.
use TeamSite::CGI_lite;

my $iwhome = TeamSite::Config::iwgethome();
my $line;
  if (open(MYFILE, "/iw-home/local/bin/Content/Store/work.txt")) {
         $line = <MYFILE>;
  my @arr = split("\n", $line);
foreach my $a (@arr) {
              my $line1 = $a;
print <<EEE;
   <substitution>
  <option value="1" label="$line1"/>
  </substitution>
EEE
}
  }
------------------------------------------------
In the above testin.ipl file i am reading data from work file have data like this one 11, two 22 etc.
but in select box of cfg file i am getting only one entry one 11 is printing.

Can any one help me how to get full details in cfg file.

Thanks and regards,
Raja.

The logic in your code is wrong - try reading it out loud to yourself. To give you some idea of why the logic is wrong - consider where you declare variables, where you put content into variables, and where you are doing your looping.
While I (and many people in this forum) could re-write your code in a matter of seconds - it's better you learn to do it yourself.
I have added a bit of highlighting to try to help you - but this is really kind of a Perl-101 type thing...