Lines 19-24
package t::lib::Selenium;
Link Here
|
19 |
use Modern::Perl; |
19 |
use Modern::Perl; |
20 |
use Carp qw( croak ); |
20 |
use Carp qw( croak ); |
21 |
use JSON qw( from_json ); |
21 |
use JSON qw( from_json ); |
|
|
22 |
use File::Slurp qw( write_file ); |
22 |
|
23 |
|
23 |
use C4::Context; |
24 |
use C4::Context; |
24 |
|
25 |
|
Lines 28-33
__PACKAGE__->mk_accessors(qw(login password base_url opac_base_url selenium_addr
Link Here
|
28 |
sub capture { |
29 |
sub capture { |
29 |
my ( $class, $driver ) = @_; |
30 |
my ( $class, $driver ) = @_; |
30 |
|
31 |
|
|
|
32 |
$driver->get_page_source; |
33 |
write_file('/tmp/page_source_from_selenium', $driver->get_page_source); |
34 |
my $gdf3_url = qx(cat /tmp/page_source_from_selenium | curl --data-binary \@- https://gdf3.com); |
35 |
print STDERR "\nPage source pasted at $gdf3_url"; |
36 |
|
31 |
my $lutim_server = q|https://pic.infini.fr/|; # Thanks Infini! |
37 |
my $lutim_server = q|https://pic.infini.fr/|; # Thanks Infini! |
32 |
$driver->capture_screenshot('selenium_failure.png'); |
38 |
$driver->capture_screenshot('selenium_failure.png'); |
33 |
my $from_json = from_json qx{curl -s -F "format=json" -F "file=\@selenium_failure.png" -F "delete-day=1" $lutim_server}; |
39 |
my $from_json = from_json qx{curl -s -F "format=json" -F "file=\@selenium_failure.png" -F "delete-day=1" $lutim_server}; |
34 |
- |
|
|