index 0b32d18eaa963492bfb7fb1bb4437763db7b70c3..c18bfa1f1515a8edb27c2d468a2982860a561939 100755 (executable)
my $wiki_name = $url;
$wiki_name =~ s/[^\/]*:\/\///;
+# If URL is like http://user:password@example.com/, we clearly don't
+# want the password in $wiki_name. While we're there, also remove user
+# and '@' sign, to avoid author like MWUser@HTTPUser@host.com
+$wiki_name =~ s/^.*@//;
# Commands parser
my $entry;