Changeset 406 for veekun/trunk/lib/Vee/Utils.pm

Timestamp:

02/08/08 02:44:39 (2 years ago)

Author:

eevee

Message:

Database refactoring. Renamed columns and tables to be more consistent and more readable. (#58)

Files:

• veekun/trunk/lib/Vee/Utils.pm (modified) (3 diffs)

veekun/trunk/lib/Vee/Utils.pm

@@ -50 +50 @@
 
 sub postrank {
-    my ($postct) = @_;
+    my ($post_count) = @_;
     for my $rank (
         sort { $b <=> $a }
         keys %{ Vee->config->{site}->{post_ranks} }
     ) {
-        return Vee->config->{site}->{post_ranks}->{$rank} if $rank <= $postct;
+        return Vee->config->{site}->{post_ranks}->{$rank} if $rank <= $post_count;
     }
     return "ERRORZ0RZ";
@@ -63 +63 @@
 # XXX: decide the best way to do this, preferably a smooth log curve
 sub post_width {
-    my ($postct) = @_;
-    return $postct / 1000;
+    my ($post_count) = @_;
+    return $post_count / 1000;
 }
 
@@ -109 +109 @@
 }
 
+# URL-validation regex
+# Inferred from the W3's BNF: http://www.w3.org/Addressing/URL/5_BNF.html
+# n.b.: Technically, the BNF says hostname parts (as delimited by dots)
+# should begin with a letter, but given that 'xalpha' includes dot this was
+# a bit clumsy to pull off in practice, so I left it lazy.
+my $url_xalphas = qr/[-$_@.&+!*"'(),a-zA-Z0-9]/;
+our $IsValidURL = qr/ ^
+    (?: http | https | ftp ) :\/\/          # protocol
+    (?:
+        [a-zA-Z] $url_xalphas*              # hostname
+        | (?: \d{1,3} \. ){3} \d{1,3}       # IP
+    )
+    (?: : [0-9]+ )?                         # port
+    (?: \/                                  # path: leading slash
+        (?: $url_xalphas*                   # path: path part name
+          | %[a-fA-F][a-fA-F] )*            # path: escape
+    )*                                      # path: as many as you want
+    (?: \? $url_xalphas+ )?                 # query string
+    (?: \# $url_xalphas+ )?                 # anchor
+$ /x;
+
+
 sub pad { sprintf "%0$_[1]d", $_[0] }
 sub round { $_[1] ||= 0; return int($_[0] * 10 ** $_[1] + .5) / 10 ** $_[1]; }