# Get URL
#
my $url = ($ENV{$UC_NAME.'_URL'} ? $ENV{$UC_NAME.'_URL'} : '/opt/rent/www/index.php');
-
if (!$Opt{ssh} and @ARGV and ($ARGV[0] =~ m|^\w+://| or -e $ARGV[0] )) {
$url = shift @ARGV;
@EXEC = grep {$_ ne $url} @EXEC;
#die $Opt{ssh};
#exec('ssh',$ARGV[0] && shift @ARGV,$NAME,@ARGV) if @ARGV and $ARGV[0] eq '--ssh' and shift @ARGV;
+#
+# Handle format proto://db:table@hosts
+#
$url =~ s,^(\w+://)?([^@]+)@(.*?)$,$1$3, and push(@EXEC,"db=$2");
+#
+# Proto SSH
+#
$url =~ m@^ssh://(.*)$@ and $Opt{ssh} = $1;
#die "$url | ",join(' ',@EXEC);