#    Debian System Wide Information Manager
#    Copyright (C) 1999-2001 Jonathan Rosenbaum

#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.

#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.

#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.


package SWIM::Indexer;
use strict;
use SWIM::Global;
use SWIM::Conf qw($my_number);
use SWIM::DB_Library qw(:Xyz ib nib nsb);
use SWIM::Info;
use SWIM::Pn_print;   
use SWIM::Deps;
use SWIM::Dir;
use vars qw(@ISA @EXPORT_OK);
use Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(indexer);


# The next few subs are provided to shorten indexer
# for -d or -l, but not -c when -T
sub T_indexer {

   my ($alot,$commands) = @_;
   my %commands = %$commands;

   foreach (@$alot) {
       $argument = $_;

       if ($commands->{"scripts"} || 
	   $commands->{"preinst"} ||
	   $commands->{"postinst"} || 
	   $commands->{"config"} || 
	   $commands->{"prerm"} ||
	   $commands->{"postrm"} || 
	   $commands->{"config"} || 
	   $commands->{"templates"}) {
	   scripts(\%commands);
       }
       menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
       copyright(\%commands) if $commands->{"copyright"};
       changelog(\%commands) if $commands->{"changelog"};
       # looks o.k.
       print "$argument\n";
       character(\%commands);
       shlibs(\%commands) if $commands->{"shlibs"};
       if ($commands->{"d"} && !$commands->{"c"}) {
	   require SWIM::File;
	 SWIM::File->import(qw(file));
	   file(\%commands);
       }
       print "\n";
       return;
   }
} # end sub T_indexer


sub which_character_indexer {

          my ($alot,$commands) = @_;
          my %commands = %$commands;

           foreach (@$alot) {
             my %store_commands = %commands;
             $argument = $_;
             if ($commands->{"scripts"} || $commands->{"preinst"} ||
                 $commands->{"postinst"} || $commands->{"prerm"} ||
                 $commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"}) {
                 scripts(\%commands);
             }
             menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
             copyright(\%commands) if $commands->{"copyright"};
             changelog(\%commands) if $commands->{"changelog"};
             if  (the_character(\%commands) ne "ok") {
               print "$argument\n";
             }
             if (defined s_character(\%commands)) {}
             shlibs(\%commands) if $commands->{"shlibs"};
             if ($commands->{"d"} && !$commands->{"c"}) {
              require SWIM::File;
              SWIM::File->import(qw(file));
              file(\%commands);
             }
             print "\n";
             %commands = %store_commands;
             undef %store_commands;
           }

} # end sub which_character_indexer 

sub noT_indexer {


          my ($alot,$commands) = @_;
          my %commands = %$commands;
          require SWIM::File;
          SWIM::File->import(qw(file));

          foreach (@$alot) {
            $argument = $_;                     
             if ($commands->{"scripts"} || $commands->{"preinst"} ||
                $commands->{"postinst"} || $commands->{"prerm"} ||
                $commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"}) {
                 scripts(\%commands);
             }
             menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
             copyright(\%commands) if $commands->{"copyright"}; 
             changelog(\%commands) if $commands->{"changelog"}; 
             if ($argument) {
              # should be o.k., almost everything has documentation
              print "$argument\n";
             }
            shlibs(\%commands) if $commands->{"shlibs"};       
            file(\%commands);
             if ($commands->{"d"} && !$commands->{"T"} && !which_character(\%commands)) { 
               print "\n";
             }
          }

} # end sub noT_indexer

# different enough from noT_indexer, used when -c,-d,-l aren't called.
sub nonoT_indexer {

          my ($alot,$commands) = @_;
          my %commands = %$commands;

           foreach (@$alot) {
              $argument = $_;  
             if ($commands->{"scripts"} || $commands->{"preinst"} ||
                $commands->{"postinst"} || $commands->{"prerm"} ||
                $commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"}) {
                 scripts(\%commands);
             }
             menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
             copyright(\%commands) if $commands->{"copyright"}; 
             changelog(\%commands) if $commands->{"changelog"}; 
             # package name will print out even if there is no script
             # definitely useful here
             singular(\%commands);
             if ($commands->{"scripts"}) {
                 print "\n";
             }
             shlibs(\%commands) if $commands->{"shlibs"}; 
           }
          

} # end sub nonoT_indexer


# when -c is called with or without -l or -d.  This sub got rather huge. 
sub c_indexer {

  my ($alot,$commands) = @_;
  my %commands = %$commands;
  my $arg_save;
  require SWIM::File;
  SWIM::File->import(qw(file));

          foreach (@$alot) {
           $argument = $_;           
           if (conf(\%commands) ne 0) {
             if ($commands->{"T"}) {
              # covers first argument, but not the rest.
              if ($commands->{"scripts"} || $commands->{"preinst"} ||
                $commands->{"postinst"} || $commands->{"prerm"} ||
                $commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"}) {
                 scripts(\%commands);
              }
              menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
              copyright(\%commands) if $commands->{"copyright"}; 
              changelog(\%commands) if $commands->{"changelog"}; 
                print "$argument\n"; 
                character(\%commands);   
                shlibs(\%commands) if $commands->{"shlibs"};               
                print conf(\%commands) if !$commands->{"md5sum"};
                file(\%commands);
                #file(\%commands) if $commands->{"md5sum"};
                 if (($commands->{"c"} && (!$commands->{"d"} || !$commands->{"l"}))) {
                     print "\n";
                 }
              $arg_save = $argument;
             } # end "T" 
 
             elsif (which_character(\%commands)) {
                 my %store_commands = %commands;
                 $argument = $_;           
                 if ($commands->{"scripts"} || $commands->{"preinst"} ||
                     $commands->{"postinst"} || $commands->{"prerm"} ||
                     $commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"}) {
                    scripts(\%commands);
                 }
                 menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
                 copyright(\%commands) if $commands->{"copyright"}; 
                 changelog(\%commands) if $commands->{"changelog"}; 
                 if  (the_character(\%commands) ne "ok") {
                   print "$argument\n";
                 }
                 if (defined s_character(\%commands)) {}   
                 shlibs(\%commands) if $commands->{"shlibs"};
                 print conf(\%commands) if !$commands->{"md5sum"};
                 file(\%commands);
                 #file(\%commands) if $commands->{"md5sum"};
                 if (($commands->{"c"} && (!$commands->{"d"} || !$commands->{"l"}))) {
                     print "\n";
                 }
                 %commands = %store_commands;
                 undef %store_commands;
              $arg_save = $argument;
             }

             # no Ts.
             else {
                if ($commands->{"scripts"} || $commands->{"preinst"} ||
                    $commands->{"postinst"} || $commands->{"config"} || $commands->{"templates"} || $commands->{"prerm"} ||
                    $commands->{"postrm"}) {
                    scripts(\%commands);
                }
                menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
                copyright(\%commands) if $commands->{"copyright"}; 
                changelog(\%commands) if $commands->{"changelog"}; 
                print "$argument\n";
                shlibs(\%commands) if $commands->{"shlibs"};
                print conf(\%commands) if !$commands->{"md5sum"};
                file(\%commands);
                print "\n";
             }
           $arg_save = $argument;
           } # end if (conf(\%commands)   

           # this spot here can determine whether or not -c overrides l&d
           # in packages which don't have conf files.  it's nicer to view
           # everything.  watch this..these are packages which don't have
           # conf files 
           if ($commands->{"d"} || $commands->{"l"}) {
            if ($arg_save) {
            if ($argument ne $arg_save) { 
            #if (!$arg_save) {
            if (conf(\%commands) ne 0) {
               shlibs(\%commands) if $commands->{"shlibs"};
               file(\%commands);
               print "\n";
             } 

             # no conf files
             elsif (conf(\%commands) eq 0) { 
              if ($commands->{"T"}) {
                $argument = $_;           
              if ($commands->{"scripts"} || $commands->{"preinst"} ||
                  $commands->{"postinst"} || $commands->{"prerm"} ||
                  $commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"}) {
                 scripts(\%commands);
              }
              menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
              copyright(\%commands) if $commands->{"copyright"}; 
              changelog(\%commands) if $commands->{"changelog"}; 
                print "$argument\n"; 
                character(\%commands);   
                shlibs(\%commands) if $commands->{"shlibs"};
                file(\%commands) if $commands->{"md5sum"};
                 print "\n";
              } # end "T" 

              elsif (which_character(\%commands)) {
                 my %store_commands = %commands;
                 $argument = $_;           
                 if ($commands->{"scripts"} || $commands->{"preinst"} ||
                     $commands->{"postinst"} || $commands->{"prerm"} ||
                     $commands->{"postrm" || $commands->{"config"} || $commands->{"templates"}}) {
                    scripts(\%commands);
                 }
                 menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
                 copyright(\%commands) if $commands->{"copyright"}; 
                 changelog(\%commands) if $commands->{"changelog"}; 
                 if  (the_character(\%commands) ne "ok") {
                   print "$argument\n";
                 }
                 if (defined s_character(\%commands)) {}   
                 shlibs(\%commands) if $commands->{"shlibs"};
                 %commands = %store_commands;
                 undef %store_commands;
                 file(\%commands);
                 print "\n";
              }

              # no Ts. 
              else {
                 if ($commands->{"scripts"} || $commands->{"preinst"} ||
                    $commands->{"postinst"} || $commands->{"prerm"} ||
                    $commands->{"postrm"} || $commands->{"config"} || $commands->{"templates"} ) {
                     scripts(\%commands);
                 }
                 menu(\%commands) if $commands->{"menu"} || $commands->{"m"};
                 copyright(\%commands) if $commands->{"copyright"}; 
                 changelog(\%commands) if $commands->{"changelog"}; 
                 singular(\%commands);
                 if ($commands->{"scripts"}) {
                     print "\n";
                 }
                 shlibs(\%commands) if $commands->{"shlibs"}; 
                 file(\%commands);
                 print "\n";
              }
             } 
            }
            }
           } # end if ($commands->{"d"} || 
          } # end foreach

} # end sub c_indexer


# handles -qf by itself or with -l(-d)&-c or -d by itself, and -qa by itself
# or with -c with -d and/or -l ...essentially not -i. <file> is the
# argument And ofcourse -T or singular capabilities. 
sub indexer {

  my ($commands) = @_;
  my %commands = %$commands;
  my @alot;


  if (!$commands->{"n"}) {
   ib(\%commands);
  }
  else {
   my $return = nib(\%commands);
   if (!defined $return && $commands->{"a"}) {
       untie %ib;
       nsb(\%commands);
       $ib{"/."} = $nsb{"/."};
   }
  }

  if ($argument) {
   dir(\%commands);
   fir(\%commands);
    if ($ib{"$argument"}){
       my $package = $ib{"$argument"};
       $package =~ s/\s/\n/g;
        @alot = split(/\s/, $package);
        if (@alot) {
         @PACKAGES = @alot;
        }
        if ($commands->{"z"} || 
	    $commands->{"ftp"}||
	    $commands->{"remove"} || 
	    $commands->{"r"} ||
	    $commands->{"purge"} || 
	    $commands->{"reinstall"} || 
	    $commands->{"build-dep"} ||
	    $commands->{"source"}
	    ) {

	    require SWIM::Safex;
	  SWIM::Safex->import(qw(safex));
	    safex(\%commands);          
        } 


        @alot = @PACKAGES;
        if ($commands->{"total"} || $commands->{"t"}) {
         # The whole reason for the complicated if/elsif/else routines 
         # below is to allow simultaneous printing of -c & -d|-l.  Other
         # options can just be included within.
          
          ###########
          # -D & -t #
          ###########
         if ($commands->{"d"} && !$commands->{"c"}) {
          if ($commands->{"T"}) {
            T_indexer(\@alot,\%commands);
          }
          elsif (which_character(\%commands)) {
           which_character_indexer(\@alot,\%commands);
          }
          # no -Ts.
           noT_indexer(\@alot,\%commands);
         }

         #######################
         # -t BUT NOT -C,-D,-L #
         #######################
         elsif (!$commands->{"c"} && (!$commands->{"d"} || !$commands->{"l"})) {     
          if ($commands->{"T"}) {
            T_indexer(\@alot,\%commands);
          }
          elsif (which_character(\%commands)) {
            which_character_indexer(\@alot,\%commands);
          }
          # humm smail is missing mysteriously, like it never became part
          # of /.., basically, fastswim isn't placing it in long.debian.
          # no -Ts.
          else {
            nonoT_indexer(\@alot,\%commands);
          }
         }

         #####################        
         # -t -C &| -D || -L #
         #####################
         # conf stuf.  Will only show stuff related to -a or -f with conf.
         elsif (
		($commands->{"c"} && 
		 (!$commands->{"d"} || 
		  !$commands->{"l"})) ||

                ($commands->{"c"} && 
		 ($commands->{"d"} || 
		  $commands->{"l"}))) {

	     c_indexer(\@alot,\%commands);        

         } # end elsif         
        } 

        #########################
        #  > NUMBER FOR -t #
        ##########################
        elsif ($#ARGV > $my_number) {
          my $total = $#ARGV + 1;
          print "use --total or -t to see all $total packages\n";              
          exit;
        }
        elsif ($#alot > $my_number) {
          my $total = $#alot + 1;
          print "use --total or -t to see all $total packages\n";       
        }

       # without -t
        else {

         ######
         # -D #
         ######
         if ($commands->{"d"} && !$commands->{"c"}) {

          if ($commands->{"T"}) {
            T_indexer(\@alot,\%commands);
          }
          elsif (which_character(\%commands)) {
           which_character_indexer(\@alot,\%commands);
          }
          # the noties
          noT_indexer(\@alot,\%commands);
         }

         ################
         # NOT -C,-D,-L  #
         ################
         elsif (!$commands->{"c"} && 
		
		(!$commands->{"d"} || !$commands->{"l"})

		) {     

	     if ($commands->{"T"}) {
             
		 T_indexer(\@alot,\%commands);

          }
          elsif (which_character(\%commands)) {
             which_character_indexer(\@alot,\%commands);
          }
          else {
             nonoT_indexer(\@alot,\%commands); 
          }
         }


         ##################        
         # -C &| -D || -L #
         ##################
         # conf stuf.  Will only show stuff related to -a or -f with conf.
         elsif (
		($commands->{"c"} && 
		 (!$commands->{"d"} || !$commands->{"l"})) ||
                
		($commands->{"c"} && 
		 
		 ($commands->{"d"} || $commands->{"l"}))) {

               c_indexer(\@alot,\%commands);

	   }         
	 
     } # without -t
   }
   else { 
        $argument =~ m,.*\/(.*$),;
         if ($1) {
          my $file = $1; 
          if (!$commands->{"n"} && -e "/usr/sbin/update-alternatives") {
           my $it = "update-alternatives --display $1|";
           open (IT,"$it") or exit;
           if (<IT> =~ /No alternatives/) {
            print "file $file is not owned by any package\n";
           }
           else {
            my @LINES = <IT>;
            print "For $argument ->\n";
            $LINES[0] =~ m,(/.*$),; $argument = $1;
            print "@LINES\n"; indexer(\%commands);
           }
          } 
          else {
           print "file $file is not owned by any package\n"; 
          }
         }
      }
  }
  untie %ib;

  if (@alot) {
   @PACKAGES = @alot;
  }
  if (!($commands->{"z"} || 
	$commands->{"ftp"} ||
	$commands->{"remove"} || 
	$commands->{"r"} ||
	$commands->{"purge"} || 
	$commands->{"reinstall"} || 
	$commands->{"build-dep"} ||
	$commands->{"source"}
	)) {

      if ($commands->{"x"} || 
	  $commands->{"ftp"} || 
	  $commands->{"source"} ||
	  $commands->{"source_only"} || 
	  $commands->{"remove"} || 
	  $commands->{"r"} || 
	  $commands->{"purge"} || 
	  $commands->{"reinstall"} || 
	  $commands->{"build-dep"} ||
	  $commands->{"source"}
	  ) {

	  require SWIM::Safex;
	SWIM::Safex->import(qw(safex));
	  safex(\%commands);          
    } 
  }
 
} # end sub indexer


1;