| … | |
… | |
| 5 | # miscellaneous commands |
5 | # miscellaneous commands |
| 6 | |
6 | |
| 7 | sub rename_to($$$) { |
7 | sub rename_to($$$) { |
| 8 | my ($ob, $from, $to) = @_; |
8 | my ($ob, $from, $to) = @_; |
| 9 | |
9 | |
| 10 | $to =~ /^[a-zA-Z0-9.,=#\/%$!^]*$/ |
10 | $to =~ /^[a-zA-Z0-9.,=#\/%$!^ ]*$/ |
| 11 | or return $ob->message ("rename: name must consist only of letters, digits, spaces and a few other things."); |
11 | or return $ob->message ("rename: name must consist only of letters, digits, spaces and a few other things."); |
| 12 | |
12 | |
| 13 | 127 >= length $to |
13 | 127 >= length $to |
| 14 | or return $ob->message ("rename: new name must be <= 127 characters."); |
14 | or return $ob->message ("rename: new name must be <= 127 characters."); |
| 15 | |
15 | |
