Revision 31b977d6
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/menu.pl | ||
|---|---|---|
|
|
||
|
my $callback = $form->unescape($form->{callback});
|
||
|
$callback = URI->new($callback)->rel($callback) if $callback;
|
||
|
$callback = "login.pl?action=company_logo" if $callback =~ /^(.\/)?$/;
|
||
|
$callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/;
|
||
|
|
||
|
$form->header;
|
||
|
|
||
| bin/mozilla/menuXML.pl | ||
|---|---|---|
|
my $charset = $dbcharset || 'ISO-8859-1';
|
||
|
my $callback = $form->unescape($form->{callback});
|
||
|
$callback = URI->new($callback)->rel($callback) if $callback;
|
||
|
$callback = "login.pl?action=company_logo" if $callback =~ /^(.\/)?$/;
|
||
|
$callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/;
|
||
|
|
||
|
my $text = $form->create_http_response('content_type' => 'text/xml',
|
||
|
'charset' => $charset)
|
||
| bin/mozilla/menunew.pl | ||
|---|---|---|
|
$form->{menu_items} = acc_menu();
|
||
|
my $callback = $form->unescape($form->{callback});
|
||
|
$callback = URI->new($callback)->rel($callback) if $callback;
|
||
|
$callback = "login.pl?action=company_logo" if $callback =~ /^(.\/)?$/;
|
||
|
$callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/;
|
||
|
$form->{callback} = $callback;
|
||
|
|
||
|
print $form->parse_html_template("menu/menunew");
|
||
| bin/mozilla/menuv3.pl | ||
|---|---|---|
|
$form->{menu} = acc_menu();
|
||
|
my $callback = $form->unescape($form->{callback});
|
||
|
$callback = URI->new($callback)->rel($callback) if $callback;
|
||
|
$callback = "login.pl?action=company_logo" if $callback =~ /^(.\/)?$/;
|
||
|
$callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/;
|
||
|
$form->{callback} = $callback;
|
||
|
|
||
|
print $form->parse_html_template("menu/menuv3");
|
||
| bin/mozilla/menuv4.pl | ||
|---|---|---|
|
$form->{date} = clock_line();
|
||
|
$form->{menu} = acc_menu();
|
||
|
my $callback = $form->unescape($form->{callback});
|
||
|
$main::lxdebug->message(0, ">>>>> $callback");
|
||
|
$callback = URI->new($callback)->rel($callback) if $callback;
|
||
|
$main::lxdebug->message(0, ">>>>> $callback");
|
||
|
$callback = "login.pl?action=company_logo" if $callback =~ /^(.\/)?$/;
|
||
|
$main::lxdebug->message(0, ">>>>> $callback");
|
||
|
$callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/;
|
||
|
$form->{callback} = $callback;
|
||
|
|
||
|
print $form->parse_html_template("menu/menuv4");
|
||
Auch abrufbar als: Unified diff
Regex korrekt escapen und Debugmeldungen.