projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
56b1d1b
)
Minor bugfixes
author
Tim Pope
<code@tpope.net>
Mon, 9 Aug 2004 06:46:40 +0000
(06:46 +0000)
committer
Tim Pope
<code@tpope.net>
Mon, 9 Aug 2004 06:46:40 +0000
(06:46 +0000)
perl/blogcl
patch
|
blob
|
history
diff --git
a/perl/blogcl
b/perl/blogcl
index 71403b8e3f116ae1caa694b39ed1aebeaa5f0e6c..53871820eb18e8dc3410ec00029519410bf5da57 100755
(executable)
--- a/
perl/blogcl
+++ b/
perl/blogcl
@@
-29,9
+29,9
@@
if ($ARGV[0] eq "help") {
}
sub init_mt {
}
sub init_mt {
- die "No url given.\n" unless(defined(
"$url"
));
- die "No username given.\n" unless(defined(
"$username"
));
- die "No passowrd given.\n" unless(defined(
"$password"
));
+ die "No url given.\n" unless(defined(
$opts{url}
));
+ die "No username given.\n" unless(defined(
$opts{username}
));
+ die "No passowrd given.\n" unless(defined(
$opts{password}
));
$mt = new Net::MovableType($opts{'url'}) || die "$!";
$mt->username($opts{'username'});
$mt->password($opts{'password'});
$mt = new Net::MovableType($opts{'url'}) || die "$!";
$mt->username($opts{'username'});
$mt->password($opts{'password'});