Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision f2078516

Von Sven Schöling vor etwa 15 Jahren hinzugefügt

  • ID f20785168580f2d3587ebb2d06ade189246fd5f3
  • Vorgänger ebceac3e
  • Nachfolger 31b977d6

Nur realtive URIs für logon.pl?callback= erlauben.

Unterschiede anzeigen:

bin/mozilla/menu.pl
38 38 
$menufile = "menu.ini";
39 39 
use SL::Menu;
40 40 
use Data::Dumper;
41 
use URI;
41 42 

  		




  42
  43
  
    
1;


  		




  43
  44
  
    

  		




  ......




  48
  49
  
    
sub display {


  		




  49
  50
  
    
  $lxdebug->enter_sub();


  		




  50
  51
  
    

  		




  51
  
  
    
  $form->{callback}   = $form->unescape($form->{callback});


  		




  52
  
  
    
  $form->{callback} ||= "login.pl?action=company_logo";


  		




  
  52
  
    
  my $callback   = $form->unescape($form->{callback});


  		




  
  53
  
    
  $callback      = URI->new($callback)->rel($callback) if $callback;


  		




  
  54
  
    
  $callback      = "login.pl?action=company_logo"      if $callback =~ /^(.\/)?$/;


  		




  53
  55
  
    

  		




  54
  56
  
    
  $form->header;


  		




  55
  57
  
    

  		




  ......




  58
  60
  
    
  <frame  src="kopf.pl" name="kopf"  scrolling="NO">


  		




  59
  61
  
    
  <frameset cols="$framesize,*" framespacing="0" frameborder="0" border="0" >


  		




  60
  62
  
    
    <frame src="$form->{script}?action=acc_menu" name="acc_menu"  scrolling="auto" noresize marginwidth="0">


  		




  61
  
  
    
    <frame src="$form->{callback}" name="main_window" scrolling="auto">


  		




  
  63
  
    
    <frame src="$callback" name="main_window" scrolling="auto">


  		




  62
  64
  
    
  </frameset>


  		




  63
  65
  
    
  <noframes>


  		




  64
  66
  
    
  You need a browser that can read frames to see this page.


  		












  

    
      bin/mozilla/menuXML.pl
    
  





  41
  41
  
    

  		




  42
  42
  
    
use CGI::Carp qw(fatalsToBrowser);


  		




  43
  43
  
    
use Encode;


  		




  
  44
  
    
use URI;


  		




  44
  45
  
    
1;


  		




  45
  46
  
    

  		




  46
  47
  
    
# end of main


  		




  ......




  48
  49
  
    
sub display {


  		




  49
  50
  
    
  $locale     = Locale->new($language, "menu");


  		




  50
  51
  
    
  my $charset = $dbcharset || 'ISO-8859-1';


  		




  51
  
  
    
  my $callback = $form->unescape($form->{callback}) || "login.pl?action=company_logo";


  		




  
  52
  
    
  my $callback            = $form->unescape($form->{callback});


  		




  
  53
  
    
  $callback               = URI->new($callback)->rel($callback) if $callback;


  		




  
  54
  
    
  $callback               = "login.pl?action=company_logo"      if $callback =~ /^(.\/)?$/;


  		




  52
  55
  
    

  		




  53
  56
  
    
  my $text    = $form->create_http_response('content_type' => 'text/xml',


  		




  54
  57
  
    
                                            'charset'      => $charset)


  		












  

    
      bin/mozilla/menunew.pl
    
  





  34
  34
  
    

  		




  35
  35
  
    
use English qw(-no_match_vars);


  		




  36
  36
  
    
use List::Util qw(max);


  		




  
  37
  
    
use URI;


  		




  37
  38
  
    

  		




  38
  39
  
    
use SL::Menu;


  		




  39
  40
  
    

  		




  ......




  49
  50
  
    
  $form->{force_ul_width} = 1;


  		




  50
  51
  
    
  $form->{date}           = clock_line();


  		




  51
  52
  
    
  $form->{menu_items}     = acc_menu();


  		




  52
  
  
    
  $form->{callback}       = $form->unescape($form->{callback}) || "login.pl?action=company_logo";


  		




  
  53
  
    
  my $callback            = $form->unescape($form->{callback});


  		




  
  54
  
    
  $callback               = URI->new($callback)->rel($callback) if $callback;


  		




  
  55
  
    
  $callback               = "login.pl?action=company_logo"      if $callback =~ /^(.\/)?$/;


  		




  
  56
  
    
  $form->{callback}       = $callback;


  		




  53
  57
  
    

  		




  54
  58
  
    
  print $form->parse_html_template("menu/menunew");


  		




  55
  59
  
    
}


  		












  

    
      bin/mozilla/menuv3.pl
    
  





  34
  34
  
    

  		




  35
  35
  
    
$menufile = "menu.ini";


  		




  36
  36
  
    
use SL::Menu;


  		




  
  37
  
    
use URI;


  		




  37
  38
  
    

  		




  38
  39
  
    
1;


  		




  39
  40
  
    

  		




  ......




  44
  45
  
    

  		




  45
  46
  
    
  $form->{date}     = clock_line();


  		




  46
  47
  
    
  $form->{menu}     = acc_menu();


  		




  47
  
  
    
  $form->{callback} = $form->unescape($form->{callback}) || "login.pl?action=company_logo";


  		




  
  48
  
    
  my $callback      = $form->unescape($form->{callback});


  		




  
  49
  
    
  $callback         = URI->new($callback)->rel($callback) if $callback;


  		




  
  50
  
    
  $callback         = "login.pl?action=company_logo"      if $callback =~ /^(.\/)?$/;


  		




  
  51
  
    
  $form->{callback} = $callback;


  		




  48
  52
  
    

  		




  49
  53
  
    
  print $form->parse_html_template("menu/menuv3");


  		




  50
  54
  
    

  		












  

    
      bin/mozilla/menuv4.pl
    
  





  34
  34
  
    

  		




  35
  35
  
    
$menufile = "menu.ini";


  		




  36
  36
  
    
use SL::Menu;


  		




  
  37
  
    
use URI;


  		




  37
  38
  
    

  		




  38
  39
  
    
1;


  		




  39
  40
  
    

  		




  ......




  44
  45
  
    

  		




  45
  46
  
    
  $form->{date}     = clock_line();


  		




  46
  47
  
    
  $form->{menu}     = acc_menu();


  		




  47
  
  
    
  $form->{callback} = $form->unescape($form->{callback}) || "login.pl?action=company_logo";


  		




  
  48
  
    
  my $callback      = $form->unescape($form->{callback});


  		




  
  49
  
    
  $main::lxdebug->message(0, ">>>>>  $callback");


  		




  
  50
  
    
  $callback         = URI->new($callback)->rel($callback) if $callback;


  		




  
  51
  
    
  $main::lxdebug->message(0, ">>>>>  $callback");


  		




  
  52
  
    
  $callback         = "login.pl?action=company_logo"      if $callback =~ /^(.\/)?$/;


  		




  
  53
  
    
  $main::lxdebug->message(0, ">>>>>  $callback");


  		




  
  54
  
    
  $form->{callback} = $callback;


  		




  48
  55
  
    

  		




  49
  56
  
    
  print $form->parse_html_template("menu/menuv4");


  		




  50
  57
  
    

  		












  

    
      templates/webpages/menu/menuv4_de.html
    
  





  38
  38
  
    

  		




  39
  39
  
    
 <div style="clear: both;"></div>


  		




  40
  40
  
    

  		




  41
  
  
    
 <iframe id="win1" src="login.pl?action=company_logo" width="100%" height="94%" name="main_window" style="position: absolute; border: 0px; z-index: 99; ">


  		




  
  41
  
    
 <iframe id="win1" src="[% callback %]" width="100%" height="94%" name="main_window" style="position: absolute; border: 0px; z-index: 99; ">


  		




  42
  42
  
    
  <p>Ihr Browser kann leider keine eingebetteten Frames anzeigen. Bitte w&auml;hlen Sie ein anderes Men&uuml; in der Benutzerkonfiguration im Administrationsmen&uuml; aus.</p>


  		




  43
  43
  
    
 </iframe>


  		




  44
  44
  
    
</body>


  		












Auch abrufbar als:  Unified diff