X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=Scraper.pm;h=692a4c6f4496c2a639a6f84852a73ed6ebff0744;hb=18a4315db8c49fd64ca248a402e471915de12e24;hp=535f7b5b7c5779277a99ed6825022e5a0c690297;hpb=c3e2438f93abacf1e5db8dc1286a51d150bad156;p=Biblio-Z3950.git

diff --git a/Scraper.pm b/Scraper.pm
index 535f7b5..692a4c6 100644
--- a/Scraper.pm
+++ b/Scraper.pm
@@ -18,6 +18,8 @@ sub new {
     return $self;
 }
 
+sub mech { $_[0]->{mech} }
+
 sub save_marc {
 	my ( $self, $id, $marc ) = @_;
 
@@ -35,4 +37,16 @@ sub save_marc {
 
 }
 
+our $dump_nr = 1;
+
+sub save_content {
+	my $self = shift;
+	my $path = "/tmp/$dump_nr.html";
+	open(my $html, '>', $path);
+	print $html $self->{mech}->content;
+	close($html);
+	warn "# save_content $path ", -s $path, " bytes";
+	$dump_nr++;
+}
+
 1;