[haver-commits] r470 - trunk/main/core/lib/Haver

[haver]

Author: dylan
Date: 2004-12-29 23:51:20 -0500 (Wed, 29 Dec 2004)
New Revision: 470

Modified:
   trunk/main/core/lib/Haver/Formats.pm
Log:
added check_id_valid, check_ns_valid, and check_id_reserved.


Modified: trunk/main/core/lib/Haver/Formats.pm
===================================================================
--- trunk/main/core/lib/Haver/Formats.pm        2004-12-30 03:58:38 UTC (rev 
469)
+++ trunk/main/core/lib/Haver/Formats.pm        2004-12-30 04:51:20 UTC (rev 
470)
@@ -32,11 +32,32 @@
 our %EXPORT_TAGS = (
        'datetime' => [qw( format_datetime parse_datetime )],
        'duration' => [qw( format_duration parse_duration )],
+    'check'    => [qw( check_id_valid check_ns_valid check_id_reserved  )],
 );
-our $VERSION = 0.03;
-our $RELOAD = 1;
+our $VERSION     = 0.04;
+our $RELOAD      = 1;
+our $IdPattern ||= qr/&?[A-Za-z][A-Za-z0-9_'[EMAIL PROTECTED]/;
+our $NsPattern ||= qr/[a-z]+/;
 
+sub check_id_reserved {
+    my $id = shift;
 
+    return $id =~ /^&/ or $id =~ /@/;
+    return 0;
+}
+
+sub check_id_valid {
+    my $id = shift;
+    
+    return $id =~ $IdPattern;
+}
+
+sub check_ns_valid {
+    my $id = shift;
+    
+    return $id =~ $NsPattern;
+}
+
 # Author: dylan
 sub format_datetime {
        # dylan: Because bd_ thought it should work this way...
@@ -96,4 +117,5 @@
        return $secs;
 }
 
+
 1;