6 |
} |
} |
7 |
# Untaint $pseudonym before use in system() |
# Untaint $pseudonym before use in system() |
8 |
- ($pseudonym) = ($pseudonym =~ /(.+)/); |
- ($pseudonym) = ($pseudonym =~ /(.+)/); |
9 |
+ ($pseudonym) = ($pseudonym =~ /([\w\p{L}]+)/); |
+ ($pseudonym) = ($pseudonym =~ /([\w\p{L}.]+)/); |
10 |
system( "/sbin/e-smith/signal-event", "pseudonym-create", "$pseudonym",) |
system( "/sbin/e-smith/signal-event", "pseudonym-create", "$pseudonym",) |
11 |
== 0 or $msg = "Error occurred while creating pseudonym."; |
== 0 or $msg = "Error occurred while creating pseudonym."; |
12 |
|
|
15 |
|
|
16 |
# Untaint $pseudonym before use in system() |
# Untaint $pseudonym before use in system() |
17 |
- ($pseudonym) = ($pseudonym =~ /(.+)/); |
- ($pseudonym) = ($pseudonym =~ /(.+)/); |
18 |
+ ($pseudonym) = ($pseudonym =~ /([\w\p{L}]+)/); |
+ ($pseudonym) = ($pseudonym =~ /([\w\p{L}.]+)/); |
19 |
system( "/sbin/e-smith/signal-event", "pseudonym-modify", "$pseudonym",) |
system( "/sbin/e-smith/signal-event", "pseudonym-modify", "$pseudonym",) |
20 |
== 0 or $msg = "Error occurred while modifying pseudonym."; |
== 0 or $msg = "Error occurred while modifying pseudonym."; |
21 |
|
|
24 |
|
|
25 |
# Untaint $pseudonym before use in system() |
# Untaint $pseudonym before use in system() |
26 |
- ($pseudonym) = ($pseudonym =~ /(.+)/); |
- ($pseudonym) = ($pseudonym =~ /(.+)/); |
27 |
+ ($pseudonym) = ($pseudonym =~ /([\w\p{L}]+)/); |
+ ($pseudonym) = ($pseudonym =~ /([\w\p{L}.]+)/); |
28 |
system( "/sbin/e-smith/signal-event", "pseudonym-delete", "$pseudonym") == 0 |
system( "/sbin/e-smith/signal-event", "pseudonym-delete", "$pseudonym") == 0 |
29 |
or $msg = "Error occurred while removing pseudonym."; |
or $msg = "Error occurred while removing pseudonym."; |
30 |
|
|