pkg_cleanup finds packages that are not requested by any other installed

package and lets you decide for each one if you want to keep it or delete it.
It also allows viewing the pacakge comment and description.

This program is essentially a clone of pkg_rmleaves except that it shows
the comment and description of packages and does not support GUI dialog(1)
implementations.

PR:		ports/117782
Submitted by:	Stephen Hurd <shurd@sasktel.net>

6 files changed, 389 insertions, 0 deletions

diff --git a/ports-mgmt/Makefile b/ports-mgmt/Makefile
index 40915da6f900..cec6f7914839 100644
--- a/ports-mgmt/Makefile
+++ b/ports-mgmt/Makefile
@@ -16,6 +16,7 @@
    SUBDIR += p5-FreeBSD-Ports
    SUBDIR += pib
    SUBDIR += pkg-orphan
+   SUBDIR += pkg_cleanup
    SUBDIR += pkg_cutleaves
    SUBDIR += pkg_install
    SUBDIR += pkg_install-devel
diff --git a/ports-mgmt/pkg_cleanup/Makefile b/ports-mgmt/pkg_cleanup/Makefile
new file mode 100644
index 000000000000..25d22ec83b03
--- /dev/null
+++ b/ports-mgmt/pkg_cleanup/Makefile
@@ -0,0 +1,33 @@
+# New ports collection makefile for:	pkg_cleanup
+# Date created:				02 November 2007
+# Whom:					Stephen Hurd <shurd@sasktel.net>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	pkg_cleanup
+PORTVERSION=	1.0
+CATEGORIES=	ports-mgmt
+DISTFILES=
+
+MAINTAINER=	shurd@sasktel.net
+COMMENT=	Interactive program for deinstalling 'leaf' packages
+
+MAN1=		pkg_cleanup.1
+
+WRKSRC=		${WRKDIR}/${PORTNAME}
+
+PLIST_FILES=	sbin/pkg_cleanup
+
+do-extract:
+	${MKDIR} ${WRKSRC}
+	${CP} -R ${FILESDIR}/* ${WRKSRC}
+
+do-build:
+	make -C ${WRKSRC}
+
+do-install:
+	${INSTALL_PROGRAM} ${WRKSRC}/pkg_cleanup ${PREFIX}/sbin/pkg_cleanup
+	${INSTALL_MAN} ${WRKSRC}/pkg_cleanup.1 ${MAN1PREFIX}/man/man1
+
+.include <bsd.port.mk>
diff --git a/ports-mgmt/pkg_cleanup/files/Makefile b/ports-mgmt/pkg_cleanup/files/Makefile
new file mode 100644
index 000000000000..e5271323fc1d
--- /dev/null
+++ b/ports-mgmt/pkg_cleanup/files/Makefile
@@ -0,0 +1,5 @@
+# $FreeBSD$
+
+LDLIBS += -ldialog
+pkg_cleanup: pkg_cleanup.c
+
diff --git a/ports-mgmt/pkg_cleanup/files/pkg_cleanup.1 b/ports-mgmt/pkg_cleanup/files/pkg_cleanup.1
new file mode 100644
index 000000000000..56f55a8b2f7a
--- /dev/null
+++ b/ports-mgmt/pkg_cleanup/files/pkg_cleanup.1
@@ -0,0 +1,26 @@
+.TH PKG_CLEANUP 1 "October 2007" FreeBSD
+.SH NAME
+pkg_cleanup \- deinstall 'leaf' packages
+.SH SYNOPSIS
+.B pkg_cleanup
+.SH DESCRIPTION
+.B pkg_rmleaves
+Finds packages that are not required by any other installed
+package and lets you decide (in a dialog interface) for each one
+if you want to delete it. The package comment is shown at the top
+of the screen and F1 will display the full package description.
+.P Once the packages marked for removal have been deleted,
+you'll be asked if you want to do another run (to see packages that have
+become 'leaves' now because you've deinstalled the package(s) that
+depended on them). In every run you will be shown only packages that you
+haven't marked for keeping, yet.
+.P This program was heavily based on the pkg_rmleaves script. The only
+functional difference is that this version shows the package comment and
+F1 will show the package description.
+.SH BUGS
+pkg_cleanup does not display the help line for the first selected
+package
+.SH AUTHOR
+Stephen Hurd <shurd@sasktel.net>
+.SH SEE ALSO
+pkg_delete(1), pkg_info(1)
diff --git a/ports-mgmt/pkg_cleanup/files/pkg_cleanup.c b/ports-mgmt/pkg_cleanup/files/pkg_cleanup.c
new file mode 100644
index 000000000000..1027557759d3
--- /dev/null
+++ b/ports-mgmt/pkg_cleanup/files/pkg_cleanup.c
@@ -0,0 +1,317 @@
+#include <sys/param.h>
+#include <sys/stat.h>
+#include <sys/types.h>
+#include <sys/wait.h>
+
+#include <ctype.h>
+#include <curses.h>
+#include <dialog.h>
+#include <errno.h>
+#include <glob.h>
+#include <search.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sysexits.h>
+#include <unistd.h>
+
+static glob_t	gl;	/* A cached list of all files in /var/db/pkg */
+dialogMenuItem	*menu=NULL;
+int				menulen=0;
+
+void free_menu(void)
+{
+	int		i;
+
+	if(menu) {
+		for(i=0; i<menulen; i++) {
+			if(menu[i].data) {
+				free(menu[i].data);
+				menu[i].data=NULL;
+			}
+			if(menu[i].prompt) {
+				free(menu[i].prompt);
+				menu[i].prompt=NULL;
+			}
+		}
+		free(menu);
+		menu=NULL;
+		menulen=0;
+	}
+}
+
+int blacklist(char *path, int operation)
+{
+	ENTRY		item;
+
+	item.data=NULL;
+	item.key=path;
+	return(hsearch(item, operation)!=NULL);
+}
+
+int fire(struct _dmenu_item *item)
+{
+	if(item->aux)
+		item->aux=0;
+	else
+		item->aux=-1L;
+	return(DITEM_SUCCESS);
+}
+
+void selected(struct _dmenu_item *item, int is_selected)
+{
+	char	path[MAXPATHLEN+1];
+	int		maxx,maxy;
+
+	if(is_selected) {
+		getmaxyx(stdscr, maxy, maxx);
+		draw_box(stdscr, 3, 2, 3, maxx-4, dialog_attr, border_attr);
+		wattrset(stdscr, dialog_attr);
+		mvwaddnstr(stdscr, 4, 4, (char *)item->data, maxx-6);
+		wrefresh(stdscr);
+		sprintf(path,"/var/db/pkg/%s/+DESC",item->prompt);
+		use_helpfile(path);
+	}
+}
+
+int checked(struct _dmenu_item *item)
+{
+	if(item->aux)
+		return(TRUE);
+	return(FALSE);
+}
+
+/* Read +COMMENT, add to menu and blacklist */
+int add_item(char *path)
+{
+	char				*p;
+	char				comment[80];
+	FILE				*comment_file;
+	char				comment_path[MAXPATHLEN+1];
+	dialogMenuItem		*newmenu;
+
+	if(blacklist(path,FIND))
+		return(0);
+	blacklist(path,ENTER);
+	comment[0]=0;
+
+	newmenu=(dialogMenuItem*)realloc(menu, sizeof(dialogMenuItem)*(menulen+1));
+	if(newmenu==NULL)
+		return(-1);
+	menu=newmenu;
+
+	p=strrchr(path,'/');
+	if(p==NULL)				/* Not possible */
+		return(-1);
+
+	menu[menulen].prompt=strdup(p+1);
+	menu[menulen].title="";
+	menu[menulen].checked=checked;
+	menu[menulen].fire=fire;
+	menu[menulen].selected=selected;
+	menu[menulen].lbra='[';
+	menu[menulen].mark='X';
+	menu[menulen].rbra=']';
+	menu[menulen].aux=0;
+
+	/* Read +COMMENT */
+	sprintf(comment_path,"%s/+COMMENT",path);
+	comment_file=fopen(comment_path,"r");
+	if(comment_file) {
+		fgets(comment, sizeof(comment), comment_file);
+		fclose(comment_file);
+		/* Remove trailing whitespace */
+		for(p=strchr(comment,0)-1; p>=comment; p--) {
+			if(isspace(*p))
+				*p=0;
+			else
+				break;
+		}
+	}
+	menu[menulen].data=strdup(comment);
+	menulen++;
+
+	return(0);
+}
+
+int display_menu(void)
+{
+	int	ret=0;
+	int		maxx,maxy;
+
+	init_dialog();
+	use_shadow=FALSE;
+	getmaxyx(stdscr, maxy, maxx);
+	if(dialog_checklist("Welcome to pkg_cleanup.", "These are the leaf packages installed on your system\nChose the packages to deinstall. F1 will display the package description.\n\n\n", maxy, maxx, maxy-11, 0-menulen, menu, NULL))
+		ret=-1;
+	end_dialog();
+	return(ret);
+}
+
+/* Goes through the glob contents, looking for zero-length +REQUIRED-BY */
+int read_pkglist(int loops)
+{
+	char		path[MAXPATHLEN+1];
+	int		p;
+	struct stat	sb;
+	int		maxx,maxy;
+	int		lastgauge=-1;
+	int		gauge;
+
+	init_dialog();
+	getmaxyx(stdscr, maxy, maxx);
+	for(p=0;p<gl.gl_pathc;p++) {
+		gauge=p*100/gl.gl_pathc;
+		if(gauge != lastgauge) {
+			dialog_gauge(NULL, "Searching for leaves", maxy/2-1, maxx/2-12, 7, 24, gauge);
+			gauge=lastgauge;
+		}
+		sprintf(path,"%s/+REQUIRED_BY",gl.gl_pathv[p]);
+		if(stat(path,&sb)) {
+			switch(errno) {
+				case ENOENT:
+					/* No +REQUIRED_BY, add to list */
+					add_item(gl.gl_pathv[p]);
+					break;
+				default:
+					/* All other errors, add to blacklist */
+					blacklist(gl.gl_pathv[p],ENTER);
+					break;
+			}
+		}
+		else {
+			if(sb.st_size==0)
+				add_item(gl.gl_pathv[p]);
+		}
+	}
+	dialog_gauge(NULL, "Searching for leaves", maxy/2-1, maxx/2-12, 7, 24, 100);
+	dialog_clear_norefresh();
+	if(menulen==0) {
+		if(loops)
+			dialog_msgbox(NULL, "No new leaves found", 5, 23, TRUE);
+		else
+			dialog_msgbox(NULL, "No leaves found", 5, 19, TRUE);
+		end_dialog();
+		return(-1);
+	}
+	end_dialog();
+	return(0);
+}
+
+int remove_ports(void)
+{
+	char	**args;
+	char	*env[1]={NULL};
+	char	**p;
+	int		i;
+	int		delete_count=0;
+	pid_t	child;
+	int		status;
+
+	args=(char **)malloc(menulen+2 * sizeof(char *));
+	if(!args) {
+		init_dialog();
+		dialog_msgbox("ERROR", "Can not allocate memory for package list!", 5, 45, TRUE);
+		end_dialog();
+		return(-1);
+	}
+	p=args;
+	*(p++)="-G";
+	for(i=0;i<menulen;i++) {
+		if(menu[i].aux) {
+			*(p++)=menu[i].prompt;
+			delete_count++;
+		}
+	}
+	*(p)=NULL;
+	if(!delete_count) {
+		init_dialog();
+		dialog_msgbox(NULL, "No packages selected", 5, 24, TRUE);
+		end_dialog();
+		free(args);
+		return(-1);
+	}
+	/* Ensure stdio is "right" */
+	if(!isendwin())
+		endwin();
+	child=vfork();
+	if(child==0) {
+		execve("/usr/sbin/pkg_delete", args, env);
+		fprintf(stderr,"ERROR: %d!\n",errno);
+		_exit(EXIT_FAILURE);
+	}
+	free(args);
+	if(child==-1) {
+		init_dialog();
+		dialog_msgbox(NULL, "Can not fork()", 5, 18, TRUE);
+		end_dialog();
+		return(-1);
+	}
+	waitpid(child, &status, 0);
+	/* On an error return, pause */
+	if(WIFSIGNALED(status) || (WIFEXITED(status) && WEXITSTATUS(status))) {
+		fputs("\n\nPress ENTER to continue... ",stderr);
+		fgetln(stdin, &i);
+	}
+
+	return(0);
+}
+
+int keep_going(void)
+{
+	int ret;
+
+	init_dialog();
+	ret = !dialog_yesno(NULL,"Do you want to process the new leaves packages?",-1,-1);
+	end_dialog();
+	return(ret);
+}
+
+/*
+ * The hash table is to keep track of leaves which  have already been displayed
+ * to the user.
+ */
+int main(int argc, char **argv)
+{
+	char		**pathv;
+	struct stat	sb;
+	int			loops=0;
+
+	/* glob() package directories */
+	if(glob("/var/db/pkg/*", GLOB_ERR, NULL, &gl)) {
+		fputs("Unable to get list of packages\n",stderr);
+		switch(errno) {
+			case GLOB_NOSPACE:
+				return(EX_UNAVAILABLE);
+			case GLOB_ABORTED:
+				return(EX_NOINPUT);
+			case GLOB_NOMATCH:
+				return(EX_NOINPUT);
+		}
+		return(EXIT_FAILURE);
+	}
+
+	if(gl.gl_pathc==0) {
+		fputs("No packages found.\n",stderr);
+		return(EXIT_FAILURE);
+	}
+
+	/* Initialize space for blacklist hash table */
+	if(hcreate(1000)==0) {
+		fputs("Cannot create hash table.\n",stderr);
+		return(EX_UNAVAILABLE);
+	}
+
+	do {
+		if(read_pkglist(loops++))
+			break;
+		if(display_menu())
+			break;
+		if(remove_ports())
+			break;
+		free_menu();
+	} while(keep_going());
+
+	fputs("Program Terminated Successfully\n",stderr);
+	return(0);
+}
diff --git a/ports-mgmt/pkg_cleanup/pkg-descr b/ports-mgmt/pkg_cleanup/pkg-descr
new file mode 100644
index 000000000000..262cf9984d74
--- /dev/null
+++ b/ports-mgmt/pkg_cleanup/pkg-descr
@@ -0,0 +1,7 @@
+pkg_cleanup finds packages that are not requested by any other installed
+package and lets you decide for each one if you want to keep it or delete it.
+It also allows viewing the pacakge comment and description.
+
+This program is essentially a clone of pkg_rmleaves except that it shows
+the comment and description of packages and does not support GUI dialog(1)
+implementations.