Skip to content
Permalink
Browse files Browse the repository at this point in the history
Use https when checking package information
Prevents network attackers from manipulating the displayed information.

Stick to http for Mandriva and SourceMage,
since they don't appear to support https.
  • Loading branch information
pabs3 committed Nov 2, 2021
1 parent 7581640 commit 667c3e2
Showing 1 changed file with 15 additions and 15 deletions.
30 changes: 15 additions & 15 deletions whohas
Expand Up @@ -187,7 +187,7 @@ sub maxthreads {
}

sub fedora {
my $baseurl = "http://dl.fedoraproject.org/pub/fedora/linux/releases/";
my $baseurl = "https://dl.fedoraproject.org/pub/fedora/linux/releases/";
my $distroname = "Fedora";
my $arch = "x86_64";
my $searchy = $_[0];
Expand Down Expand Up @@ -261,7 +261,7 @@ sub month_to_digits {
}

sub macports {
my $baseurl = "http://www.macports.org";
my $baseurl = "https://www.macports.org";
my @names;
my @versions;
my @dates;
Expand Down Expand Up @@ -291,7 +291,7 @@ sub macports {


sub fink {
my $baseurl = "http://pdb.finkproject.org/pdb/";
my $baseurl = "https://pdb.finkproject.org/pdb/";
my @names;
my @versions;
my @dates;
Expand Down Expand Up @@ -388,7 +388,7 @@ sub size_trim {


sub freebsd {
my $query = "http://www.freebsd.org/cgi/ports.cgi?query=".$_[0]."&stype=all";
my $query = "https://www.freebsd.org/cgi/ports.cgi?query=".$_[0]."&stype=all";
my @lines = split /\n/, &fetchdoc($query);
my @names;
my @versions;
Expand All @@ -404,7 +404,7 @@ sub freebsd {
my @subparts = split /\//, $parts[3];
push @sizes, "";
push @repos, $subparts[@subparts-2];
push @urls, "http://www.freebsd.org/cgi/ports.cgi?stype=all&query=$names[$now]";
push @urls, "https://www.freebsd.org/cgi/ports.cgi?stype=all&query=$names[$now]";
$now++;
push @dates, "";
}
Expand Down Expand Up @@ -552,7 +552,7 @@ sub openbsd_combos {
sub openbsd_newer {
my $rel = $openbsd_release;
my $arch = "i386";
my $baseurl = 'http://ftp.openbsd.org/pub/OpenBSD/'.$rel.'/packages/'.$arch.'/';
my $baseurl = 'https://ftp.openbsd.org/pub/OpenBSD/'.$rel.'/packages/'.$arch.'/';
my @names;
my @versions;
my @urls;
Expand Down Expand Up @@ -599,7 +599,7 @@ sub openbsd_newer {
sub openbsd_older {
my $rel = $openbsd_release;
my $arch = "i386";
my $baseurl = "http://www.openbsd.org/".$rel.'_packages/';
my $baseurl = "https://www.openbsd.org/".$rel.'_packages/';
my @names;
my @versions;
my @urls;
Expand Down Expand Up @@ -646,7 +646,7 @@ sub openbsd_older {
}

sub cygwin {
my $baseurl = "http://www.cygwin.com/packages";
my $baseurl = "https://www.cygwin.com/packages";
my @names;
my @versions;
my @urls;
Expand Down Expand Up @@ -693,8 +693,8 @@ sub cygwin {
}

sub gentoo {
my $gentoobase = "http://gpo.zugaina.org/";
my $gentoobaseofficial = "http://packages.gentoo.org/package";
my $gentoobase = "https://gpo.zugaina.org/";
my $gentoobaseofficial = "https://packages.gentoo.org/package";
my $distroname = "Gentoo";
my @names;
my @versions;
Expand Down Expand Up @@ -816,7 +816,7 @@ sub slack_combos {
}

sub slack {
my $slackbase = "http://packages.slackware.com/";
my $slackbase = "https://packages.slackware.com/";
my @repos;
my @groups;
my @names;
Expand Down Expand Up @@ -892,13 +892,13 @@ sub debian_size_convert {
sub debian {
my @dists = ($debian_current_release);
&debuntu('http://packages.debian.org','Debian',\@dists,$_[0]);
&debuntu('https://packages.debian.org','Debian',\@dists,$_[0]);
return();
}
sub ubuntu {
my @array = ($ubuntu_current_release);
&debuntu('http://packages.ubuntu.com','Ubuntu',\@array,$_[0]);
&debuntu('https://packages.ubuntu.com','Ubuntu',\@array,$_[0]);
return();
}
Expand Down Expand Up @@ -1155,7 +1155,7 @@ sub trim($) {
}
sub opensuse {
my $opensusebase = "http://software.opensuse.org";
my $opensusebase = "https://software.opensuse.org";
my @names;
my @repos;
my @groups;
Expand Down Expand Up @@ -1238,7 +1238,7 @@ sub sizeconvert {
}

sub netbsd {
my @lines = split /\n|<br\/>/, &fetchdoc("http://pkgsrc.se/search.php?so=".$_[0]);
my @lines = split /\n|<br\/>/, &fetchdoc("https://pkgsrc.se/search.php?so=".$_[0]);
my @names;
my @versions;
my @dates;
Expand Down

0 comments on commit 667c3e2

Please sign in to comment.