smeserver-shared-folders/contribs8/smeserver-shared-folders-0.1-share_name_starting_with_a_num.patch

diff -Nur smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm
--- smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm 2012-10-17 16:40:58.878968421 +0200
+++ smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm     2012-10-17 16:41:53.613916613 +0200
@@ -778,7 +778,7 @@
 sub validate_name {
     my ($self, $acctName) = @_;
 
-    unless ($acctName =~ /^([a-z][\_\.\-a-z0-9]*)$/){
+    unless ($acctName =~ /^([a-z0-9][\_\.\-a-z0-9]*)$/){
         return $self->localise('ACCT_NAME_HAS_INVALID_CHARS',
                              {acctName => $acctName});
     }
1	unnilennium	1.1	diff -Nur smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm
2			--- smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm 2012-10-17 16:40:58.878968421 +0200
3			+++ smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm 2012-10-17 16:41:53.613916613 +0200
4			@@ -778,7 +778,7 @@
5			sub validate_name {
6			my ($self, $acctName) = @_;
7
8			- unless ($acctName =~ /^([a-z][\_\.\-a-z0-9]*)$/){
9			+ unless ($acctName =~ /^([a-z0-9][\_\.\-a-z0-9]*)$/){
10			return $self->localise('ACCT_NAME_HAS_INVALID_CHARS',
11			{acctName => $acctName});
12			}