$OpenBSD: patch-script_xkcd_viewer_pl,v 1.3 2020/11/04 08:19:29 landry Exp $

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) ;
