syntax error at (eval 75) line 98, near "->use file" BEGIN not safe after errors--compilation aborted at (eval 75) line 131. in # ============================================================================== # # /home/webhosting/jenro/www.jenrosport.com/i-plume/prg-exe/html/products/accessories.html.pl # # Program generated by wrapper.pm - Do not modify # # Date : 2010/07/29 16:36:12 # Source : /home/webhosting/jenro/www.jenrosport.com/htdocs/products/accessories.html # Event Handlers : Iplume::Wrapper::Events_Perl # # ============================================================================== use utf8 ; use Iplume::Wrapper::Events_Perl ; use Iplume::Wrapper::Events_Default ; my $__wrapper_element__ = new Iplume::Wrapper::Events_Perl ; # -- event_start -- my $_result_ = '' ; my $request = $__w__context__ -> {'request'} ; my $lang_id = $__w__context__ -> {'lang_id'} ; my $page = $__w__context__ -> {'page'} ; my $site = $__w__context__ -> {'site'} ; my $page_id = $__w__context__ -> {'page_id'} ; my $display = $__w__context__ -> {'display'} ; my $subwrapper = new Iplume::Wrapper ; $subwrapper -> initialize ( 'event_handlers' => new Iplume::Wrapper::Events_Perl , ) ; $subwrapper -> {'path_html'} = [] ; push @{$subwrapper -> {'path_html'}} , { 'src' => '/home/webhosting/jenro/www.jenrosport.com/httmpl' , 'prg' => '/home/webhosting/jenro/www.jenrosport.com/i-plume/prg-exe/tmpl' , 'def' => '/home/webhosting/jenro/www.jenrosport.com/htdata/blocs' , } ; $subwrapper -> {'path_tmpl'} = $subwrapper -> {'path_html'} ; $subwrapper -> {'texts'} = $__w__texts__ ; $subwrapper -> {'elements'} = $__w__elements__ ; $subwrapper -> {'context'} -> {'request'} = $request ; $subwrapper -> {'context'} -> {'lang_id'} = $lang_id ; $subwrapper -> {'context'} -> {'page'} = $page ; $subwrapper -> {'context'} -> {'site'} = $site ; $subwrapper -> {'context'} -> {'page_id'} = $page_id ; $subwrapper -> {'context'} -> {'display'} = $display ; my $langwrapper = new Iplume::Wrapper ; $langwrapper -> initialize ( 'lang_id' => $lang_id , 'event_handlers' => new Iplume::Wrapper::Events_Default , ) ; $langwrapper -> {'texts'} = $__w__texts__ ; $langwrapper -> {'elements'} = $__w__elements__ ; $langwrapper -> {'context'} -> {'request'} = $request ; $langwrapper -> {'context'} -> {'lang_id'} = $lang_id ; $langwrapper -> {'context'} -> {'page'} = $page ; $langwrapper -> {'context'} -> {'site'} = $site ; $langwrapper -> {'context'} -> {'page_id'} = $page_id ; $langwrapper -> {'context'} -> {'display'} = $display ; use Iplume::Object ; my $__data_page__ = new Iplume::Object ; my $page_def_file = "/home/webhosting/jenro/www.jenrosport.com/htdata/pages/products/accessories.html.xml" ; if ( -e $page_def_file ) { $__data_page__ -> from_xml ( 'file' => $page_def_file , ) ; foreach $text_definition ( @{$__data_page__->{'texts'}} ) { if ( exists($text_definition->{'text_rsc'}->{$lang_id}) && $text_definition->{'text_rsc'}->{$lang_id} ne '' ) { $site->{'texts'}->{$text_definition->{'text_id'}} = $text_definition->{'text_rsc'}->{$lang_id} ; } elsif ( exists($text_definition->{'text_rsc'}->{'en'}) ) { $site->{'texts'}->{$text_definition->{'text_id'}} = $text_definition->{'text_rsc'}->{'en'} ; } else { $site->{'texts'}->{$text_definition->{'text_id'}} = '' ; } } while ( ($k,$v) = each ( %{$__data_page__} ) ) { $page -> {$k} = $v ; } } if ( exists ( $__data_page__->{'html_title'} ) ) { $page->{'html_title'} = $__data_page__->{'html_title'} ; $page->{'html_keywords'} = $__data_page__->{'html_keywords'} ; $page->{'html_description'} = $__data_page__->{'html_description'} ; } eval { # ---------------------------------------------------------------------------------------------------- # # -------------------------------------------------- # ---------------------------------------------------------------------------------------------------- # use file="tmpl_main.html" # -------------------------------------------------- $_result_ .= $subwrapper->use file="tmpl_main.html" ; # ---------------------------------------------------------------------------------------------------- # # -------------------------------------------------- $_result_ .= '' . "\n" ; $_result_ .= '' . "\n" ; # ---------------------------------------------------------------------------------------------------- # # use EPV::Object ; # my $data_dictionary = new EPV::Object ; # # my $data_file = $ENV{'EPV.PRG_DIRECTORY'} . '/public_data/products/catalog.xml' ; # my $_o_xml = "" ; # open ( XML_FILE , $data_file ) or die "Can't open file: $data_file, $!" ; # while ( ) { # $_o_xml .= $_ ; # } # close ( XML_FILE ) ; # # $data_dictionary -> from_xml ( # '_o_xml' => $_o_xml , # ) ; # # $data_dictionary = $data_dictionary->{'dictionary'} ; # # while ( ( $_o_id, $object ) = each ( %{$data_dictionary} ) ) { # $object -> {'_o_id'} = $_o_id ; # } # # # my $catalog = $data_dictionary -> {'catalog_000001'} ; # -------------------------------------------------- use EPV::Object ; my $data_dictionary = new EPV::Object ; my $data_file = $ENV{'EPV.PRG_DIRECTORY'} . '/public_data/products/catalog.xml' ; my $_o_xml = "" ; open ( XML_FILE , $data_file ) or die "Can't open file: $data_file, $!" ; while ( ) { $_o_xml .= $_ ; } close ( XML_FILE ) ; $data_dictionary -> from_xml ( '_o_xml' => $_o_xml , ) ; $data_dictionary = $data_dictionary->{'dictionary'} ; while ( ( $_o_id, $object ) = each ( %{$data_dictionary} ) ) { $object -> {'_o_id'} = $_o_id ; } my $catalog = $data_dictionary -> {'catalog_000001'} ; # ---------------------------------------------------------------------------------------------------- # # -------------------------------------------------- $_result_ .= '' . "\n" ; $_result_ .= '' . "\n" ; # ---------------------------------------------------------------------------------------------------- # $page -> {'content'} = sub {my $_result_=''; # -------------------------------------------------- $page -> {'content'} = sub {my $_result_=''; # ---------------------------------------------------------------------------------------------------- # #
# -------------------------------------------------- $_result_ .= '' . "\n" ; $_result_ .= '
' . "\n" ; $_result_ .= '' . "\n" ; $_result_ .= '' . "\n" ; $_result_ .= '' . "\n" ; # ---------------------------------------------------------------------------------------------------- # for $section ( @{$site->{'section'}->{'sections'}} ) { # -------------------------------------------------- for $section ( @{$site->{'section'}->{'sections'}} ) { # ---------------------------------------------------------------------------------------------------- # # -------------------------------------------------- $_result_ .= '' . "\n" ; $_result_ .= '' . "\n" ; # ---------------------------------------------------------------------------------------------------- # # $range_o_id = $section->{'range_o_id'} ; # -------------------------------------------------- $range_o_id = $section->{'range_o_id'} ; # ---------------------------------------------------------------------------------------------------- # # -------------------------------------------------- $_result_ .= '' . "\n" ; $_result_ .= '' . "\n" ; $_result_ .= '' . "\n" ; # ---------------------------------------------------------------------------------------------------- # # next unless ( $range_o_id eq 'range_000004' || $range_o_id eq 'range_000006' || $range_o_id eq 'range_000007' || $range_o_id eq 'range_000008' ) ; # -------------------------------------------------- next unless ( $range_o_id eq 'range_000004' || $range_o_id eq 'range_000006' || $range_o_id eq 'range_000007' || $range_o_id eq 'range_000008' ) ; # ---------------------------------------------------------------------------------------------------- # # -------------------------------------------------- $_result_ .= '' . "\n" ; $_result_ .= '' . "\n" ; # ---------------------------------------------------------------------------------------------------- # my $range = $data_dictionary -> {$range_o_id} ; # -------------------------------------------------- my $range = $data_dictionary -> {$range_o_id} ; # ---------------------------------------------------------------------------------------------------- # # -------------------------------------------------- $_result_ .= '' . "\n" ; $_result_ .= '' . "\n" ; $_result_ .= '' . "\n" ; # ---------------------------------------------------------------------------------------------------- # # my @range_products = @{$range->{'products'}} ; # my @pictures ; # while ( @selected_products < 4 && @range_products >0 ) { # my $product_o_id = splice @range_products , int ( @range_products * rand ) , 1 ; # push @pictures , "/_img/products/84x100/" . $data_dictionary -> {$product_o_id}->{'picture_id'} . ".png" ; # } # while ( @pictures < 4 ) { # push @pictures , "/_img/main/pixel.png" ; # } # -------------------------------------------------- my @range_products = @{$range->{'products'}} ; my @pictures ; while ( @selected_products < 4 && @range_products >0 ) { my $product_o_id = splice @range_products , int ( @range_products * rand ) , 1 ; push @pictures , "/_img/products/84x100/" . $data_dictionary -> {$product_o_id}->{'picture_id'} . ".png" ; } while ( @pictures < 4 ) { push @pictures , "/_img/main/pixel.png" ; } # ---------------------------------------------------------------------------------------------------- # # #
#

# -------------------------------------------------- $_result_ .= '' . "\n" ; $_result_ .= '' . "\n" ; $_result_ .= '
' . "\n" ; $_result_ .= '

' . "" ; # ---------------------------------------------------------------------------------------------------- # \xA7 $section->{'link_title'} # -------------------------------------------------- \xA7 $section->{'link_title'} # ---------------------------------------------------------------------------------------------------- #

# #
# # # # ' . "\n" ; $_result_ .= ' # # # ' . "\n" ; $_result_ .= '' . "\n" ; $_result_ .= '' . "\n" ; $_result_ .= ' # ' . "\n" ; $_result_ .= ' # #
url('display'=> $section->{'display'} ) ; # ---------------------------------------------------------------------------------------------------- # "> # -------------------------------------------------- $_result_ .= '{'name'} # -------------------------------------------------- \xA7 $product->{'name'} # ---------------------------------------------------------------------------------------------------- # "> url('display'=> $section->{'display'} ) ; # ---------------------------------------------------------------------------------------------------- # "> # -------------------------------------------------- $_result_ .= '{'name'} # -------------------------------------------------- \xA7 $product->{'name'} # ---------------------------------------------------------------------------------------------------- # ">
url('display'=> $section->{'display'} ) ; # ---------------------------------------------------------------------------------------------------- # "> # -------------------------------------------------- $_result_ .= '{'name'} # -------------------------------------------------- \xA7 $product->{'name'} # ---------------------------------------------------------------------------------------------------- # "> url('display'=> $section->{'display'} ) ; # ---------------------------------------------------------------------------------------------------- # "> # -------------------------------------------------- $_result_ .= '{'name'} # -------------------------------------------------- \xA7 $product->{'name'} # ---------------------------------------------------------------------------------------------------- # ">
#
# #
# -------------------------------------------------- $_result_ .= '">' . "\n" ; $_result_ .= '' . "\n" ; $_result_ .= '' . "\n" ; $_result_ .= '

' . "\n" ; $_result_ .= '' . "\n" ; $_result_ .= '
' . "\n" ; # ---------------------------------------------------------------------------------------------------- # } # -------------------------------------------------- } # ---------------------------------------------------------------------------------------------------- # # #
#
# -------------------------------------------------- $_result_ .= '' . "\n" ; $_result_ .= '' . "\n" ; $_result_ .= '
' . "\n" ; $_result_ .= '' . "\n" ; # ---------------------------------------------------------------------------------------------------- # return $_result_ ;} ; # -------------------------------------------------- return $_result_ ;} ; # ---------------------------------------------------------------------------------------------------- # # -------------------------------------------------- $_result_ .= '' . "\n" ; # -- event_end -- if ( $subwrapper->{'using'} ) { $_result_ = $subwrapper -> include ( 'file' => $subwrapper->{'using'} ) ; } } ; if ( $@ ) { if ( $ENV{'I-PLUME-ERROR'} eq 'TRUE' ) { return "Content-type: text/plain\n\n$@" ; } else { $ENV{'I-PLUME-ERROR-MSG'} = $@ ; $ENV{'I-PLUME-ERROR'} = 'TRUE' ; my $wrapper = new Iplume::Wrapper ; $wrapper -> initialize ( 'event_handlers' => new Iplume::Wrapper::Events_Perl , ) ; $wrapper -> {'path_html'} = [] ; push @{$wrapper -> {'path_html'}} , { 'src' => '/home/webhosting/jenro/www.jenrosport.com/httmpl' , 'prg' => '/home/webhosting/jenro/www.jenrosport.com/i-plume/prg-exe/tmpl' , 'def' => '/home/webhosting/jenro/www.jenrosport.com/htdata/blocs' , } ; $wrapper -> {'path_tmpl'} = $wrapper -> {'path_html'} ; $wrapper -> {'texts'} = $__w__texts__ ; $wrapper -> {'elements'} = $__w__elements__ ; $wrapper -> {'context'} -> {'request'} = $request ; $wrapper -> {'context'} -> {'lang_id'} = $lang_id ; $wrapper -> {'context'} -> {'page'} = $page ; $wrapper -> {'context'} -> {'site'} = $site ; $wrapper -> {'context'} -> {'page_id'} = $page_id ; $wrapper -> {'context'} -> {'display'} = $display ; my $file_name = ( $ENV{'I-PLUME-ERROR-FILE'} ) ? $ENV{'I-PLUME-ERROR-FILE'} : 'page_error.html' ; $wrapper -> update_prg ( 'src_file' => $file_name , ) ; $_result_ = $wrapper -> execute_prg ( ) ; } } else { return $_result_ ; } Iplume::Wrapper::execute_prg at /home/webhosting/jenro/www.jenrosport.com/i-plume/prg-lib/Iplume/WebSite.pm line 524. Iplume::WebSite::print_display at /home/webhosting/jenro/www.jenrosport.com/i-plume/prg-lib/Iplume/WebSite.pl line 29.