Initial revision

lib/totgz.pl

@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+#
+# Package for converting to .tgz file.
+
+sub Convert { my ($workdir,%fields)=@_;
+	# Nothing to do.
+}
+
+# Passed the available info about the package in a hash, return the name of
+# the tgz package that will be made.
+sub GetPackageName { my %fields=@_;
+	return "$fields{NAME}.tgz";
+}
+
+# Build a tgz file.
+sub Build { my (%fields)=@_;
+	SafeSystem("tar czf ../".GetPackageName(%fields)." .");
+}
+
+# Install the passed tgz file.
+sub Install { my $package=shift;
+	# Not yet supported. (I really don't like unpacking tgz files into the 
+	# root directory. :-)	
+	print STDERR "Sorry, installing generated .tgz files in not yet supported.\n";
+}
+
+1