[otrs-cvs] CVS: otrs/bin opm.pl,1.9,1.10

[cvs-log at otrs.org]

Update of /home/cvs/otrs/bin
In directory lancelot:/tmp/cvs-serv13519/bin

Modified Files:
	opm.pl 
Log Message:
added cmd option for bin/opm.pl to find package of file

Index: opm.pl
===================================================================
RCS file: /home/cvs/otrs/bin/opm.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** opm.pl	29 Dec 2005 20:11:38 -0000	1.9
--- opm.pl	1 Aug 2006 20:16:09 -0000	1.10
***************
*** 2,6 ****
  # --
  # opm.pl - otrs package manager cmd version
! # Copyright (C) 2001-2005 Martin Edenhofer <martin+code at otrs.org>
  # --
  # $Id$
--- 2,6 ----
  # --
  # opm.pl - otrs package manager cmd version
! # Copyright (C) 2001-2006 Martin Edenhofer <martin+code at otrs.org>
  # --
  # $Id$
***************
*** 74,78 ****
      print "opm.pl <Revision $VERSION> - OTRS Package Manager\n";
      print "Copyright (c) 2001-2005 Martin Edenhofer <martin\@otrs.org>\n";
!     print "usage: opm.pl -a list|install|upgrade|uninstall|reinstall|list-repository|build|index \n";
      print "        [-p package.opm|package.sopm|package|package-version] [-o OUTPUTDIR] [-f FORCE]\n";
      print "   user (local):\n";
--- 74,78 ----
      print "opm.pl <Revision $VERSION> - OTRS Package Manager\n";
      print "Copyright (c) 2001-2005 Martin Edenhofer <martin\@otrs.org>\n";
!     print "usage: opm.pl -a list|install|upgrade|uninstall|reinstall|list-repository|file|build|index \n";
      print "        [-p package.opm|package.sopm|package|package-version] [-o OUTPUTDIR] [-f FORCE]\n";
      print "   user (local):\n";
***************
*** 82,85 ****
--- 82,86 ----
      print "       opm.pl -a reinstall -p Package\n";
      print "       opm.pl -a uninstall -p Package\n";
+     print "       opm.pl -a file -p Kernel/System/File.pm (find package of file)\n";
      print "   user (remote):\n";
      print "       opm.pl -a list-repository\n";
***************
*** 94,98 ****
  }
  my $FileString = '';
! if ($Opts{'a'} !~ /^list/ && $Opts{'p'}) {
      if (-e $Opts{'p'}) {
          if (open(IN, "< $Opts{'p'}")) {
--- 95,99 ----
  }
  my $FileString = '';
! if ($Opts{'a'} !~ /^(list|file)/ && $Opts{'p'}) {
      if (-e $Opts{'p'}) {
          if (open(IN, "< $Opts{'p'}")) {
***************
*** 161,164 ****
--- 162,191 ----
      }
  }
+ # file
+ if ($Opts{'a'} eq 'file') {
+     $Opts{'p'} =~ s/\/\//\//g;
+     my $Hit = 0;
+     foreach my $Package ($CommonObject{PackageObject}->RepositoryList()) {
+         foreach my $File (@{$Package->{Filelist}}) {
+             if ($Opts{'p'} =~ /^\Q$File->{Location}\E$/) {
+                 print "+-----------------------------------------------------------------+\n";
+                 print "| File:        $File->{Location}!\n";
+                 print "| Name:        $Package->{Name}->{Content}\n";
+                 print "| Version:     $Package->{Version}->{Content}\n";
+                 print "| Vendor:      $Package->{Vendor}->{Content}\n";
+                 print "| URL:         $Package->{URL}->{Content}\n";
+                 print "+-----------------------------------------------------------------+\n";
+                 $Hit = 1;
+             }
+         }
+     }
+     if ($Hit) {
+         exit;
+     }
+     else {
+         print STDERR "ERROR: no package for file $Opts{'p'} found!\n";
+         exit 1;
+     }
+ }
  # build
  if ($Opts{'a'} eq 'build') {
***************
*** 181,198 ****
          exit 1;
      }
-     print $CommonObject{PackageObject}->PackageBuild(
-         Name => 123,
-         Version => 43,
-         Vendor => 24,
-         License => 43,
-         Description => 43,
-         Files => [
-             {
-                 Permission => "644",
-                 Location => "RELEASE",
-             },
-         ],
-     );
-     exit;
  }
  elsif ($Opts{'a'} eq 'uninstall') {
--- 208,211 ----