Changeset 120 in bookmarks for trunk

Timestamp:

02/25/16 17:17:13 (9 years ago)

Author:

peter

Message:

Moved bookmark scanning functionality into the bkmk script.

Location:

trunk

Files:

• bin/bkmk (modified) (7 diffs)
• scan (deleted)

trunk/bin/bkmk

@@ -6 +6 @@
 
 use YAML;
-use Getopt::Long;
+use Getopt::Long qw{GetOptions GetOptionsFromArray :config pass_through};
 
 use Bookmarks;
@@ -12 +12 @@
 GetOptions(
     'file|f=s' => \my $DBNAME,
-    'title=s' => \my $TITLE,
 );
 
@@ -19 +18 @@
 
 my $bookmarks = Bookmarks->new({
-    dbname => $dbname,
-});
+        dbname => $dbname,
+    });
 
 my $command = shift;
@@ -30 +29 @@
         load_bookmarks($src_file) if $src_file;
     },
-    
+
     get => sub {
         my $identifier = shift;
@@ -36 +35 @@
         print $bookmark ? Dump($bookmark->to_hashref) : "Not Found\n";
     },
-    
+
     add => sub {
+        GetOptionsFromArray(
+            \@_,
+            'title=s' => \my $TITLE,
+        );
         my ($uri, @tags) = @_;
         my $title = defined $TITLE ? $TITLE : fetch_title($uri);
@@ -47 +50 @@
         my @tags = @_;
         my $resources = $bookmarks->search({
-            tags => \@tags
-        });
+                tags => \@tags
+            });
         # TODO: list by tags, date, etc.
         # TODO: coordinate this commandline script with the CGI app
@@ -80 +83 @@
         $dump_file ? YAML::DumpFile($dump_file, $dump) : print Dump($dump);
     },
+
+    # scanning for current status
+    scan => sub {
+        GetOptionsFromArray(
+            \@_,
+            'csv'       => \my $CSV,
+            'timeout=i' => \my $TIMEOUT,
+        );
+
+        require LWP::UserAgent;
+        require Text::CSV;
+
+        $TIMEOUT ||= 10;
+
+        my $ua = LWP::UserAgent->new;
+        $ua->timeout($TIMEOUT);
+
+        my $csv = Text::CSV->new;
+
+        for my $bookmark (@{ $bookmarks->search->results }) {
+            printf "%3d %s\n", $bookmark->id, $bookmark->uri unless $CSV;
+            my $response = $ua->head($bookmark->uri);
+            printf "   -> %s\n", $response->status_line unless $CSV;
+            $csv->combine(
+                $bookmark->id,
+                $bookmark->uri,
+                $response->code,
+                $response->message,
+            );
+            print $csv->string . "\n" if $CSV;
+        }
+    },
 );