verif les url

lib/Bartender.pm

@@ -21,7 +21,7 @@ get '/shake' => sub {
     }
 
     for($opt_base, $opt_garde) {
-        if(not m{^https?://}i ) {
+        if(not m{^https?://pad\.exegetes\.eu\.org/p/[.a-za-Z$-/]+$}i ) {
             $error->{message} .= qq{"$_" est incorrect.};
         }
     }