/[smeserver]/rpms/e-smith-samba/sme7/e-smith-samba-1.14.0-workgroupnum.patch
ViewVC logotype

Annotation of /rpms/e-smith-samba/sme7/e-smith-samba-1.14.0-workgroupnum.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.2 - (hide annotations) (download)
Sat Dec 15 16:01:26 2007 UTC (16 years, 10 months ago) by slords
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +0 -0 lines
FILE REMOVED
Import on branch sme7 of package e-smith-samba-1.14.1-1.el4.sme.src.rpm

1 slords 1.1 diff -Nur -x '*.orig' -x '*.rej' e-smith-samba-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/workgroup.pm mezzanine_patched_e-smith-samba-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/workgroup.pm
2     --- e-smith-samba-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/workgroup.pm 2003-04-10 13:14:32.000000000 -0600
3     +++ mezzanine_patched_e-smith-samba-1.14.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/workgroup.pm 2007-01-10 07:49:22.000000000 -0700
4     @@ -154,7 +154,7 @@
5     my $workgroup = lc(shift);
6    
7     my $server = lc($fm->cgi->param('ServerName'));
8     - return "INVALID_WORKGROUP" unless ( $workgroup =~ /^([a-zA-Z][\-\w\.]*)$/ );
9     + return "INVALID_WORKGROUP" unless ( $workgroup =~ /^([a-zA-Z0-9][\-\w\.]*)$/ );
10     return 'INVALID_WORKGROUP_MATCHES_SERVERNAME' if ( $server eq $workgroup);
11     return ('OK');
12    

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed