start refact the code

master
GouveaHeitor 2019-12-10 20:16:01 -03:00
parent d4a344df71
commit 69e8a333fc
5 changed files with 7 additions and 816 deletions

View File

@ -1,14 +0,0 @@
requires 'JSON', '>= 4.02';
requires 'Switch', '>= 2.17';
requires 'LWP::UserAgent', '>= 6.43';
requires 'Config::Simple', '>= 4.58';
on 'develop' => sub {
requires 'Carton';
requires 'Data::Dumper';
};
on 'build' => sub {
requires 'Carton';
requires 'App::FatPacker';
};

View File

@ -1,782 +0,0 @@
# carton snapshot format: version 1.0
DISTRIBUTIONS
App-FatPacker-0.010008
pathname: M/MS/MSTROUT/App-FatPacker-0.010008.tar.gz
provides:
App::FatPacker 0.010008
App::FatPacker::Trace undef
requirements:
B 1.01
Cwd 0
ExtUtils::MakeMaker 0
File::Copy 0
File::Find 0
File::Path 0
File::Spec::Functions 0
File::Spec::Unix 0
Getopt::Long 0
perl 5.008000
CPAN-Common-Index-0.010
pathname: D/DA/DAGOLDEN/CPAN-Common-Index-0.010.tar.gz
provides:
CPAN::Common::Index 0.010
CPAN::Common::Index::LocalPackage 0.010
CPAN::Common::Index::MetaDB 0.010
CPAN::Common::Index::Mirror 0.010
CPAN::Common::Index::Mux::Ordered 0.010
requirements:
CPAN::DistnameInfo 0
CPAN::Meta::YAML 0
Carp 0
Class::Tiny 0
ExtUtils::MakeMaker 6.17
File::Basename 0
File::Copy 0
File::Fetch 0
File::Spec 0
File::Temp 0.19
File::stat 0
HTTP::Tiny 0
Module::Load 0
Search::Dict 1.07
Tie::Handle::SkipHeader 0
URI 0
parent 0
perl 5.008001
strict 0
warnings 0
CPAN-DistnameInfo-0.12
pathname: G/GB/GBARR/CPAN-DistnameInfo-0.12.tar.gz
provides:
CPAN::DistnameInfo 0.12
requirements:
ExtUtils::MakeMaker 0
Test::More 0
CPAN-Meta-Check-0.014
pathname: L/LE/LEONT/CPAN-Meta-Check-0.014.tar.gz
provides:
CPAN::Meta::Check 0.014
requirements:
CPAN::Meta::Prereqs 2.132830
CPAN::Meta::Requirements 2.121
Exporter 0
ExtUtils::MakeMaker 0
Module::Metadata 1.000023
base 0
perl 5.006
strict 0
warnings 0
Capture-Tiny-0.48
pathname: D/DA/DAGOLDEN/Capture-Tiny-0.48.tar.gz
provides:
Capture::Tiny 0.48
requirements:
Carp 0
Exporter 0
ExtUtils::MakeMaker 6.17
File::Spec 0
File::Temp 0
IO::Handle 0
Scalar::Util 0
perl 5.006
strict 0
warnings 0
Carton-v1.0.34
pathname: M/MI/MIYAGAWA/Carton-v1.0.34.tar.gz
provides:
Carton 1.000034
Carton::Builder undef
Carton::CLI undef
Carton::CPANfile undef
Carton::Dependency undef
Carton::Dist undef
Carton::Dist::Core undef
Carton::Environment undef
Carton::Error undef
Carton::Error::CPANfileNotFound undef
Carton::Error::CommandExit undef
Carton::Error::CommandNotFound undef
Carton::Error::SnapshotNotFound undef
Carton::Error::SnapshotParseError undef
Carton::Index undef
Carton::Mirror undef
Carton::Package undef
Carton::Packer undef
Carton::Snapshot undef
Carton::Snapshot::Emitter undef
Carton::Snapshot::Parser undef
Carton::Tree undef
Carton::Util undef
requirements:
CPAN::Meta 2.120921
CPAN::Meta::Requirements 2.121
Class::Tiny 1.001
ExtUtils::MakeMaker 0
Getopt::Long 2.39
JSON::PP 2.27300
Menlo::CLI::Compat 1.9018
Module::CPANfile 0.9031
Module::CoreList 0
Path::Tiny 0.033
Try::Tiny 0.09
parent 0.223
perl 5.008005
version 0.77
Class-Tiny-1.006
pathname: D/DA/DAGOLDEN/Class-Tiny-1.006.tar.gz
provides:
Class::Tiny 1.006
Class::Tiny::Object 1.006
requirements:
Carp 0
ExtUtils::MakeMaker 6.17
perl 5.006
strict 0
warnings 0
Config-Simple-4.58
pathname: S/SH/SHERZODR/Config-Simple-4.58.tar.gz
provides:
Config::Simple 4.58
requirements:
ExtUtils::MakeMaker 0
Encode-Locale-1.05
pathname: G/GA/GAAS/Encode-Locale-1.05.tar.gz
provides:
Encode::Locale 1.05
requirements:
Encode 2
Encode::Alias 0
ExtUtils::MakeMaker 0
perl 5.008
ExtUtils-Config-0.008
pathname: L/LE/LEONT/ExtUtils-Config-0.008.tar.gz
provides:
ExtUtils::Config 0.008
requirements:
Data::Dumper 0
ExtUtils::MakeMaker 6.30
strict 0
warnings 0
ExtUtils-Helpers-0.026
pathname: L/LE/LEONT/ExtUtils-Helpers-0.026.tar.gz
provides:
ExtUtils::Helpers 0.026
ExtUtils::Helpers::Unix 0.026
ExtUtils::Helpers::VMS 0.026
ExtUtils::Helpers::Windows 0.026
requirements:
Carp 0
Exporter 5.57
ExtUtils::MakeMaker 0
File::Basename 0
File::Copy 0
File::Spec::Functions 0
Text::ParseWords 3.24
perl 5.006
strict 0
warnings 0
ExtUtils-InstallPaths-0.012
pathname: L/LE/LEONT/ExtUtils-InstallPaths-0.012.tar.gz
provides:
ExtUtils::InstallPaths 0.012
requirements:
Carp 0
ExtUtils::Config 0.002
ExtUtils::MakeMaker 0
File::Spec 0
perl 5.006
strict 0
warnings 0
ExtUtils-MakeMaker-CPANfile-0.09
pathname: I/IS/ISHIGAKI/ExtUtils-MakeMaker-CPANfile-0.09.tar.gz
provides:
ExtUtils::MakeMaker::CPANfile 0.09
requirements:
CPAN::Meta::Converter 2.141170
Cwd 0
ExtUtils::MakeMaker 6.17
File::Path 0
Module::CPANfile 0
Test::More 0.88
version 0.76
File-Listing-6.04
pathname: G/GA/GAAS/File-Listing-6.04.tar.gz
provides:
File::Listing 6.04
File::Listing::apache 6.04
File::Listing::dosftp 6.04
File::Listing::netware 6.04
File::Listing::unix 6.04
File::Listing::vms 6.04
requirements:
ExtUtils::MakeMaker 0
HTTP::Date 6
perl 5.006002
File-Which-1.23
pathname: P/PL/PLICEASE/File-Which-1.23.tar.gz
provides:
File::Which 1.23
requirements:
ExtUtils::MakeMaker 0
perl 5.006
File-pushd-1.016
pathname: D/DA/DAGOLDEN/File-pushd-1.016.tar.gz
provides:
File::pushd 1.016
requirements:
Carp 0
Cwd 0
Exporter 0
ExtUtils::MakeMaker 6.17
File::Path 0
File::Spec 0
File::Temp 0
overload 0
perl 5.006
strict 0
warnings 0
HTML-Parser-3.72
pathname: G/GA/GAAS/HTML-Parser-3.72.tar.gz
provides:
HTML::Entities 3.69
HTML::Filter 3.72
HTML::HeadParser 3.71
HTML::LinkExtor 3.69
HTML::Parser 3.72
HTML::PullParser 3.57
HTML::TokeParser 3.69
requirements:
ExtUtils::MakeMaker 0
HTML::Tagset 3
XSLoader 0
perl 5.008
HTML-Tagset-3.20
pathname: P/PE/PETDANCE/HTML-Tagset-3.20.tar.gz
provides:
HTML::Tagset 3.20
requirements:
ExtUtils::MakeMaker 0
HTTP-Cookies-6.07
pathname: O/OA/OALDERS/HTTP-Cookies-6.07.tar.gz
provides:
HTTP::Cookies 6.07
HTTP::Cookies::Microsoft 6.07
HTTP::Cookies::Netscape 6.07
requirements:
Carp 0
ExtUtils::MakeMaker 0
HTTP::Date 6
HTTP::Headers::Util 6
HTTP::Request 0
locale 0
perl 5.008001
strict 0
HTTP-Daemon-6.06
pathname: O/OA/OALDERS/HTTP-Daemon-6.06.tar.gz
provides:
HTTP::Daemon 6.06
requirements:
Carp 0
ExtUtils::MakeMaker 0
HTTP::Date 6
HTTP::Request 6
HTTP::Response 6
HTTP::Status 6
IO::Socket::IP 0
LWP::MediaTypes 6
Module::Build::Tiny 0.034
Socket 0
Sys::Hostname 0
perl 5.006
strict 0
warnings 0
HTTP-Date-6.05
pathname: O/OA/OALDERS/HTTP-Date-6.05.tar.gz
provides:
HTTP::Date 6.05
requirements:
Exporter 0
ExtUtils::MakeMaker 0
Time::Local 1.28
Time::Zone 0
perl 5.006002
strict 0
HTTP-Message-6.18
pathname: O/OA/OALDERS/HTTP-Message-6.18.tar.gz
provides:
HTTP::Config 6.18
HTTP::Headers 6.18
HTTP::Headers::Auth 6.18
HTTP::Headers::ETag 6.18
HTTP::Headers::Util 6.18
HTTP::Message 6.18
HTTP::Request 6.18
HTTP::Request::Common 6.18
HTTP::Response 6.18
HTTP::Status 6.18
requirements:
Carp 0
Compress::Raw::Zlib 0
Encode 2.21
Encode::Locale 1
Exporter 5.57
ExtUtils::MakeMaker 0
HTTP::Date 6
IO::Compress::Bzip2 2.021
IO::Compress::Deflate 0
IO::Compress::Gzip 0
IO::HTML 0
IO::Uncompress::Bunzip2 2.021
IO::Uncompress::Gunzip 0
IO::Uncompress::Inflate 0
IO::Uncompress::RawInflate 0
LWP::MediaTypes 6
MIME::Base64 2.1
MIME::QuotedPrint 0
Storable 0
URI 1.10
base 0
perl 5.008001
strict 0
warnings 0
HTTP-Negotiate-6.01
pathname: G/GA/GAAS/HTTP-Negotiate-6.01.tar.gz
provides:
HTTP::Negotiate 6.01
requirements:
ExtUtils::MakeMaker 0
HTTP::Headers 6
perl 5.008001
HTTP-Tinyish-0.15
pathname: M/MI/MIYAGAWA/HTTP-Tinyish-0.15.tar.gz
provides:
HTTP::Tinyish 0.15
HTTP::Tinyish::Base undef
HTTP::Tinyish::Curl undef
HTTP::Tinyish::HTTPTiny undef
HTTP::Tinyish::LWP undef
HTTP::Tinyish::Wget undef
requirements:
ExtUtils::MakeMaker 0
File::Which 0
HTTP::Tiny 0.055
IPC::Run3 0
parent 0
perl 5.008001
IO-HTML-1.001
pathname: C/CJ/CJM/IO-HTML-1.001.tar.gz
provides:
IO::HTML 1.001
requirements:
Carp 0
Encode 2.10
Exporter 5.57
ExtUtils::MakeMaker 6.30
IPC-Run3-0.048
pathname: R/RJ/RJBS/IPC-Run3-0.048.tar.gz
provides:
IPC::Run3 0.048
requirements:
ExtUtils::MakeMaker 0
Test::More 0.31
Time::HiRes 0
JSON-4.02
pathname: I/IS/ISHIGAKI/JSON-4.02.tar.gz
provides:
JSON 4.02
JSON::Backend::PP 4.02
requirements:
ExtUtils::MakeMaker 0
Test::More 0
LWP-MediaTypes-6.04
pathname: O/OA/OALDERS/LWP-MediaTypes-6.04.tar.gz
provides:
LWP::MediaTypes 6.04
requirements:
Carp 0
Exporter 0
ExtUtils::MakeMaker 0
File::Basename 0
Scalar::Util 0
perl 5.006002
strict 0
Menlo-1.9019
pathname: M/MI/MIYAGAWA/Menlo-1.9019.tar.gz
provides:
Menlo 1.9019
Menlo::Builder::Static undef
Menlo::Dependency undef
Menlo::Index::MetaCPAN undef
Menlo::Index::MetaDB 1.9019
Menlo::Index::Mirror undef
Menlo::Util undef
requirements:
CPAN::Common::Index 0.006
CPAN::DistnameInfo 0
CPAN::Meta 2.132830
CPAN::Meta::Check 0
CPAN::Meta::Requirements 0
CPAN::Meta::YAML 0
Capture::Tiny 0
Class::Tiny 1.001
Exporter 0
ExtUtils::Config 0.003
ExtUtils::Helpers 0.020
ExtUtils::InstallPaths 0.002
ExtUtils::MakeMaker 0
File::Temp 0
File::Which 0
File::pushd 0
Getopt::Long 2.36
HTTP::Tiny 0.054
HTTP::Tinyish 0.04
JSON::PP 2
Module::CPANfile 0
Module::CoreList 0
Module::Metadata 0
Parse::CPAN::Meta 0
Parse::PMFile 0.26
String::ShellQuote 0
URI 0
Win32::ShellQuote 0
local::lib 0
parent 0
perl 5.008001
version 0
Menlo-Legacy-1.9022
pathname: M/MI/MIYAGAWA/Menlo-Legacy-1.9022.tar.gz
provides:
Menlo::CLI::Compat 1.9022
Menlo::Legacy 1.9022
requirements:
ExtUtils::MakeMaker 0
Menlo 1.9018
perl 5.008001
version 0.9905
Module-Build-Tiny-0.039
pathname: L/LE/LEONT/Module-Build-Tiny-0.039.tar.gz
provides:
Module::Build::Tiny 0.039
requirements:
CPAN::Meta 0
DynaLoader 0
Exporter 5.57
ExtUtils::CBuilder 0
ExtUtils::Config 0.003
ExtUtils::Helpers 0.020
ExtUtils::Install 0
ExtUtils::InstallPaths 0.002
ExtUtils::ParseXS 0
File::Basename 0
File::Find 0
File::Path 0
File::Spec::Functions 0
Getopt::Long 2.36
JSON::PP 2
Pod::Man 0
TAP::Harness::Env 0
perl 5.006
strict 0
warnings 0
Module-CPANfile-1.1004
pathname: M/MI/MIYAGAWA/Module-CPANfile-1.1004.tar.gz
provides:
Module::CPANfile 1.1004
Module::CPANfile::Environment undef
Module::CPANfile::Prereq undef
Module::CPANfile::Prereqs undef
Module::CPANfile::Requirement undef
requirements:
CPAN::Meta 2.12091
CPAN::Meta::Prereqs 2.12091
ExtUtils::MakeMaker 0
parent 0
Net-HTTP-6.19
pathname: O/OA/OALDERS/Net-HTTP-6.19.tar.gz
provides:
Net::HTTP 6.19
Net::HTTP::Methods 6.19
Net::HTTP::NB 6.19
Net::HTTPS 6.19
requirements:
Carp 0
Compress::Raw::Zlib 0
ExtUtils::MakeMaker 0
IO::Socket::INET 0
IO::Uncompress::Gunzip 0
URI 0
base 0
perl 5.006002
strict 0
vars 0
warnings 0
Parse-PMFile-0.42
pathname: I/IS/ISHIGAKI/Parse-PMFile-0.42.tar.gz
provides:
Parse::PMFile 0.42
requirements:
Dumpvalue 0
ExtUtils::MakeMaker 0
ExtUtils::MakeMaker::CPANfile 0.09
File::Spec 0
JSON::PP 2.00
Safe 0
version 0.83
Path-Tiny-0.108
pathname: D/DA/DAGOLDEN/Path-Tiny-0.108.tar.gz
provides:
Path::Tiny 0.108
Path::Tiny::Error 0.108
requirements:
Carp 0
Cwd 0
Digest 1.03
Digest::SHA 5.45
Encode 0
Exporter 5.57
ExtUtils::MakeMaker 6.17
Fcntl 0
File::Copy 0
File::Glob 0
File::Path 2.07
File::Spec 0.86
File::Temp 0.19
File::stat 0
constant 0
overload 0
perl 5.008001
strict 0
warnings 0
warnings::register 0
String-ShellQuote-1.04
pathname: R/RO/ROSCH/String-ShellQuote-1.04.tar.gz
provides:
String::ShellQuote 1.04
requirements:
ExtUtils::MakeMaker 0
Switch-2.17
pathname: C/CH/CHORNY/Switch-2.17.tar.gz
provides:
Switch 2.17
requirements:
ExtUtils::MakeMaker 0
Filter::Util::Call 0
Text::Balanced 2
if 0
perl 5.005
Tie-Handle-Offset-0.004
pathname: D/DA/DAGOLDEN/Tie-Handle-Offset-0.004.tar.gz
provides:
Tie::Handle::Offset 0.004
Tie::Handle::SkipHeader 0.004
requirements:
ExtUtils::MakeMaker 6.17
Tie::Handle 0
perl 5.006
strict 0
TimeDate-2.30
pathname: G/GB/GBARR/TimeDate-2.30.tar.gz
provides:
Date::Format 2.24
Date::Format::Generic 2.24
Date::Language 1.10
Date::Language::Afar 0.99
Date::Language::Amharic 1.00
Date::Language::Austrian 1.01
Date::Language::Brazilian 1.01
Date::Language::Bulgarian 1.01
Date::Language::Chinese 1.00
Date::Language::Chinese_GB 1.01
Date::Language::Czech 1.01
Date::Language::Danish 1.01
Date::Language::Dutch 1.02
Date::Language::English 1.01
Date::Language::Finnish 1.01
Date::Language::French 1.04
Date::Language::Gedeo 0.99
Date::Language::German 1.02
Date::Language::Greek 1.00
Date::Language::Hungarian 1.01
Date::Language::Icelandic 1.01
Date::Language::Italian 1.01
Date::Language::Norwegian 1.01
Date::Language::Oromo 0.99
Date::Language::Romanian 1.01
Date::Language::Russian 1.01
Date::Language::Russian_cp1251 1.01
Date::Language::Russian_koi8r 1.01
Date::Language::Sidama 0.99
Date::Language::Somali 0.99
Date::Language::Spanish 1.00
Date::Language::Swedish 1.01
Date::Language::Tigrinya 1.00
Date::Language::TigrinyaEritrean 1.00
Date::Language::TigrinyaEthiopian 1.00
Date::Language::Turkish 1.0
Date::Parse 2.30
Time::Zone 2.24
requirements:
ExtUtils::MakeMaker 0
Try-Tiny-0.30
pathname: E/ET/ETHER/Try-Tiny-0.30.tar.gz
provides:
Try::Tiny 0.30
requirements:
Carp 0
Exporter 5.57
ExtUtils::MakeMaker 0
constant 0
perl 5.006
strict 0
warnings 0
URI-1.76
pathname: O/OA/OALDERS/URI-1.76.tar.gz
provides:
URI 1.76
URI::Escape 3.31
URI::Heuristic 4.20
URI::IRI 1.76
URI::QueryParam 1.76
URI::Split 1.76
URI::URL 5.04
URI::WithBase 2.20
URI::data 1.76
URI::file 4.21
URI::file::Base 1.76
URI::file::FAT 1.76
URI::file::Mac 1.76
URI::file::OS2 1.76
URI::file::QNX 1.76
URI::file::Unix 1.76
URI::file::Win32 1.76
URI::ftp 1.76
URI::gopher 1.76
URI::http 1.76
URI::https 1.76
URI::ldap 1.76
URI::ldapi 1.76
URI::ldaps 1.76
URI::mailto 1.76
URI::mms 1.76
URI::news 1.76
URI::nntp 1.76
URI::pop 1.76
URI::rlogin 1.76
URI::rsync 1.76
URI::rtsp 1.76
URI::rtspu 1.76
URI::sftp 1.76
URI::sip 1.76
URI::sips 1.76
URI::snews 1.76
URI::ssh 1.76
URI::telnet 1.76
URI::tn3270 1.76
URI::urn 1.76
URI::urn::isbn 1.76
URI::urn::oid 1.76
requirements:
Carp 0
Cwd 0
Data::Dumper 0
Encode 0
Exporter 5.57
ExtUtils::MakeMaker 0
MIME::Base64 2
Net::Domain 0
Scalar::Util 0
constant 0
integer 0
overload 0
parent 0
perl 5.008001
strict 0
utf8 0
warnings 0
WWW-RobotRules-6.02
pathname: G/GA/GAAS/WWW-RobotRules-6.02.tar.gz
provides:
WWW::RobotRules 6.02
WWW::RobotRules::AnyDBM_File 6.00
WWW::RobotRules::InCore 6.02
requirements:
AnyDBM_File 0
ExtUtils::MakeMaker 0
Fcntl 0
URI 1.10
perl 5.008001
Win32-ShellQuote-0.003001
pathname: H/HA/HAARG/Win32-ShellQuote-0.003001.tar.gz
provides:
Win32::ShellQuote 0.003001
requirements:
perl 5.006
libwww-perl-6.43
pathname: O/OA/OALDERS/libwww-perl-6.43.tar.gz
provides:
LWP 6.43
LWP::Authen::Basic 6.43
LWP::Authen::Digest 6.43
LWP::Authen::Ntlm 6.43
LWP::ConnCache 6.43
LWP::Debug 6.43
LWP::Debug::TraceHTTP 6.43
LWP::DebugFile 6.43
LWP::MemberMixin 6.43
LWP::Protocol 6.43
LWP::Protocol::cpan 6.43
LWP::Protocol::data 6.43
LWP::Protocol::file 6.43
LWP::Protocol::ftp 6.43
LWP::Protocol::gopher 6.43
LWP::Protocol::http 6.43
LWP::Protocol::loopback 6.43
LWP::Protocol::mailto 6.43
LWP::Protocol::nntp 6.43
LWP::Protocol::nogo 6.43
LWP::RobotUA 6.43
LWP::Simple 6.43
LWP::UserAgent 6.43
libwww::perl undef
requirements:
CPAN::Meta::Requirements 2.120620
Digest::MD5 0
Encode 2.12
Encode::Locale 0
ExtUtils::MakeMaker 0
File::Copy 0
File::Listing 6
Getopt::Long 0
HTML::Entities 0
HTML::HeadParser 0
HTTP::Cookies 6
HTTP::Daemon 6
HTTP::Date 6
HTTP::Negotiate 6
HTTP::Request 6
HTTP::Request::Common 6
HTTP::Response 6
HTTP::Status 6.18
IO::Select 0
IO::Socket 0
LWP::MediaTypes 6
MIME::Base64 2.1
Module::Metadata 0
Net::FTP 2.58
Net::HTTP 6.18
Scalar::Util 0
Try::Tiny 0
URI 1.10
URI::Escape 0
WWW::RobotRules 6
base 0
perl 5.008001
strict 0
warnings 0
local-lib-2.000024
pathname: H/HA/HAARG/local-lib-2.000024.tar.gz
provides:
lib::core::only undef
local::lib 2.000024
requirements:
perl 5.006

View File

@ -10,7 +10,7 @@ sub new {
my $userAgent = LWP::UserAgent -> new();
my $request = $userAgent -> get($apiCheck);
my $httpCode = $request -> code();
if ($httpCode == 200) {
my $data = decode_json ($request -> content);

View File

@ -10,21 +10,17 @@ my $id_distro = $config -> param('ID');
sub getUsername {
my $username;
if (($id_like =~ /[U,u]buntu/) || ($id_like =~ /[D,d]ebian/) || ($id_distro =~ /[U,u]buntu/) || ($id_distro =~ /[D,d]ebian/)) {
$username = "debian-tor";
}
elsif (($id_like =~ /[F,f]edora/) || ($id_distro =~ /[F,f]edora/)) {
if (($id_like =~ /[F,f]edora/) || ($id_distro =~ /[F,f]edora/)) {
$username = "toranon";
}
elsif (($id_like =~ /[A,a]rch/) || ($id_like =~ /[C,c]entos/) || ($id_distro =~ /[A,a]rch/) || ($id_distro =~ /[C,c]entos/)) {
$username = "tor";
}
else {
$username = "tor";
$username = "debian-tor";
}
return $username;
@ -33,11 +29,7 @@ sub getUsername {
sub getSystem {
my $distribution;
if (($id_like =~ /[U,u]buntu/) || ($id_like =~ /[D,d]ebian/) || ($id_distro =~ /[U,u]buntu/) || ($id_distro =~ /[D,d]ebian/)) {
$distribution = "debian";
}
elsif (($id_like =~ /[F,f]edora/) || ($id_distro =~ /[F,f]edora/)) {
if (($id_like =~ /[F,f]edora/) || ($id_distro =~ /[F,f]edora/)) {
$distribution = "fedora";
}

View File

@ -30,12 +30,7 @@ sub install {
system ("sudo apt-get install tor iptables");
system ("sudo cp .configs/debian-torrc /etc/tor/torrc");
}
elsif ($operationalSystem eq "arch") {
system ("sudo pacman -S tor iptables");
system ("sudo cp .configs/arch-torrc /etc/tor/torrc");
}
elsif ($operationalSystem eq "fedora") {
system ("sudo dnf install tor iptables");
system ("sudo cp .configs/fedora-torrc /etc/tor/torrc");