English: in # ============================================================================== # # /home/webhosting/jenro/www.jenrosport.com/i-plume/prg-exe/html/contacts/index.html.pl # # Program generated by wrapper.pm - Do not modify # # Date : 2010/07/29 16:36:16 # Source : /home/webhosting/jenro/www.jenrosport.com/htdocs/contacts/index.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/contacts/index.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_002.html" # -------------------------------------------------- $_result_ .= $subwrapper->use file="tmpl_002.html" ; # ---------------------------------------------------------------------------------------------------- # # -------------------------------------------------- $_result_ .= '' .
French: in # ============================================================================== # # /home/webhosting/jenro/www.jenrosport.com/i-plume/prg-exe/html/contacts/index.html.pl # # Program generated by wrapper.pm - Do not modify # # Date : 2010/07/29 16:35:39 # Source : /home/webhosting/jenro/www.jenrosport.com/htdocs/contacts/index.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/contacts/index.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_002.html" # -------------------------------------------------- $_result_ .= $subwrapper->use file="tmpl_002.html" ; # ---------------------------------------------------------------------------------------------------- # # -------------------------------------------------- $_result_ .= '' .