57 lines
2.6 KiB
Text
57 lines
2.6 KiB
Text
Index: script/xkcd_viewer.pl
|
|
--- script/xkcd_viewer.pl.orig
|
|
+++ script/xkcd_viewer.pl
|
|
@@ -202,7 +202,7 @@ sub set_image {
|
|
}
|
|
|
|
sub update_win {
|
|
- $linklabel->set_label("http://xkcd.com/" . $xkcd->number . "/ - " . $xkcd->title);
|
|
+ $linklabel->set_label("https://xkcd.com/" . $xkcd->number . "/ - " . $xkcd->title);
|
|
$mainwindow->set_title("XKCD Viewer :3 - " . $xkcd->title);
|
|
$tooltip->set_tip ($image, $xkcd->description);
|
|
}
|
|
@@ -323,7 +323,7 @@ sub on_rightclick {
|
|
$menu->popup(undef, undef, undef, undef, $event->button, $event->time);
|
|
$saveas->signal_connect("activate" ,\&on_save,$mainwindow);
|
|
$getlink->signal_connect("activate" ,\&on_getlink,$mainwindow);
|
|
- $copylink->signal_connect(activate => sub {copy_to_clipboard("http://xkcd.com/" . $xkcd->number . "/")});
|
|
+ $copylink->signal_connect(activate => sub {copy_to_clipboard("https://xkcd.com/" . $xkcd->number . "/")});
|
|
$copydirect->signal_connect(activate => sub {copy_to_clipboard($xkcd->link)});
|
|
}
|
|
|
|
@@ -397,7 +397,7 @@ sub on_search {
|
|
if (%results) {
|
|
my @keys = keys %results;
|
|
foreach my $key (@keys) {
|
|
- push (@{$list->{data}}, [$key, "http://xkcd.com/" . $results{$key} . "/"]);
|
|
+ push (@{$list->{data}}, [$key, "https://xkcd.com/" . $results{$key} . "/"]);
|
|
}
|
|
}
|
|
else {
|
|
@@ -408,7 +408,7 @@ sub on_search {
|
|
$list->signal_connect (row_activated => sub {
|
|
my $selection = ($list->get_selected_indices)[0];
|
|
my @row = @{(@{$list->{data}})[$selection]};
|
|
- $row[1] =~ /http:\/\/xkcd.com\/(\d{1,3})\//;
|
|
+ $row[1] =~ /https:\/\/xkcd.com\/(\d{1,3})\//;
|
|
$xkcd->SetNumber($1);
|
|
set_image();
|
|
});
|
|
@@ -433,7 +433,7 @@ sub on_inslink {
|
|
$window->set_title("Insert link");
|
|
$window->set_default_size(320,140);
|
|
$window->set_border_width(30);
|
|
- my $label = Gtk2::Label->new("Insert an XKCD image link/number\nExample: 1 or http://xkcd.com/1/\n");
|
|
+ my $label = Gtk2::Label->new("Insert an XKCD image link/number\nExample: 1 or https://xkcd.com/1/\n");
|
|
our $linkentry = Gtk2::Entry->new;
|
|
my $okay = Gtk2::Button->new_from_stock('gtk-ok');
|
|
my $table = Gtk2::Table->new(3,1);
|
|
@@ -451,7 +451,7 @@ sub on_inslink {
|
|
$window->show;
|
|
$okay->signal_connect("clicked", sub {
|
|
my ($button, $window) = @_;
|
|
- if ($linkentry->get_text =~ /[http:\/\/]?[xkcd.com\/]?(\d{1,3})[\/]?/i) {
|
|
+ if ($linkentry->get_text =~ /[https:\/\/]?[xkcd.com\/]?(\d{1,3})[\/]?/i) {
|
|
my $number = $1;
|
|
if ($number <= $xkcd->total) {
|
|
$xkcd->SetNumber($number) ;
|