From 4c9b180f05693f3e9261914d2b7360789344e2c0 Mon Sep 17 00:00:00 2001
From: nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>
Date: Sat, 8 Oct 2005 17:31:44 +0000
Subject: - code was still using Hdlist :\

git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@42 971eb68f-4bfb-0310-8326-d2484c010a4c
---
 RPM4/examples/hbuildspec    | 6 +++---
 RPM4/examples/hdinfo        | 8 ++++----
 RPM4/examples/hdlist2sdb    | 8 ++++----
 RPM4/examples/hdlistq       | 4 ++--
 RPM4/examples/hdrpmq        | 4 ++--
 RPM4/examples/hinfo         | 4 ++--
 RPM4/examples/rpminstall    | 4 ++--
 RPM4/examples/specwillbuild | 6 +++---
 8 files changed, 22 insertions(+), 22 deletions(-)

(limited to 'RPM4')

diff --git a/RPM4/examples/hbuildspec b/RPM4/examples/hbuildspec
index d0204db..ae26bbd 100755
--- a/RPM4/examples/hbuildspec
+++ b/RPM4/examples/hbuildspec
@@ -19,7 +19,7 @@
 # $Id$
 
 use strict;
-use Hdlist;
+use RPM4;
 use Getopt::Long;
 
 (@ARGV) or die 
@@ -28,10 +28,10 @@ Give rpms filename produce by a specfile
 ";
 
 foreach (@ARGV) {
-    my $spec = Hdlist::specnew($_);
+    my $spec = RPM4::specnew($_);
     my @err = $spec->check();
     if (@err) {
-        foreach (Hdlist::print_rpmpb(@err)) {
+        foreach (RPM4::print_rpmpb(@err)) {
             print "\t$_\n";
         }
     } else {
diff --git a/RPM4/examples/hdinfo b/RPM4/examples/hdinfo
index 3d3de25..cbbb9dc 100755
--- a/RPM4/examples/hdinfo
+++ b/RPM4/examples/hdinfo
@@ -19,13 +19,13 @@
 # $Id$
 
 use strict;
-use Hdlist;
+use RPM4;
 
-my $arch = Hdlist::getarchname();
+my $arch = RPM4::getarchname();
 print "arch = " . $arch . "\n";
 
-my $os = Hdlist::getosname();
+my $os = RPM4::getosname();
 print "os = " . $os . "\n";
 
-my $host = Hdlist::buildhost();
+my $host = RPM4::buildhost();
 print "host = " . $host . "\n";
diff --git a/RPM4/examples/hdlist2sdb b/RPM4/examples/hdlist2sdb
index e1fe387..e38af93 100755
--- a/RPM4/examples/hdlist2sdb
+++ b/RPM4/examples/hdlist2sdb
@@ -19,7 +19,7 @@
 # $Id$
 
 use strict;
-use Hdlist;
+use RPM4;
 use Getopt::Long;
 
 GetOptions (
@@ -31,11 +31,11 @@ Synch rpm found into given hdlist into a database.
 Usefull to create a solve rpm database.
 ";
 
-$dbpath ||= Hdlist::expand("%_solve_dbpath");
+$dbpath ||= RPM4::expand("%_solve_dbpath");
 
-Hdlist::add_macro("_dbpath $dbpath");
+RPM4::add_macro("_dbpath $dbpath");
 
-my $db = Hdlist::newdb(1) or die "Can't open DB";
+my $db = RPM4::newdb(1) or die "Can't open DB";
 
 my %rpmlist;
 my %indb;
diff --git a/RPM4/examples/hdlistq b/RPM4/examples/hdlistq
index 1e2489a..31d7e55 100755
--- a/RPM4/examples/hdlistq
+++ b/RPM4/examples/hdlistq
@@ -19,7 +19,7 @@
 # $Id$
 
 use strict;
-use Hdlist;
+use RPM4;
 use Getopt::Long;
 
 my $qf = "%{NAME}-%{VERSION}-%{RELEASE}.%{ARCH}\n";
@@ -45,7 +45,7 @@ Description :\n%{DESCRIPTION}
 my ($type, $name, $flag, $ENV, $dep);
 if ($cond) {
     my @d = split(/ +/, $cond);
-    $dep = Hdlist::newdep(@d);
+    $dep = RPM4::newdep(@d);
 }
 
 ($go_res && @ARGV) or die 
diff --git a/RPM4/examples/hdrpmq b/RPM4/examples/hdrpmq
index 5d9c91e..6fac541 100755
--- a/RPM4/examples/hdrpmq
+++ b/RPM4/examples/hdrpmq
@@ -19,7 +19,7 @@
 # $Id$
 
 use strict;
-use Hdlist;
+use RPM4;
 use Getopt::Long;
 
 my $qf = "%{NAME}-%{VERSION}-%{RELEASE}.%{ARCH}\n";
@@ -30,7 +30,7 @@ my $go_res = GetOptions (
 
 ($go_res && @ARGV) or die 
 "$0 [--qf|--queryformat rpm_query] rpm1 [rpm2 [...]]
-Do something like `rpm -qp --queryformat' using perl-Hdlist
+Do something like `rpm -qp --queryformat' using perl-RPM4
 example: $0 --qf '%{NAME}\\n' test-rpm-1.0-1mdk.noarch.rpm
 ";
 
diff --git a/RPM4/examples/hinfo b/RPM4/examples/hinfo
index 29e1f77..c6bf530 100644
--- a/RPM4/examples/hinfo
+++ b/RPM4/examples/hinfo
@@ -19,7 +19,7 @@
 # $Id$
 
 use strict;
-use Hdlist;
+use RPM4;
 
 (@ARGV) or die("$0 <rpmfilename>");
 
@@ -28,7 +28,7 @@ foreach (@ARGV) {
   if($header) {	
     print "tag\tnom\t\texiste\tvaleur\n";
     foreach ($header->listtag) { 
-      print "$_\t" . Hdlist::tagName($_) .  "\t\t";
+      print "$_\t" . RPM4::tagName($_) .  "\t\t";
       my $e;
       $e = $header->hastag("$_");
       print "$e\t";
diff --git a/RPM4/examples/rpminstall b/RPM4/examples/rpminstall
index fef5caf..559f919 100755
--- a/RPM4/examples/rpminstall
+++ b/RPM4/examples/rpminstall
@@ -19,7 +19,7 @@
 # $Id$
 
 use strict;
-use Hdlist;
+use RPM4;
 use Getopt::Long qw(:config pass_through);
 
 sub help {
@@ -72,7 +72,7 @@ GetOptions(
 (@rpmi || @rpme) or help();
 
 if (defined($dbpath)) {
-    Hdlist::add_macro("_dbpath $dbpath");
+    RPM4::add_macro("_dbpath $dbpath");
 }
 my $db = newdb(0, $root);
 
diff --git a/RPM4/examples/specwillbuild b/RPM4/examples/specwillbuild
index 7ccbbf9..2ecc584 100755
--- a/RPM4/examples/specwillbuild
+++ b/RPM4/examples/specwillbuild
@@ -19,7 +19,7 @@
 # $Id$
 
 use strict;
-use Hdlist;
+use RPM4;
 use Getopt::Long;
 
 (@ARGV) or die 
@@ -28,8 +28,8 @@ Give rpms filename produce by a specfile
 ";
 
 foreach (@ARGV) {
-    Hdlist::readconfig();
-    my $spec = Hdlist::specnew($_, undef, undef, undef, 1, 1);
+    RPM4::readconfig();
+    my $spec = RPM4::specnew($_, undef, undef, undef, 1, 1);
     defined $spec or do {
         warn "unable to parse $_\n";
         next;
-- 
cgit v1.2.1