← Back to branch summary

~ubuntu-branches/ubuntu/raring/octopussy/raring

« back to all changes in this revision

Viewing changes to usr/share/perl5/Octopussy/ServiceGroup.pm

  • Committer: Package Import Robot
  • Author(s): James Page
  • Date: 2012-09-25 10:27:37 UTC
  • mfrom: (1.1.1)
  • Revision ID: package-import@ubuntu.com-20120925102737-1hgntjl557w3sjqh
Tags: 1.0.6-0ubuntu1
https://launchpad.net/bugs/1056016
* New upstream release (LP: #1056016).
* d/control: bumped Standards-Version: 3.9.3, no changes.
* d/{copyright,control}: Updated upstream URL.
* d/README.Debian: Fixed minor typo.

Show diffs side-by-side

added added

removed removed

Lines of Context:
usr/share/perl5/Octopussy/ServiceGroup.pm
1
1
# $HeadURL$
2
 
# $Revision: 356 $
3
 
# $Date: 2010-05-27 18:51:53 +0100 (Thu, 27 May 2010) $
 
2
# $Revision: 579 $
 
3
# $Date: 2012-06-24 02:11:57 +0100 (Sun, 24 Jun 2012) $
4
4
# $Author: sebthebert $
5
5
 
6
6
=head1 NAME
18
18
use List::MoreUtils qw(any);
19
19
 
20
20
use AAT;
21
 
use AAT::Utils qw( ARRAY );
 
21
use AAT::Utils qw( ARRAY NOT_NULL );
22
22
use AAT::XML;
23
23
use Octopussy::FS;
24
24
 
283
283
  return ($rank);
284
284
}
285
285
 
 
286
=head2 Valid_Name($name)
 
287
 
 
288
Checks that '$name' is valid for a ServiceGroup name
 
289
 
 
290
=cut
 
291
 
 
292
sub Valid_Name
 
293
{
 
294
    my $name = shift;
 
295
 
 
296
    return (1)  if ((NOT_NULL($name)) && ($name =~ /^[a-z][a-z0-9_-]*$/i));
 
297
 
 
298
    return (0);
 
299
}
 
300
 
286
301
1;
287
302
 
288
303
=head1 AUTHOR