Changeset 3086

Timestamp:

12/12/07 16:56:25 (5 years ago)

Author:

typester

Message:

Fuse::Hatena: なんかurlきめうちにしてたとこあった

Files:

• lang/perl/Fuse-Hatena/trunk/hatenafs_test.pl (modified) (3 diffs)

lang/perl/Fuse-Hatena/trunk/hatenafs_test.pl

@@ -327 +327 @@
     my $da = shift;
 
-    $mech->get("http://d.hatena.ne.jp/typester/edit?date=$da");
+    $mech->get("http://d.hatena.ne.jp/$username/edit?date=$da");
     my $res = $hatena_entry_text->scrape($mech->content);
 
@@ -339 +339 @@
     my ($y,$m,$d) = $da =~ /(\d{4})(\d{2})(\d{2})/;
 
-    $mech->get("http://d.hatena.ne.jp/typester/edit?date=$da");
+    $mech->get("http://d.hatena.ne.jp/$username/edit?date=$da");
     $mech->submit_form(
         fields => {
@@ -353 +353 @@
     my $da = shift;
 
-    $mech->get("http://d.hatena.ne.jp/typester/edit?date=$da");
+    $mech->get("http://d.hatena.ne.jp/$username/edit?date=$da");
     $mech->form_number(2);
     $mech->submit;