← Back to branch summary

~ubuntu-branches/ubuntu/utopic/octopussy/utopic

« back to all changes in this revision

Viewing changes to usr/share/perl5/Octopussy/Storage.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/Storage.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
17
17
 
18
18
use List::MoreUtils qw(any firstval);
19
19
 
20
 
use AAT::Utils qw( ARRAY );
 
20
use AAT::Utils qw( ARRAY NOT_NULL );
21
21
use AAT::XML;
22
22
use Octopussy::Device;
23
23
use Octopussy::FS;
268
268
  return ($dir);
269
269
}
270
270
 
 
271
=head2 Valid_Name($name)
 
272
 
 
273
Checks that '$name' is valid for a Storage name
 
274
 
 
275
=cut
 
276
 
 
277
sub Valid_Name
 
278
{
 
279
    my $name = shift;
 
280
 
 
281
    return (1)  if ((NOT_NULL($name)) && ($name =~ /^[a-z][a-z0-9_-]*$/i));
 
282
 
 
283
    return (0);
 
284
}
 
285
 
271
286
1;
272
287
 
273
288
=head1 AUTHOR