--- /usr/bin/pkg-repgen	2010-09-02 11:02:43.000000000 +0200
+++ pkg-repgen	2010-09-02 11:41:54.000000000 +0200
@@ -13,8 +13,9 @@ use warnings;
 use strict;
 use Getopt::Long;
 
+our $prtget = "/usr/bin/prt-get"; our $prtdir;
 our $title = "CRUX Packages"; our $header; our $footer;
-GetOptions("title=s"=>\$title, "header=s"=>\$header, "footer=s"=>\$footer);
+GetOptions("prtdir=s"=>\$prtdir, "title=s"=>\$title, "header=s"=>\$header, "footer=s"=>\$footer);
 
 if ($#ARGV >= 0) { # single packages
     pkgrepo_single();
@@ -22,6 +23,9 @@ if ($#ARGV >= 0) { # single packages
     pkgread();
     pkginst();
 } else {
+    if ($prtdir) {
+      $prtget = "$prtget --no-std-config --config-set=\"prtdir $prtdir\"";
+    }
     pkgrepo();
     pkgdeps();
     pkgread();
@@ -40,7 +44,7 @@ sub pkgdeps_single {
             my $found = 0;
             my $package = $packages[0];
             $package =~ s/#.*//;
-            my $deps = `prt-get printf "%e" --filter="$package"`;
+            my $deps = `$prtget printf "%e" --filter="$package"`;
             if ($deps ne "") {
                 my $isnew = `grep "$p .*:" PKGDEPS`;
                 if ($isnew eq ""){ # package is new, put deps at the end.
@@ -74,10 +78,10 @@ sub pkgrepo_single {
             my $du = (-s $package);
             my $md5 = `md5sum $package`;
             $md5 =~ s/  .*$|\n//g;
-            my $des=`prt-get printf %d --filter="$name"`;
+            my $des=`$prtget printf %d --filter="$name"`;
             $des =~ s/:/ /g;
             if ($des eq ""){$des = "N.A."};
-            my $flags=`prt-get printf %E:%O:%R --filter="$name"`;
+            my $flags=`$prtget printf %E:%O:%R --filter="$name"`;
             if ($flags eq "") {$flags = "no:no:no"}
             my $isnew = `grep "$p#" PKGREPO`;
             if ($isnew eq ""){ # package is new, put it at the end
@@ -107,7 +111,7 @@ sub pkgdeps {
     open (my $fh, '>PKGDEPS');
 	foreach my $package (@packages) {
         $package =~ s/#.*//;
-        my $deps = `prt-get printf "%e" --filter="$package"`;
+        my $deps = `$prtget printf "%e" --filter="$package"`;
         if ($deps ne "") {
             printf $fh "%-30s : %-s\n", $package, $deps;
         }
@@ -133,10 +137,10 @@ sub pkgrepo {
         my $du = (-s $package);
         my $md5 = `md5sum $package`;
         $md5 =~ s/  .*$|\n//g;
-        my $des=`prt-get printf %d --filter="$name"`;
+        my $des=`$prtget printf %d --filter="$name"`;
         $des =~ s/:/ /g;
         if ($des eq ""){$des = "N.A."};
-        my $flags=`prt-get printf %E:%O:%R --filter="$name"`;
+        my $flags=`$prtget printf %E:%O:%R --filter="$name"`;
         if ($flags eq "") {$flags = "no:no:no"}
         printf $fh "%-s:%-s:%-s:%-s:%-s\n", $package,$du,$md5,$des,$flags;
 		my $version = $package;
@@ -167,7 +171,7 @@ sub pkgread {
     print $fh "# README files for repository. Do NOT remove this line.\n";
 	foreach my $package (@packages) {
         $package =~ s/#.*//;
-        my $path = `prt-get path $package`;
+        my $path = `$prtget path $package`;
         $path =~ s/\n//g;
         if (-f "$path/README"){
             print $fh "##### PKGREADME: $package\n";
@@ -195,7 +199,7 @@ sub pkginst {
     my @packages = glob("*#*.pkg.tar.gz");
 	foreach my $package (@packages) {
         $package =~ s/#.*//;
-        my $path = `prt-get path $package`;
+        my $path = `$prtget path $package`;
         $path =~ s/\n//g;
         my $normal= $package;
         $normal =~ s/[^[:alnum:]]/_/g;