[ipfire-2.x.git] / src / pakfire / pakfire

#!/usr/bin/perl
###############################################################################
#                                                                             #
# IPFire.org - A linux based firewall                                         #
# Copyright (C) 2007-2015   IPFire Team   <info@ipfire.org>                   #
#                                                                             #
# This program is free software: you can redistribute it and/or modify        #
# it under the terms of the GNU General Public License as published by        #
# the Free Software Foundation, either version 3 of the License, or           #
# (at your option) any later version.                                         #
#                                                                             #
# This program is distributed in the hope that it will be useful,             #
# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
# GNU General Public License for more details.                                #
#                                                                             #
# You should have received a copy of the GNU General Public License           #
# along with this program.  If not, see <http://www.gnu.org/licenses/>.       #
#                                                                             #
###############################################################################

	### Clean up our environment
	#
	delete @ENV{qw(IFS CDPATH ENV BASH_ENV PATH)};
	$< = $>;

	# Store keys here
	$ENV{"GNUPGHOME"} = "/opt/pakfire/etc/.gnupg";

	require "/opt/pakfire/lib/functions.pl";
	
	my $interactive = 1;
	my $force = "noforce";
	
	&Pakfire::logger("PAKFIRE INFO: IPFire Pakfire $Conf::version started!");

	### Check if we are running as root
	#
	my $user = qx(whoami);
	chomp($user);
	unless ( "$user" eq "root" ) {
	  &Pakfire::message("PAKFIRE ERROR: You must run pakfire as user root!");
	  exit 1;
	}
	
	unless ( -e "/var/ipfire/red/active" ) {
		&Pakfire::message("PAKFIRE ERROR: You need to be online to run pakfire!");
		exit 2;
	}
	
	### Check if we are started by another name
	#
	if ( $0 =~ /pakfire-update$/ ) {
		&Pakfire::message("CRON INFO: Running an update");
		my $random = int(rand(60));
		&Pakfire::logger("CRON INFO: Waiting for $random seconds.");
		sleep($random);
		$ARGV[0] = "update";
		$interactive = 0;
	} elsif ( $0 =~ /pakfire-upgrade$/ ) {
		&Pakfire::message("CRON INFO: Running an upgrade");
		my $random = int(rand(3600));
		&Pakfire::logger("CRON INFO: Waiting for $random seconds.");
		sleep($random);
		$ARGV[0] = "upgrade";
		$interactive = 0;
	}
	
	unless (@ARGV) {
		&Pakfire::usage;
	}
	
	foreach (@ARGV) {
		if ("$_" =~ "^-") {
			# Turn off interactive mode
			$interactive = 0 if ("$_" eq "--non-interactive");
			$interactive = 0 if ("$_" eq "-y");
			
			# Turn off shell colors - Bad for displaying in webinterface
			$Pakfire::enable_colors = 0 if ("$_" eq "--no-colors");
			
			# Turn on force mode
			$force = "force" if ("$_" eq "-f" );
			$force = "force" if ("$_" eq "--force" );
		}
	}

	if ("$ARGV[0]" eq "install") {
		shift;
		
		### Make sure that the list is not outdated. 
		&Pakfire::dbgetlist("noforce");

		open(FILE, "<$Conf::dbdir/lists/packages_list.db");
		my @db = <FILE>;
		close(FILE);
		
		my $dep;
		my @deps;
		my $pak;
		my @paks;
		my @temp;
		my @templine;
		my $found = 0;
		my $return;
		my @all;
		foreach $pak (@ARGV) {
			unless ("$pak" =~ "^-") {
				$return = &Pakfire::isinstalled($pak);
				if ($return eq 0) {
					&Pakfire::message("PAKFIRE INFO: $pak is already installed");
					next; 
				}
				$found = 0;
				foreach (@db) {
					@templine = split(/;/,$_);
					if ("$templine[0]" eq "$pak" ) {
						push(@paks,$pak);
						push(@all,$pak);
						@temp = &Pakfire::resolvedeps("$pak");
						foreach $dep (@temp) {
							push(@deps,$dep) if $dep;
							push(@all,$dep) if $dep;
						}
						$found = 1;
						break;
					}
				}
				if ($found == 0) {
					&Pakfire::message("");
					&Pakfire::message("PAKFIRE WARN: The pak \"$pak\" is not known. Please try running \"pakfire update\".");
				}
			}
		}
		
		unless (@paks) {
			&Pakfire::message("PAKFIRE ERROR: No packages to install. Exiting...");
			exit 1;
		}

		if (@deps) {
			my %sort = map{ $_, 1 } @deps;
			@deps = keys %sort;
			&Pakfire::message("");
			&Pakfire::message("PAKFIRE INFO: Packages to install for dependencies:");
		}
		foreach $dep (@deps) {
		  my $size = &Pakfire::getsize("$dep");
			$size = &Pakfire::beautifysize($size);
		  &Pakfire::message("PAKFIRE INFO: $dep \t - $size");
		}

		&Pakfire::message("");
		&Pakfire::message("");
		&Pakfire::message("PAKFIRE INFO: Packages to install:");
		foreach $pak (@paks) {
		  my $size = &Pakfire::getsize("$pak");
			$size = &Pakfire::beautifysize($size);
		  &Pakfire::message("PAKFIRE INFO: $pak \t - $size");
		}
		
		my $totalsize;
		foreach $pak (@all) {
			$totalsize = ($totalsize + &Pakfire::getsize("$pak"));
		}
		$totalsize = &Pakfire::beautifysize($totalsize);
		&Pakfire::message("");
		&Pakfire::message("PAKFIRE INFO: Total size: \t ~ $totalsize");
		&Pakfire::message("");
		
		if ($interactive) {
		  &Pakfire::message("PAKFIRE INFO: Is this okay? [y/N]");
			my $ret = <STDIN>;
			chomp($ret);
			&Pakfire::logger("PAKFIRE INFO: Answer: $ret");
			if ( $ret ne "y" ) {
			  &Pakfire::message("PAKFIRE ERROR: Installation aborted.");
			  exit 1;
			}
		} else {
			&Pakfire::logger("PAKFIRE INFO: Interaction skipped.");
		}
		
#		my %sort = map{ $_, 1 } @all;
#		@all = sort keys %sort;

		### Download first
		foreach $pak (@all) {
			&Pakfire::getpak("$pak", "");
		}

		&Pakfire::message("");

		foreach $pak (@deps) {
			&Pakfire::setuppak("$pak") if ($pak ne "");
		}
		

		foreach $pak (@paks) {
			&Pakfire::setuppak("$pak") if ($pak ne "");
		}
		

	} elsif ("$ARGV[0]" eq "remove") {
		shift;
		
		my @paks;
		my $pak;
		foreach $pak (@ARGV) {
			unless ("$pak" =~ "^-") {
				$return = &Pakfire::isinstalled($pak);
				if ($return ne 0) {
					&Pakfire::message("PAKFIRE WARN: $pak is not installed");
					next;
				}
				push(@paks, $pak);
			}
		}
		
		unless (@paks) {
			&Pakfire::message("PAKFIRE ERROR: No packages to remove. Exiting...");
			exit 1;
		}
		
		&Pakfire::message("");
		&Pakfire::message("");
		&Pakfire::message("PAKFIRE INFO: Packages to remove:");
		foreach $pak (sort @paks) {
		  my $size = &Pakfire::getsize("$pak");
			$size = &Pakfire::beautifysize($size);
		  &Pakfire::message("PAKFIRE INFO: $pak \t - $size");
		}
		
		if ($interactive) {
		  &Pakfire::message("PAKFIRE INFO: Is this okay? [y/N]");
			my $ret = <STDIN>;
			chomp($ret);
			&Pakfire::logger("PAKFIRE INFO: Answer: $ret");
			if ( $ret ne "y" ) {
			  &Pakfire::message("PAKFIRE ERROR: Installation aborted.");
			  exit 1;
			}
		}
		
		foreach $pak (@paks) {
			&Pakfire::removepak("$pak");
		}
	
	
	} elsif ("$ARGV[0]" eq "update") {
		&Pakfire::makeuuid();
		&Pakfire::getmirrors("$force");
		&Pakfire::dbgetlist("$force");
		&Pakfire::getcoredb("$force");

	} elsif ("$ARGV[0]" eq "upgrade") {
		&Pakfire::upgradecore();
		my @upgradepaks = &Pakfire::dblist("upgrade", "noweb");
		my @deps = ();

		if (@upgradepaks) {
			# Resolve the dependencies of the to be upgraded packages
			@deps = &Pakfire::resolvedeps_recursive(@upgradepaks);

			&Pakfire::message("");
			&Pakfire::message("PAKFIRE UPGR: We are going to install all packages listed above.");
			if ($interactive) {
			  &Pakfire::message("PAKFIRE INFO: Is this okay? [y/N]");
				my $ret = <STDIN>;
				chomp($ret);
				&Pakfire::logger("PAKFIRE INFO: Answer: $ret");
				if ( $ret ne "y" ) {
				  &Pakfire::message("PAKFIRE ERROR: Installation aborted.");
				  exit 1;
				}
			}
		}
		
		# Download packages
		foreach $pak (@upgradepaks) {
			&Pakfire::getpak("$pak", "");
		}

		# Download dependencies
		foreach $pak (@deps) {
			&Pakfire::getpak("$pak", "");
		}

		# Install dependencies first
		foreach $pak (@deps) {
			&Pakfire::setuppak("$pak");
		}

		# Install all upgrades
		foreach $pak (@upgradepaks) {
			&Pakfire::upgradepak("$pak");
		}
		
	} elsif ("$ARGV[0]" eq "list") {
		if ("$ARGV[1]" =~ /installed|notinstalled/) {
			&Pakfire::dblist("$ARGV[1]", "noweb");
		} else {
			&Pakfire::message("PAKFIRE WARN: Not a known option $ARGV[1]") if ($ARGV[1]); 
			&Pakfire::dblist("all", "noweb");
		}
		
	} elsif ("$ARGV[0]" eq "resolvedeps") {
		foreach (@ARGV) {
			next if ("$_" eq "resolvedeps");
			next if ("$_" =~ "^-");
			&Pakfire::resolvedeps("$_");
		}
	} elsif ("$ARGV[0]" eq "enable") {
		if ("$ARGV[1]" eq "updates") {
			system("ln -s ../../opt/pakfire/pakfire /etc/fcron.daily/pakfire-update");
		} elsif ("$ARGV[1]" eq "upgrades") {
			system("ln -s ../../opt/pakfire/pakfire /etc/fcron.daily/pakfire-upgrade");
		}
	} elsif ("$ARGV[0]" eq "disable") {
		if ("$ARGV[1]" eq "updates") {
			system("rm -f /etc/fcron.daily/pakfire-update");
		} elsif ("$ARGV[1]" eq "upgrades") {
			system("rm -f /etc/fcron.daily/pakfire-upgrade");
		}
	} else {
		&Pakfire::usage;
	}

	&Pakfire::logger("PAKFIRE INFO: Pakfire has finished. Closing.");

	exit 0;
Commit	Line	Data
c3df33af	1	#!/usr/bin/perl
70df8302 MT	2	###############################################################################
	3	# #
	4	# IPFire.org - A linux based firewall #
9f1f68f1	5	# Copyright (C) 2007-2015 IPFire Team <info@ipfire.org> #
70df8302 MT	6	# #
	7	# This program is free software: you can redistribute it and/or modify #
	8	# it under the terms of the GNU General Public License as published by #
	9	# the Free Software Foundation, either version 3 of the License, or #
	10	# (at your option) any later version. #
	11	# #
	12	# This program is distributed in the hope that it will be useful, #
	13	# but WITHOUT ANY WARRANTY; without even the implied warranty of #
	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
	15	# GNU General Public License for more details. #
	16	# #
	17	# You should have received a copy of the GNU General Public License #
	18	# along with this program. If not, see <http://www.gnu.org/licenses/>. #
	19	# #
	20	###############################################################################
c1ae1ad6	21
accc9c30 MT	22	### Clean up our environment
	23	#
	24	delete @ENV{qw(IFS CDPATH ENV BASH_ENV PATH)};
	25	$< = $>;
	26
9a507db2 MT	27	# Store keys here
	28	$ENV{"GNUPGHOME"} = "/opt/pakfire/etc/.gnupg";
	29
1bd42c89 MT	30	require "/opt/pakfire/lib/functions.pl";
	31
	32	my $interactive = 1;
377560fb	33	my $force = "noforce";
1bd42c89	34
a6d327a7	35	&Pakfire::logger("PAKFIRE INFO: IPFire Pakfire $Conf::version started!");
c1ae1ad6	36
1bd42c89 MT	37	### Check if we are running as root
	38	#
	39	my $user = qx(whoami);
	40	chomp($user);
	41	unless ( "$user" eq "root" ) {
a6d327a7	42	&Pakfire::message("PAKFIRE ERROR: You must run pakfire as user root!");
1bd42c89 MT	43	exit 1;
	44	}
	45
7bc1b6ac MT	46	unless ( -e "/var/ipfire/red/active" ) {
	47	&Pakfire::message("PAKFIRE ERROR: You need to be online to run pakfire!");
	48	exit 2;
	49	}
	50
06209efc MT	51	### Check if we are started by another name
	52	#
	53	if ( $0 =~ /pakfire-update$/ ) {
a6d327a7	54	&Pakfire::message("CRON INFO: Running an update");
fc4ac7ac	55	my $random = int(rand(60));
5d22ef4e MT	56	&Pakfire::logger("CRON INFO: Waiting for $random seconds.");
5d22ef4e MT	57	sleep($random);
06209efc MT	58	$ARGV[0] = "update";
	59	$interactive = 0;
	60	} elsif ( $0 =~ /pakfire-upgrade$/ ) {
a6d327a7	61	&Pakfire::message("CRON INFO: Running an upgrade");
5d22ef4e MT	62	my $random = int(rand(3600));
	63	&Pakfire::logger("CRON INFO: Waiting for $random seconds.");
	64	sleep($random);
06209efc MT	65	$ARGV[0] = "upgrade";
	66	$interactive = 0;
	67	}
	68
1bd42c89	69	unless (@ARGV) {
5b2a12ff	70	&Pakfire::usage;
1bd42c89	71	}
4b122800 MT	72
	73	foreach (@ARGV) {
	74	if ("$_" =~ "^-") {
750c1528	75	# Turn off interactive mode
4b122800 MT	76	$interactive = 0 if ("$_" eq "--non-interactive");
4b122800 MT	77	$interactive = 0 if ("$_" eq "-y");
750c1528 MT	78
	79	# Turn off shell colors - Bad for displaying in webinterface
	80	$Pakfire::enable_colors = 0 if ("$_" eq "--no-colors");
377560fb MT	81
	82	# Turn on force mode
	83	$force = "force" if ("$_" eq "-f" );
	84	$force = "force" if ("$_" eq "--force" );
4b122800 MT	85	}
4b122800 MT	86	}
c1ae1ad6	87
1bd42c89 MT	88	if ("$ARGV[0]" eq "install") {
1bd42c89 MT	89	shift;
99e6df8e MT	90
	91	### Make sure that the list is not outdated.
	92	&Pakfire::dbgetlist("noforce");
	93
	94	open(FILE, "<$Conf::dbdir/lists/packages_list.db");
	95	my @db = <FILE>;
	96	close(FILE);
	97
	98	my $dep;
a08c3a2e	99	my @deps;
99e6df8e	100	my $pak;
a08c3a2e MT	101	my @paks;
a08c3a2e MT	102	my @temp;
99e6df8e MT	103	my @templine;
99e6df8e MT	104	my $found = 0;
186e3d2c	105	my $return;
4b122800	106	my @all;
99e6df8e MT	107	foreach $pak (@ARGV) {
99e6df8e MT	108	unless ("$pak" =~ "^-") {
186e3d2c MT	109	$return = &Pakfire::isinstalled($pak);
186e3d2c MT	110	if ($return eq 0) {
a6d327a7	111	&Pakfire::message("PAKFIRE INFO: $pak is already installed");
186e3d2c MT	112	next;
186e3d2c MT	113	}
99e6df8e MT	114	$found = 0;
	115	foreach (@db) {
	116	@templine = split(/;/,$_);
	117	if ("$templine[0]" eq "$pak" ) {
	118	push(@paks,$pak);
	119	push(@all,$pak);
	120	@temp = &Pakfire::resolvedeps("$pak");
	121	foreach $dep (@temp) {
	122	push(@deps,$dep) if $dep;
	123	push(@all,$dep) if $dep;
	124	}
	125	$found = 1;
	126	break;
	127	}
	128	}
a6d327a7 MT	129	if ($found == 0) {
	130	&Pakfire::message("");
	131	&Pakfire::message("PAKFIRE WARN: The pak \"$pak\" is not known. Please try running \"pakfire update\".");
	132	}
5b2a12ff	133	}
a08c3a2e	134	}
186e3d2c MT	135
186e3d2c MT	136	unless (@paks) {
a6d327a7	137	&Pakfire::message("PAKFIRE ERROR: No packages to install. Exiting...");
186e3d2c MT	138	exit 1;
186e3d2c MT	139	}
97520ed5	140
186e3d2c	141	if (@deps) {
519f8431	142	my %sort = map{ $_, 1 } @deps;
3a3c02ee	143	@deps = keys %sort;
186e3d2c	144	&Pakfire::message("");
a6d327a7	145	&Pakfire::message("PAKFIRE INFO: Packages to install for dependencies:");
186e3d2c	146	}
373e13c2	147	foreach $dep (@deps) {
186e3d2c	148	my $size = &Pakfire::getsize("$dep");
1bd42c89	149	$size = &Pakfire::beautifysize($size);
35f38a8b	150	&Pakfire::message("PAKFIRE INFO: $dep \t - $size");
1bd42c89	151	}
373e13c2 CS	152
	153	&Pakfire::message("");
	154	&Pakfire::message("");
	155	&Pakfire::message("PAKFIRE INFO: Packages to install:");
	156	foreach $pak (@paks) {
	157	my $size = &Pakfire::getsize("$pak");
	158	$size = &Pakfire::beautifysize($size);
	159	&Pakfire::message("PAKFIRE INFO: $pak \t - $size");
	160	}
4b122800 MT	161
4b122800 MT	162	my $totalsize;
186e3d2c MT	163	foreach $pak (@all) {
186e3d2c MT	164	$totalsize = ($totalsize + &Pakfire::getsize("$pak"));
4b122800	165	}
1bd42c89	166	$totalsize = &Pakfire::beautifysize($totalsize);
186e3d2c	167	&Pakfire::message("");
a6d327a7	168	&Pakfire::message("PAKFIRE INFO: Total size: \t ~ $totalsize");
186e3d2c	169	&Pakfire::message("");
1bd42c89 MT	170
1bd42c89 MT	171	if ($interactive) {
a6d327a7	172	&Pakfire::message("PAKFIRE INFO: Is this okay? [y/N]");
1bd42c89 MT	173	my $ret = <STDIN>;
1bd42c89 MT	174	chomp($ret);
a6d327a7	175	&Pakfire::logger("PAKFIRE INFO: Answer: $ret");
1bd42c89	176	if ( $ret ne "y" ) {
a6d327a7	177	&Pakfire::message("PAKFIRE ERROR: Installation aborted.");
1bd42c89 MT	178	exit 1;
1bd42c89 MT	179	}
a6d327a7 MT	180	} else {
a6d327a7 MT	181	&Pakfire::logger("PAKFIRE INFO: Interaction skipped.");
1bd42c89	182	}
186e3d2c	183
373e13c2 CS	184	# my %sort = map{ $_, 1 } @all;
373e13c2 CS	185	# @all = sort keys %sort;
a08c3a2e MT	186
a08c3a2e MT	187	### Download first
373e13c2	188	foreach $pak (@all) {
186e3d2c	189	&Pakfire::getpak("$pak", "");
a08c3a2e	190	}
c1ae1ad6	191
35f38a8b MT	192	&Pakfire::message("");
35f38a8b MT	193
373e13c2	194	foreach $pak (@deps) {
186e3d2c	195	&Pakfire::setuppak("$pak") if ($pak ne "");
1bd42c89	196	}
1bd42c89	197
373e13c2 CS	198
	199	foreach $pak (@paks) {
	200	&Pakfire::setuppak("$pak") if ($pak ne "");
	201	}
	202
	203
1bd42c89	204	} elsif ("$ARGV[0]" eq "remove") {
e44b26cf MT	205	shift;
	206
	207	my @paks;
	208	my $pak;
e44b26cf MT	209	foreach $pak (@ARGV) {
	210	unless ("$pak" =~ "^-") {
	211	$return = &Pakfire::isinstalled($pak);
	212	if ($return ne 0) {
a6d327a7	213	&Pakfire::message("PAKFIRE WARN: $pak is not installed");
e44b26cf MT	214	next;
e44b26cf MT	215	}
e44b26cf	216	push(@paks, $pak);
e44b26cf MT	217	}
	218	}
	219
	220	unless (@paks) {
a6d327a7	221	&Pakfire::message("PAKFIRE ERROR: No packages to remove. Exiting...");
e44b26cf MT	222	exit 1;
	223	}
	224
	225	&Pakfire::message("");
	226	&Pakfire::message("");
35f38a8b	227	&Pakfire::message("PAKFIRE INFO: Packages to remove:");
e44b26cf MT	228	foreach $pak (sort @paks) {
	229	my $size = &Pakfire::getsize("$pak");
	230	$size = &Pakfire::beautifysize($size);
35f38a8b	231	&Pakfire::message("PAKFIRE INFO: $pak \t - $size");
e44b26cf MT	232	}
	233
	234	if ($interactive) {
35f38a8b	235	&Pakfire::message("PAKFIRE INFO: Is this okay? [y/N]");
e44b26cf MT	236	my $ret = <STDIN>;
e44b26cf MT	237	chomp($ret);
35f38a8b	238	&Pakfire::logger("PAKFIRE INFO: Answer: $ret");
e44b26cf	239	if ( $ret ne "y" ) {
35f38a8b	240	&Pakfire::message("PAKFIRE ERROR: Installation aborted.");
e44b26cf MT	241	exit 1;
	242	}
	243	}
	244
	245	foreach $pak (@paks) {
	246	&Pakfire::removepak("$pak");
	247	}
1bd42c89 MT	248
	249
	250	} elsif ("$ARGV[0]" eq "update") {
8e58bd37	251	&Pakfire::makeuuid();
377560fb MT	252	&Pakfire::getmirrors("$force");
	253	&Pakfire::dbgetlist("$force");
	254	&Pakfire::getcoredb("$force");
e3670217	255
4b122800	256	} elsif ("$ARGV[0]" eq "upgrade") {
2aa6d448	257	&Pakfire::upgradecore();
99e6df8e	258	my @upgradepaks = &Pakfire::dblist("upgrade", "noweb");
5555c4b8	259	my @deps = ();
9f1f68f1	260
99e6df8e	261	if (@upgradepaks) {
9f1f68f1	262	# Resolve the dependencies of the to be upgraded packages
5555c4b8	263	@deps = &Pakfire::resolvedeps_recursive(@upgradepaks);
9f1f68f1	264
99e6df8e	265	&Pakfire::message("");
35f38a8b	266	&Pakfire::message("PAKFIRE UPGR: We are going to install all packages listed above.");
99e6df8e	267	if ($interactive) {
35f38a8b	268	&Pakfire::message("PAKFIRE INFO: Is this okay? [y/N]");
99e6df8e MT	269	my $ret = <STDIN>;
99e6df8e MT	270	chomp($ret);
35f38a8b	271	&Pakfire::logger("PAKFIRE INFO: Answer: $ret");
99e6df8e	272	if ( $ret ne "y" ) {
35f38a8b	273	&Pakfire::message("PAKFIRE ERROR: Installation aborted.");
99e6df8e MT	274	exit 1;
	275	}
	276	}
	277	}
	278
9f1f68f1	279	# Download packages
373e13c2	280	foreach $pak (@upgradepaks) {
4e4b54c5	281	&Pakfire::getpak("$pak", "");
99e6df8e	282	}
9f1f68f1 MT	283
	284	# Download dependencies
	285	foreach $pak (@deps) {
	286	&Pakfire::getpak("$pak", "");
	287	}
	288
	289	# Install dependencies first
	290	foreach $pak (@deps) {
	291	&Pakfire::setuppak("$pak");
	292	}
	293
	294	# Install all upgrades
373e13c2	295	foreach $pak (@upgradepaks) {
9f1f68f1	296	&Pakfire::upgradepak("$pak");
99e6df8e	297	}
4b122800	298
afabe9f7	299	} elsif ("$ARGV[0]" eq "list") {
e3670217 MT	300	if ("$ARGV[1]" =~ /installed\|notinstalled/) {
	301	&Pakfire::dblist("$ARGV[1]", "noweb");
	302	} else {
	303	&Pakfire::message("PAKFIRE WARN: Not a known option $ARGV[1]") if ($ARGV[1]);
	304	&Pakfire::dblist("all", "noweb");
	305	}
5b2a12ff MT	306
	307	} elsif ("$ARGV[0]" eq "resolvedeps") {
	308	foreach (@ARGV) {
	309	next if ("$_" eq "resolvedeps");
750c1528	310	next if ("$_" =~ "^-");
5b2a12ff MT	311	&Pakfire::resolvedeps("$_");
5b2a12ff MT	312	}
377560fb MT	313	} elsif ("$ARGV[0]" eq "enable") {
	314	if ("$ARGV[1]" eq "updates") {
	315	system("ln -s ../../opt/pakfire/pakfire /etc/fcron.daily/pakfire-update");
37610d7b	316	} elsif ("$ARGV[1]" eq "upgrades") {
377560fb MT	317	system("ln -s ../../opt/pakfire/pakfire /etc/fcron.daily/pakfire-upgrade");
	318	}
	319	} elsif ("$ARGV[0]" eq "disable") {
	320	if ("$ARGV[1]" eq "updates") {
	321	system("rm -f /etc/fcron.daily/pakfire-update");
37610d7b	322	} elsif ("$ARGV[1]" eq "upgrades") {
377560fb MT	323	system("rm -f /etc/fcron.daily/pakfire-upgrade");
377560fb MT	324	}
5b2a12ff MT	325	} else {
5b2a12ff MT	326	&Pakfire::usage;
1bd42c89	327	}
a6d327a7	328
70df8302	329	&Pakfire::logger("PAKFIRE INFO: Pakfire has finished. Closing.");
35f38a8b	330
70df8302	331	exit 0;