SecBSD/ports
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

SecBSD's official ports repository

Browse source
This commit is contained in:
purplerain 2023-08-16 22:26:55 +00:00
commit 2c0afcbbf3
Signed by: purplerain
GPG key ID: F42C07F07E2E35B7
64331 changed files with 5339189 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

57
misc/xkcd-viewer/patches/patch-script_xkcd_viewer_pl Normal file
View file

@ -0,0 +1,57 @@
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) ;