@@ -19,7 +19,7 @@ if ($format =~ /^markdown\+$/) {
21# Validate URL and format
21# Validate URL and format
22−unless ($url =~ /^(https?:\/\/)?[\w#_-]+(\.[\w#_-]+)+[\w\/#=?_.-]*$/) {
22+unless ($url =~ /^(https?:\/\/)?[\w#_-]+(\.[\w#_-]+)+(:\d+)?[\w\/#=:?_.-]*$/) {
23 die "Illegal URL: $url\n" ;
23 die "Illegal URL: $url\n" ;
25unless ($format =~ /^markdown\+?|rst|latex|context|rtf|man|docbook$/) {
25unless ($format =~ /^markdown\+?|rst|latex|context|rtf|man|docbook$/) {