add RPM4 fake package (for eg: iurt)

3 files changed, 304 insertions, 0 deletions

diff --git a/NEWS b/NEWS
index 059e2f2..99aef07 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,4 @@
+- add RPM4 fake package (for eg: iurt)
 - update Net::FTP fake package for installer
 
 Version 1.2.17 - 19 March 2012, by Thierry Vignaud
diff --git a/fake_packages/RPM4.pm b/fake_packages/RPM4.pm
new file mode 100644
index 0000000..554cd33
--- /dev/null
+++ b/fake_packages/RPM4.pm
@@ -0,0 +1,267 @@
+
+package RPM4;
+our @ISA = qw();
+sub N { my ($_msg, @_more_paras) = @_ }
+sub add_macro() {}
+sub addmacro { my ($_macro) = @_ }
+sub archscore { my ($_arch, $_o_build) = @_ }
+sub buildhost() {}
+sub compare_evr() {}
+sub del_macro() {}
+sub delmacro { my ($_name) = @_ }
+sub dumpmacros { my ($_fp) = @_ }
+sub dumprc { my ($_fp) = @_ }
+sub emptydb() {}
+sub expand { my ($_name) = @_ }
+sub expandnumeric { my ($_name) = @_ }
+sub flagvalue { my ($_flagtype, $_sv_value) = @_ }
+sub format_rpmpb { my (@_more_paras) = @_ }
+sub getarchname() {}
+sub getosname() {}
+sub headernew() {}
+sub installsrpm { my ($_filename, $_o_sv_vsflags) = @_ }
+sub isdebug() {}
+sub lastlogmsg() {}
+sub loadmacrosfile { my ($_filename) = @_ }
+sub moduleinfo() {}
+sub newdb { my ($_o_write , $_o_rootdir) = @_ }
+sub newdep { my ($_sv_depTag, $_Name, $_o_sv_sense, $_o_sv_evr) = @_ }
+sub newspec { my ($_o_filename , $_o_passphrase, $_o_rootdir, $_o_cookies, $_o_anyarch, $_o_force, $_o_verify) = @_ }
+sub osscore { my ($_os, $_o_build) = @_ }
+sub parserpms { my (@_more_paras) = @_ }
+sub platformscore { my ($_platform) = @_ }
+sub querytag() {}
+sub readconfig { my ($_o_rcfile , $_o_target) = @_ }
+sub resetmacros() {}
+sub resetrc() {}
+sub rpm2header { my ($_filename, $_o_sv_vsflags) = @_ }
+sub rpmcpuinfodep { my ($_o_path ) = @_ }
+sub rpmdbinit { my ($_o_rootdir ) = @_ }
+sub rpmdbrebuild { my ($_o_rootdir ) = @_ }
+sub rpmdbverify { my ($_o_rootdir ) = @_ }
+sub rpmgetconfdep { my ($_o_path ) = @_ }
+sub rpmlibdep() {}
+sub rpmlog { my ($_svcode, $_msg) = @_ }
+sub rpmpipedep { my ($_cmd, $_o_tag) = @_ }
+sub rpmresign { my ($_passphrase, $_rpmfile) = @_ }
+sub rpmsysinfodep { my ($_o_sysinfofile ) = @_ }
+sub rpmunamedep() {}
+sub rpmvercmp { my ($_one, $_two) = @_ }
+sub setlogcallback { my ($_function) = @_ }
+sub setlogfile { my ($_filename) = @_ }
+sub setverbosity { my ($_svlevel) = @_ }
+sub specnew() {}
+sub stream2header { my ($_fp, $_o_no_header_magic, $_o_callback) = @_ }
+sub tagName { my ($_tag) = @_ }
+sub tagValue { my ($_tagname) = @_ }
+sub tagtypevalue { my ($_svtagtype) = @_ }
+
+package RPM4::Db::Te;
+our @ISA = qw();
+sub DESTROY { my ($_Te) = @_ }
+sub arch { my ($_Te) = @_ }
+sub dep { my ($_Te, $_type) = @_ }
+sub epoch { my ($_Te) = @_ }
+sub files { my ($_Te) = @_ }
+sub fullname { my ($_Te) = @_ }
+sub name { my ($_Te) = @_ }
+sub os { my ($_Te) = @_ }
+sub release { my ($_Te) = @_ }
+sub size { my ($_Te) = @_ }
+sub type { my ($_Te) = @_ }
+sub version { my ($_Te) = @_ }
+
+package RPM4::Db::_Problems;
+our @ISA = qw();
+sub DESTROY { my ($_ps) = @_ }
+sub count { my ($_ps) = @_ }
+sub fmtpb { my ($_ps, $_numpb) = @_ }
+sub isignore { my ($_ps, $_numpb) = @_ }
+sub new { my ($_perlclass, $_ts) = @_ }
+
+package RPM4::Header;
+our @ISA = qw();
+sub AUTOLOAD { my ($_o_header) = @_ }
+sub DESTROY { my ($_h) = @_ }
+sub addtag { my ($_h, $_sv_tag, $_sv_tagtype, @_more_paras) = @_ }
+sub archscore { my ($_o_header) = @_ }
+sub buildlight { my ($_header, $_o_hinfo) = @_ }
+sub compare { my ($_h1, $_h2) = @_ }
+sub copy { my ($_h) = @_ }
+sub dep { my ($_header, $_type, $_o_scaremem) = @_ }
+sub files { my ($_header, $_o_scaremem) = @_ }
+sub fullname { my ($_h) = @_ }
+sub getlight { my ($_header, $_o_reqfiles) = @_ }
+sub hastag { my ($_h, $_sv_tag) = @_ }
+sub hchkdep { my ($_h1, $_h2, $_type) = @_ }
+sub hsize { my ($_h, $_o_no_header_magic) = @_ }
+sub is_better_than { my ($_header, $_o_h) = @_ }
+sub issrc { my ($_h) = @_ }
+sub listtag { my ($_h) = @_ }
+sub matchdep { my ($_header, $_Dep, $_o_sv_nopromote) = @_ }
+sub namematchdep { my ($_header, $_Dep, $_o_sv_nopromote) = @_ }
+sub nevr { my ($_header) = @_ }
+sub new { my ($_class, $_o_arg) = @_ }
+sub osscore { my ($_o_header) = @_ }
+sub queryformat { my ($_h, $_query) = @_ }
+sub removetag { my ($_h, $_sv_tag) = @_ }
+sub requiredfiles { my ($_o_header) = @_ }
+sub sourcerpmname() {}
+sub string { my ($_h, $_o_no_header_magic) = @_ }
+sub synthesisinfo { my ($_header, $_o_filestoprovides) = @_ }
+sub tag { my ($_h, $_sv_tag) = @_ }
+sub tagtype { my ($_h, $_sv_tag) = @_ }
+sub write { my ($_h, $_fp, $_o_no_header_magic) = @_ }
+sub writesynthesis { my ($_header, $_handle, $_o_filestoprovides) = @_ }
+
+package RPM4::Header::Changelogs;
+our @ISA = qw();
+sub hasnext { my ($_o_self) = @_ }
+sub init { my ($_o_self) = @_ }
+sub name { my ($_o_self) = @_ }
+sub new { my ($_class, $_o_header) = @_ }
+sub text { my ($_o_self) = @_ }
+sub time { my ($_o_self) = @_ }
+
+package RPM4::Header::Checks;
+our @ISA = qw();
+sub check { my ($_o_header) = @_ }
+sub reporterror() {}
+
+package RPM4::Header::Dependencies;
+our @ISA = qw();
+sub DESTROY { my ($_Dep) = @_ }
+sub add { my ($_Dep, $_name, $_o_sv_sense, $_o_sv_evr) = @_ }
+sub color { my ($_Dep) = @_ }
+sub count { my ($_Dep) = @_ }
+sub evr { my ($_Dep) = @_ }
+sub find { my ($_Dep, $_depb) = @_ }
+sub flags { my ($_Dep) = @_ }
+sub hasnext { my ($_Dep) = @_ }
+sub info { my ($_Dep) = @_ }
+sub init { my ($_Dep) = @_ }
+sub matchheader { my ($_Dep, $_header, $_o_sv_nopromote) = @_ }
+sub matchheadername { my ($_Dep, $_header, $_o_sv_nopromote) = @_ }
+sub merge { my ($_Dep, $_depb) = @_ }
+sub move { my ($_Dep, $_o_index) = @_ }
+sub name { my ($_Dep) = @_ }
+sub new { my ($_class, $_deptag, $_initdep, @_more_paras) = @_ }
+sub newsingle { my ($_perlclass, $_sv_tag, $_name, $_o_sv_sense, $_o_sv_evr) = @_ }
+sub next { my ($_Dep) = @_ }
+sub nopromote { my ($_Dep, $_o_sv_nopromote) = @_ }
+sub overlap { my ($_Dep1, $_Dep2) = @_ }
+sub tag { my ($_Dep) = @_ }
+
+package RPM4::Header::Files;
+our @ISA = qw();
+sub DESTROY { my ($_Files) = @_ }
+sub basename { my ($_Files) = @_ }
+sub class { my ($_Files) = @_ }
+sub color { my ($_Files) = @_ }
+sub compare { my ($_Files, $_Fb) = @_ }
+sub count { my ($_Files) = @_ }
+sub countdir { my ($_Files) = @_ }
+sub dev { my ($_Files) = @_ }
+sub dircount() {}
+sub dirname { my ($_Files) = @_ }
+sub fflags { my ($_Files) = @_ }
+sub filename { my ($_Files) = @_ }
+sub group { my ($_Files) = @_ }
+sub hasnext { my ($_Files) = @_ }
+sub init { my ($_Files) = @_ }
+sub initdir { my ($_Files) = @_ }
+sub inode { my ($_Files) = @_ }
+sub link { my ($_Files) = @_ }
+sub md5 { my ($_Files) = @_ }
+sub mode { my ($_Files) = @_ }
+sub move { my ($_Files, $_o_index) = @_ }
+sub mtime { my ($_Files) = @_ }
+sub next { my ($_Files) = @_ }
+sub nextdir { my ($_Files) = @_ }
+sub nlink { my ($_Files) = @_ }
+sub size { my ($_Files) = @_ }
+sub user { my ($_Files) = @_ }
+
+package RPM4::Index;
+our @ISA = qw();
+sub buildhdlist { my (@_more_paras) = @_ }
+sub buildindex { my (@_more_paras) = @_ }
+sub buildsynthesis { my (@_more_paras) = @_ }
+sub parsehdlist { my (@_more_paras) = @_ }
+sub parsesynthesis { my (@_more_paras) = @_ }
+
+package RPM4::Media;
+our @ISA = qw();
+sub get_header { my ($_self, $_o_id) = @_ }
+sub get_indexfile { my ($_self, $_o_file) = @_ }
+sub get_rpm { my ($_self, $_o_rpm) = @_ }
+sub id2rpm { my ($_self, $_o_id) = @_ }
+sub init { my ($_self, $_o_callback) = @_ }
+sub load { my ($_self, $_o_reqfiles) = @_ }
+sub new { my ($_class, @_more_paras) = @_ }
+sub traverse { my ($_self, $_o_callback) = @_ }
+
+package RPM4::Sign;
+our @ISA = qw();
+sub adjustmacro { my ($_o_self) = @_ }
+sub getpasswdfile { my ($_o_self) = @_ }
+sub getpubkey { my ($_o_self) = @_ }
+sub new { my ($_class, @_more_paras) = @_ }
+sub restoremacro { my ($_o_self) = @_ }
+sub rpmsign { my ($_self, $_rpm, $_o_header) = @_ }
+sub rpmssign { my ($_self, @_more_paras) = @_ }
+
+package RPM4::Spec;
+our @ISA = qw();
+sub DESTROY { my ($_spec) = @_ }
+sub binheader { my ($_spec) = @_ }
+sub binrpm { my ($_spec) = @_ }
+sub build { my ($_spec, $_sv_buildflags) = @_ }
+sub check { my ($_spec, $_o_ts) = @_ }
+sub icon { my ($_spec) = @_ }
+sub icon_url { my ($_spec) = @_ }
+sub new { my ($_perlclass, $_o_specfile, @_more_paras) = @_ }
+sub rpmbuild { my ($_spec, $_flags, @_more_paras) = @_ }
+sub sources { my ($_spec, $_o_is) = @_ }
+sub sources_url { my ($_spec, $_o_is) = @_ }
+sub specfile { my ($_spec) = @_ }
+sub srcheader { my ($_spec) = @_ }
+sub srcrpm { my ($_spec) = @_ }
+
+package RPM4::Transaction;
+our @ISA = qw();
+sub DESTROY { my ($_ts) = @_ }
+sub _transpbs { my ($_ts) = @_ }
+sub checkrpm { my ($_ts, $_filename, $_o_sv_vsflags) = @_ }
+sub deleteheader { my ($_db, $_sv_offset) = @_ }
+sub get_header { my ($_ts, $_off) = @_ }
+sub importpubkey { my ($_ts, $_filename) = @_ }
+sub injectheader { my ($_db, $_header) = @_ }
+sub installsrpm { my ($_ts, $_filename) = @_ }
+sub new { my ($_perlclass, $_o_rootdir) = @_ }
+sub newspec { my ($_self, $_filename, @_more_paras) = @_ }
+sub rpm2header { my ($_ts, $_filename) = @_ }
+sub specbuild { my ($_ts, $_spec, $_sv_buildflags) = @_ }
+sub transadd { my ($_ts, $_header, $_o_key, $_o_upgrade, $_o_sv_relocation, $_o_force) = @_ }
+sub transcheck { my ($_ts) = @_ }
+sub transclean { my ($_ts) = @_ }
+sub transflag { my ($_ts, $_o_sv_transflag) = @_ }
+sub transorder { my ($_ts) = @_ }
+sub transpbs { my ($_o_self) = @_ }
+sub transremove { my ($_ts, $_recOffset, $_o_header) = @_ }
+sub transremove_pkg { my ($_ts, $_N_evr) = @_ }
+sub transreset { my ($_ts) = @_ }
+sub transrun { my ($_ts, $_callback, @_more_paras) = @_ }
+sub traverse { my ($_ts, $_o_callback, $_o_sv_tagname, $_o_sv_tagvalue, $_o_keylen, $_o_sv_exclude) = @_ }
+sub traverse_transaction { my ($_ts, $_callback, $_o_type) = @_ }
+sub vsflags { my ($_ts, $_o_sv_vsflags) = @_ }
+
+package RPM4::Transaction::Problems;
+our @ISA = qw();
+sub count { my ($_o_self) = @_ }
+sub hasnext { my ($_o_self) = @_ }
+sub init { my ($_o_self) = @_ }
+sub is_ignore { my ($_o_self) = @_ }
+sub new { my ($_class, $_o_ts) = @_ }
+sub print_all { my ($_self, $_o_handle) = @_ }
+sub problem { my ($_o_self) = @_ }
diff --git a/fake_packages/RPM4/Header.pm b/fake_packages/RPM4/Header.pm
new file mode 100644
index 0000000..b6975bc
--- /dev/null
+++ b/fake_packages/RPM4/Header.pm
@@ -0,0 +1,36 @@
+package RPM4::Header;
+our @ISA = qw();
+sub AUTOLOAD { my ($_o_header) = @_ }
+sub DESTROY { my ($_h) = @_ }
+sub addtag { my ($_h, $_sv_tag, $_sv_tagtype, @_more_paras) = @_ }
+sub archscore { my ($_o_header) = @_ }
+sub buildlight { my ($_header, $_o_hinfo) = @_ }
+sub compare { my ($_h1, $_h2) = @_ }
+sub copy { my ($_h) = @_ }
+sub dep { my ($_header, $_type, $_o_scaremem) = @_ }
+sub files { my ($_header, $_o_scaremem) = @_ }
+sub fullname { my ($_h) = @_ }
+sub getlight { my ($_header, $_o_reqfiles) = @_ }
+sub hastag { my ($_h, $_sv_tag) = @_ }
+sub hchkdep { my ($_h1, $_h2, $_type) = @_ }
+sub hsize { my ($_h, $_o_no_header_magic) = @_ }
+sub is_better_than { my ($_header, $_o_h) = @_ }
+sub issrc { my ($_h) = @_ }
+sub listtag { my ($_h) = @_ }
+sub matchdep { my ($_header, $_Dep, $_o_sv_nopromote) = @_ }
+sub namematchdep { my ($_header, $_Dep, $_o_sv_nopromote) = @_ }
+sub nevr { my ($_header) = @_ }
+sub new { my ($_class, $_o_arg) = @_ }
+sub osscore { my ($_o_header) = @_ }
+sub queryformat { my ($_h, $_query) = @_ }
+sub removetag { my ($_h, $_sv_tag) = @_ }
+sub requiredfiles { my ($_o_header) = @_ }
+sub sourcerpmname() {}
+sub string { my ($_h, $_o_no_header_magic) = @_ }
+sub synthesisinfo { my ($_header, $_o_filestoprovides) = @_ }
+sub tag { my ($_h, $_sv_tag) = @_ }
+sub tagtype { my ($_h, $_sv_tag) = @_ }
+sub write { my ($_h, $_fp, $_o_no_header_magic) = @_ }
+sub writesynthesis { my ($_header, $_handle, $_o_filestoprovides) = @_ }
+
+