smeserver-shared-folders/contribs7/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	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	}