9 my ( $class, $database ) = @_;
14 mech => WWW::Mechanize->new(),
15 database => $database,
21 sub mech { $_[0]->{mech} }
24 my ( $self, $id, $marc ) = @_;
26 my $database = $self->{database};
27 mkdir 'marc' unless -e 'marc';
28 mkdir "marc/$database" unless -e "marc/$database";
30 my $path = "marc/$database/$id";
32 open(my $out, '>:utf8', $path) || die "$path: $!";
36 warn "# created $path ", -s $path, " bytes";
44 my $path = "/tmp/$dump_nr.html";
45 open(my $html, '>', $path);
46 print $html $self->{mech}->content;
48 warn "# save_content $path ", -s $path, " bytes";