| Line 1112... |
Line 1112... |
| 1112 |
Debug ("SvnIsaSimpleLabel, $label");
|
1112 |
Debug ("SvnIsaSimpleLabel, $label");
|
| 1113 |
|
1113 |
|
| 1114 |
Error ("No label provided") unless ( $label );
|
1114 |
Error ("No label provided") unless ( $label );
|
| 1115 |
Error ("Invalid label. Peg (\@nnn) is not allowed: \"$label\"" ) if ( $label =~ m~@\d+$~ );
|
1115 |
Error ("Invalid label. Peg (\@nnn) is not allowed: \"$label\"" ) if ( $label =~ m~@\d+$~ );
|
| 1116 |
Error ("Invalid label. Package Path is not allowed: \"$label\"" ) if ( $label =~ m~/~ );
|
1116 |
Error ("Invalid label. Package Path is not allowed: \"$label\"" ) if ( $label =~ m~/~ );
|
| - |
|
1117 |
Error ("Invalid label. Invalid Start Character: \"$label\"" ) unless ( $label =~ m~^[0-9a-zA-Z]~ );
|
| - |
|
1118 |
Error ("Invalid label. Invalid End Character: \"$label\"" ) unless ( $label =~ m~[0-9a-zA-Z]$~ );
|
| 1117 |
Error ("Invalid label. Invalid Characters: \"$label\"" ) unless ( $label =~ m~^[-.:0-9a-zA-Z_]+$~ );
|
1119 |
Error ("Invalid label. Invalid Characters: \"$label\"" ) unless ( $label =~ m~^[-.:0-9a-zA-Z_]+$~ );
|
| 1118 |
Error ("Invalid label. Double :: not allowed: \"$label\"" ) if ( $label =~m~::~ );
|
1120 |
Error ("Invalid label. Double :: not allowed: \"$label\"" ) if ( $label =~m~::~ );
|
| 1119 |
|
1121 |
|
| 1120 |
#
|
1122 |
#
|
| 1121 |
# Allow for a label of TIMESTAMP and have it expand
|
1123 |
# Allow for a label of TIMESTAMP and have it expand
|
| 1122 |
# Create a label based on users name and a date-time hat can be sorted
|
1124 |
# Create a label based on users name and a date-time that can be sorted
|
| 1123 |
#
|
1125 |
#
|
| 1124 |
if ( $label eq 'TIMESTAMP' )
|
1126 |
if ( $label eq 'TIMESTAMP' )
|
| 1125 |
{
|
1127 |
{
|
| 1126 |
::EnvImport ('USER' );
|
1128 |
::EnvImport ('USER' );
|
| 1127 |
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|
1129 |
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
|