my $p_sAction = $oCGI->param( "action" ); $p_sAction = decode( 'UTF-8', $p_sAction ); if ( !defined( $p_sAction ) ){ print $oCGI->redirect( "access-denied.pl?reason=110" ); exit; } print "Content-type: text/html\n\n"; print ""; print "p_sAction: #" . $p_sAction . "#
"; print "1510 --- #$p_sAction# eq #$aText{'1510'}#

"; ##

##

p_sAction: #Benutzer l�schen#
1510 --- #Benutzer l�schen# eq #Benutzer löschen#

##

##

my $p_sAction = $oCGI->param( "action" );
$p_sAction = decode( 'UTF-8', $p_sAction );
if ( !defined( $p_sAction ) ){
	print $oCGI->redirect( "access-denied.pl?reason=110" );
	exit;
}
print "Content-type: text/html\n\n";
print "";
print "p_sAction: #" . $p_sAction . "#
";
$aText{'1530'} = decode( 'UTF-8', $aText{'1510'} );
print "1510 --- #$p_sAction# eq #$aText{'1510'}#

";

##

##

p_sAction: #Benutzer l�schen#
1510 --- #Benutzer l�schen# eq #Benutzer löschen#

##

##

my $p_sAction = $oCGI->param( "action" );
$p_sAction = decode( 'UTF-8', $p_sAction );
if ( !defined( $p_sAction ) ){
	print $oCGI->redirect( "access-denied.pl?reason=110" );
	exit;
}
print "Content-type: text/html\n\n";
print "p_sAction: #" . $p_sAction . "#
";
print "1510 --- #$p_sAction# eq #$aText{'1510'}#

";

##

##

p_sAction: #Benutzer löschen#
1530 --- #Benutzer löschen# eq #Benutzer löschen#

##

##

my $p_sAction = $oCGI->param( "action" );
$p_sAction = decode( 'UTF-8', $p_sAction );
if ( !defined( $p_sAction ) ){
	print $oCGI->redirect( "access-denied.pl?reason=110" );
	exit;
}
print "Content-type: text/html\n\n";
print "p_sAction: #" . $p_sAction . "#
";
$aText{'1530'} = decode( 'UTF-8', $aText{'1510'} );
print "1510 --- #$p_sAction# eq #$aText{'1510'}#

";

##

##

p_sAction: #Benutzer löschen#
1530 --- #Benutzer löschen# eq #Benutzer löschen#

##

##

if ( $p_sAction eq "Benutzer löschen" ){
	print "HELLO WORLD 22222 - Benutzer löschen
";
}