From fe4080bcbd182c9c8068d4524b205926c31353b6 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Tue, 5 Jul 2022 03:07:43 -0400
Subject: sbofixinfo: WIP

---
 sbofixinfo | 85 +++++++++++++++++++++++++++++++++++++-------------------------
 1 file changed, 51 insertions(+), 34 deletions(-)

diff --git a/sbofixinfo b/sbofixinfo
index 2515989..be1cb85 100755
--- a/sbofixinfo
+++ b/sbofixinfo
@@ -1,14 +1,10 @@
 #!/usr/bin/perl -w
 
-# reorder the keys in a SBo .info file.
-# assumes the file is otherwise valid.
+# sbofixinfo - fix common errors in SBo .info files.
 # companion piece to sbolint.
 
 $VERSION="0.1";
 
-# generate man page with:
-# pod2man --stderr -r0.1 -s1 -c"SBo Maintainer Tools" sbofixinfo > sbofixinfo.1
-
 =pod
 
 =head1 NAME
@@ -17,10 +13,15 @@ sbofixinfo - fix common errors in a SlackBuilds.org .info file
 
 =head1 SYNOPSIS
 
-sbofixinfo [-b] infofile [infofile ...]
+B<sbofixinfo> I<file-or-dir> [I<file-or-dir> I<...>]
 
 =head1 DESCRIPTION
 
+B<sbofixinfo> attempts to fix common errors in a SlackBuilds.org .info
+file. Each argument must be an .info file or a directory containing
+an .info file. With no arguments, the .info file in the current
+directory is checked.
+
 B<sbofixinfo> attempts to fix the following errors in SBo .info files:
 
 =over 4
@@ -69,9 +70,7 @@ comprehensive checking.
 The file is modified 'in-place', in the same way as the B<-i> option
 to B<sed>(1).
 
-=head1 OPTIONS
-
-B<-b> causes B<sbofixinfo> to keep a backup of the original file with the
+B<sbofixinfo> keeps a backup of the original file with the
 extension I<.bak> appended to the filename. If the backup file already
 exists, it will be silently overwritten. After the new file is generated,
 B<diff>(1) (with its B<-u> option) is run on the backup and modified
@@ -107,23 +106,36 @@ B<sbolint>(1), B<sbopkglint>(1)
 
 ($SELF = $0) =~ s,.*/,,;
 
-@keyorder = qw/
-PRGNAM VERSION HOMEPAGE DOWNLOAD MD5SUM DOWNLOAD_x86_64 MD5SUM_x86_64 REQUIRES MAINTAINER EMAIL
-/;
-
-die "$SELF v$VERSION\nUsage: $SELF [--help] [-b] infofile <infofile ...>\n" unless @ARGV;
-
-if($ARGV[0] eq '--help') {
-	no warnings;
-	require FindBin;
-	system("perldoc $FindBin::RealScript");
-	exit 0;
+@keyorder = qw{
+	PRGNAM
+	VERSION
+	HOMEPAGE
+	DOWNLOAD
+	MD5SUM
+	DOWNLOAD_x86_64
+	MD5SUM_x86_64
+	REQUIRES
+	MAINTAINER
+	EMAIL
+};
+
+$arg0 = @ARGV ? $ARGV[0] : undef;
+for($arg0) {
+	defined || last;
+	/^--?(?:v|ver)$/ && do {
+		print "$SELF $VERSION\n";
+		exit 0;
+	};
+	/^--?(?:h|help|doc)$/ && do {
+		exec("perldoc $0") || die "$SELF: can't exec perldoc\n";
+	};
+	/^--?(?:m|man)$/ && do {
+		exec("pod2man --stderr -s1 -csbo-maintainer-tools -r$VERSION $0") ||
+			die "$SELF: can't exec pod2man\n";
+	};
 }
 
-if($ARGV[0] eq '-b') {
-	$backup = 1;
-	shift;
-}
+push @ARGV, "." unless @ARGV;
 
 $errcnt = 0;
 fix_info($_) for @ARGV;
@@ -131,6 +143,12 @@ exit $errcnt;
 
 sub fix_info {
 	my $file = shift;
+	if(-d $file) {
+		my $dir = `realpath $file`;
+		chomp $dir;
+		(my $name = $dir) =~ s,.*/,,;
+		$file = "$dir/$name.info";
+	}
 	open my $fh, "<$file" or do {
 		warn "$SELF: can't read $file: $!\n";
 		$errcnt++;
@@ -150,7 +168,7 @@ sub fix_info {
 		next if /^\s*$/; # ignore blank lines entirely
 
 		s/(?:^\s+|\s+$)//g; # remove leading/trailing spaces
-		s/^(\w+)\s+=\s+/$1=/; # remove spaces around =
+		s/^(\w+)\s*=\s*/$1=/; # remove spaces around =
 
 		if(/^(\w+)=(.*)$/) {
 			$key = $1;
@@ -158,9 +176,9 @@ sub fix_info {
 			$val =~ s,(?:^['"]|['"]$),,g; # remove quotes around value
 			$val =~ s,[\s\\]*$,,; # remove any line-continuation backslash
 
-         # multiple valued keys all on the same line get split up into
-         # multi-line values. This only applies to download and md5sum
-			# URLs (which can't contain spaces anyway).
+			# multiple valued keys all on the same line get split up into
+			# multi-line values. This only applies to download and md5sum
+			# values (which can't contain spaces anyway).
 			if($key =~ /^(?:DOWNLOAD|MD5SUM)/) {
 				$val =~ s/\s+/\r/g;
 			}
@@ -173,7 +191,7 @@ sub fix_info {
 	}
 	close $fh;
 
-	system("mv $file $file.bak") if $backup;
+	system("mv $file $file.bak");
 
 	open $fh, ">$file" or do {
 		warn "$SELF: can't write $file: $!\n";
@@ -200,10 +218,9 @@ sub fix_info {
 		}
 	}
 
-	if($backup) {
-		my $result = system("diff $file.bak $file");
-		if($result == 0) {
-			system("rm $file.bak");
-		}
+	my $result = system("diff $file.bak $file");
+	if($result == 0) {
+		system("rm $file.bak");
+		warn "$SELF: no changes to $file\n";
 	}
 }
-- 
cgit v1.2.3