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/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
  
    
}


  		












Auch abrufbar als:  Unified diff