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

Contents 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.1 - (show annotations) (download)
Tue Jun 12 16:12:59 2007 UTC (17 years, 4 months ago) by slords
Branch: MAIN
CVS Tags: e-smith-samba-1_14_0-30_el4_sme, e-smith-samba-1_14_0-35_el4_sme, e-smith-samba-1_14_0-36_el4_sme, e-smith-samba-1_14_0-33_el4_sme, e-smith-samba-1_14_0-34_el4_sme, e-smith-samba-1_14_0-31_el4_sme, e-smith-samba-1_14_0-32_el4_sme, e-smith-samba-1_14_0-29_el4_sme
Import on branch sme7 of package e-smith-samba-1.14.0-29.el4.sme.src.rpm

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