#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);

my $version = '1.0b';
my $portagedir = '/usr/portage';
my $scriptloc  = '/home/httpd/rsync';
my $disp = param('disp') || '';
my @dirs = fetchcats($portagedir);

   if (!$disp)             { main_menu(); }
elsif ($disp eq 'gocat')   { gocat();     }
elsif ($disp eq 'goapp')   { goapp();     }
elsif ($disp eq 'view_ebuild') { view_ebuild(); }
elsif ($disp eq 'results') { results();   }
elsif ($disp eq 'about')   { about();     }
elsif ($disp eq 'view_cl') { view_cl();   }
elsif ($disp eq 'view_md') { view_md();   }
 else { main_menu(); }

# --------------------------------------- #
# Main Menu                               #
# --------------------------------------- #
sub main_menu {
	print header,start_html('PortageView');
	print '<h1><a style="text-decoration:none;" href="/portageview.cgi">PortageView</a></h1>'."\n".
		  '<form name="search" method="POST" action="/portageview.cgi">'."\n".
		  '<b>Search: </b><input type="text" name="q" length="25">'.
		  '<input type="hidden" value="results" name="disp">'."\n".
		  '&nbsp;<small>Search Description: <input type="checkbox" value="on" name="sd"></small>'."\n".
		  '<input type="submit" name="b" value="GO"></form>'."\n".
		  '<table border=0 cellspacing=2 cellpadding=2>'."\n" .
		  '<tr><td bgcolor="#7a5ada" colspan=3><font color="#FFFFFF"><b>Category</b></font></td></tr>'."\n<tr>";
	my $i = 1;
	foreach my $dir (@dirs) {
		print '<td bgcolor="#ddddff">&nbsp;<b><a href="/portageview.cgi?disp=gocat&cat='.$dir.
			  '" title="'.$dir.'">'.$dir.'</a></b></td>'."\n";
		($i % 3) ?  undef : print "</tr>\n<tr>\n";
		$i++;
	}
	print '</table>';
	footerpg();
}

# --------------------------------------- #
# Grab all info on application            #
# --------------------------------------- #
sub goapp {
	my $app = param('app') || 'invalid';
	my $cat = param('cat') || 'invalid';
	error('Invalid Package!') if (!-d "$portagedir/$cat/$app");

	chdir("$portagedir/$cat/$app");
	my @ebuilds = grep /\.ebuild$/i, <*>;

	# Parse ebuild
	my %info = ( DESCRIPTION => '', HOMEPAGE => '', SRC_URI => '', LICENSE => '' );
	open(EBUILD,"$portagedir/$cat/$app/$ebuilds[$#ebuilds]") || 
			error('Cannot Open ebuild for parsing: '.$!." -> '$cat/$app/$ebuilds[$#ebuilds]'");
		while(<EBUILD>) {
			if (/^DESCRIPTION="(.*)"/) { $info{DESCRIPTION} = $1 || ''; }
			elsif (/^HOMEPAGE="(.*)"/) { $info{HOMEPAGE}    = $1 || ''; }
			elsif (/^SRC_URI="(.*)"/)  { $info{SRC_URI}     = $1 || ''; }
			elsif (/^LICENSE="(.*)"/)  { $info{LICENSE}     = $1 || ''; }
		}
	close(EBUILD);

	my $package = $ebuilds[$#ebuilds]; $package =~ s/\.ebuild$//;
	$info{SRC_URI} =~ s/\$\{M??Y??_??P\}/$package/;
	my $md = '';
	if (-f "$portagedir/$cat/$app/metadata.xml") { 
		$md = '<tr>'."\n".
          	  '  <td bgcolor="#7a5ada" align="right"><font color="#FFFFFF">&nbsp;<b>MetaData:&nbsp;</b></font></td>'."\n".
          	  '  <td bgcolor="#ddddff">&nbsp;<a title="View metadata" href="/portageview.cgi?disp=view_md&cat='.$cat.
          	  '&app='.$app.'">metadata.xml</a></td>'."\n".
          	  '</tr>'."\n";
	}

	print header,start_html('PortageView :: '.$cat.'/'.$app);
	print '<h1><a style="text-decoration:none;" href="/portageview.cgi">PortageView</a> :: '.
		  '<a style="text-decoration:none;" href="/portageview.cgi?disp=gocat&cat='.$cat.'">'.
		  $cat.'</a>/'.$app.'</h1>'."\n";
	print '<table border=0 cellspacing=2 cellpadding=2>'."\n" .
		  '<tr><td colspan=2 bgcolor="#7a5ada"><font color="#FFFFFF"><b>'.$cat.'/'.$app.'</b></font></td><tr>'."\n".
		  '<tr>'."\n".
          '  <td bgcolor="#7a5ada" align="right"><font color="#FFFFFF">&nbsp;<b>Description:&nbsp;</b></font></td>'."\n".
		  '  <td bgcolor="#ddddff">&nbsp;'.$info{DESCRIPTION}.'</td>'."\n".
		  '</tr>'."\n".
		  '<tr>'."\n".
		  '  <td bgcolor="#7a5ada" align="right"><font color="#FFFFFF">&nbsp;<b>Homepage:&nbsp;</b></font></td>'."\n".
		  '  <td bgcolor="#ddddff">&nbsp;<a title="'.$app.'" href="'.$info{HOMEPAGE}.'" target="_blank">'.
			 $info{HOMEPAGE}.'</a></td>'."\n".
		  '</tr>'."\n".
		  '<tr>'."\n".
		  '  <td bgcolor="#7a5ada" align="right"><font color="#FFFFFF">&nbsp;<b>Source URI:&nbsp;</b></font></td>'."\n".
		  '  <td bgcolor="#ddddff">&nbsp;<a href="'.$info{SRC_URI}.'" target="_blank">'.$info{SRC_URI}.'</a></td>'."\n".
		  '</tr>'."\n".
		  '<tr>'."\n".
          '  <td bgcolor="#7a5ada" align="right"><font color="#FFFFFF">&nbsp;<b>License:&nbsp;</b></font></td>'."\n".
          '  <td bgcolor="#ddddff">&nbsp;'.$info{LICENSE}.'</td>'."\n".
          '</tr>'."\n".
		  $md .
		  '<tr>'."\n".
          '  <td bgcolor="#7a5ada" align="right"><font color="#FFFFFF">&nbsp;<b>ChangeLog:&nbsp;</b></font></td>'."\n".
          '  <td bgcolor="#ddddff">&nbsp;<a title="View Changelog" href="/portageview.cgi?disp=view_cl&cat='.$cat.
		  '&app='.$app.'">ChangeLog</a></td>'."\n".
          '</tr>'."\n".
		  '<tr>'."\n".
          '  <td bgcolor="#7a5ada" valign="top" align="right"><font color="#FFFFFF">&nbsp;<b>Ebuilds:&nbsp;</b></font></td>'."\n".
          '  <td bgcolor="#ddddff">';
		foreach (@ebuilds) {
			print '&nbsp;<a href="/portageview.cgi?disp=view_ebuild&ebuild='.$_.'&cat='.$cat.'&app='.$app.
				  '" title="view '.$_.'">'.$_.'</a><br>'."\n";
		}

	print '</td>'."\n".
          '</tr>'."\n".
		  '</table>'."\n";
	footerpg();
}

# --------------------------------------- #
# View the Ebuild Securely                #
# --------------------------------------- #
sub view_ebuild {
	my $ebuild = param('ebuild') || 'invalid';
	my $app = param('app') || 'invalid';
    my $cat = param('cat') || 'invalid';
	error('Invalid ebuild!') if ($ebuild !~ /\.ebuild$/);
    error('Invalid ebuild!') if (!-f "$portagedir/$cat/$app/$ebuild");

	print header(-type=>'text/plain',-name=> "$ebuild");
	open(EBUILD,"$portagedir/$cat/$app/$ebuild") || error('Error opening ebuild: '.$!."-> '$cat/$app/$ebuild'.");
		while(<EBUILD>) {
			print;
		}
	close(EBUILD);
	exit();		
}

# --------------------------------------- #
# View the Changelog Securely             #
# --------------------------------------- #
sub view_cl {
	my $app = param('app') || 'invalid';
    my $cat = param('cat') || 'invalid';
    error('Invalid ChangeLog!') if (!-f "$portagedir/$cat/$app/ChangeLog");

    print header(-type=>'text/plain',-name=> "ChangeLog.txt");
    open(CHANGELOG,"$portagedir/$cat/$app/ChangeLog") || error('Error opening ebuild: '.$!."-> '$cat/$app/ChangeLog'.");
        while(<CHANGELOG>) {
            print;
        }
    close(CHANGELOG);
    exit();
}

# --------------------------------------- #
# View the metadata.xml file securly      #
# --------------------------------------- #
sub view_md {
	my $app = param('app') || 'invalid';
    my $cat = param('cat') || 'invalid';
    error('Invalid metadata.xml file!') if (!-f "$portagedir/$cat/$app/metadata.xml");

    print header(-type=>'text/plain',-name=> "metadata.xml");
    open(METADATA,"$portagedir/$cat/$app/metadata.xml") || error('Error opening file: '.$!."-> '$cat/$app/metadata.xml'.");
        while(<METADATA>) {
            print;
        }
    close(METADATA);
    exit();
}

# --------------------------------------- #
# Search Results                          #
# --------------------------------------- #
sub results {
	my $q = param('q') || error('You Must Specify some search terms!');
	my $sd= param('sd') || '';
	$q =~ tr/[]#|%><`~&*()@!;:}{//d;
	error('Invalid Search Terms!') if (!$q);

		# Write query to log for stats
		use Fcntl qw(:flock);
		open(SLOG,'>>slog.dat') || error('Error Opening Searchlog Datafile: '.$!);
			flock(SLOG, LOCK_EX);
				print SLOG $q.':';
				print SLOG $sd if ($sd);
				print SLOG "\n";
			flock(SLOG, LOCK_UN);
	    close(SLOG);

	chdir($portagedir);
	my @foo; my $fcount = 0;
#	if (!$sd) {
		foreach my $d (@dirs) {
			push(@foo,grep /$q/i, <$d/*>);
		}
#	}
#	else {
		# ----------------------------------------------------------------------------- #
		# Code below is for dynamic description searching. It is only recommended for
		# Use on high performance raid systems because it requires a lot of disk access
		#
#		foreach my $d (@dirs) {
#			my @subs = <$d/*>;
#			foreach my $sd (@subs) {
#				my @eb = <$sd/*.ebuild>;
#				foreach my $e (@eb) {
#					open(EBUILD,"$e") || error("Error opening ebuild : '$e' .. $!");
#					$fcount++;
#						while(<EBUILD>) {
#							/^DESCRIPTION="(.*)"/;
#								if ($1 =~ /$q/i) {
#									push(@foo,"$sd");
#									last;
#								}
#						}
#					close(EBUILD);
#				last;
#				}
#			}
#		}
		chdir($scriptloc);
		#open(DFILE,'descfile.dat') || error("Cannot open descriptions file");
		#	while(<DFILE>) {
		#		my ($file,$desc) = split(/:/);
		#		$file =~ s/^$portagedir\///;
		#		push(@foo,"$file") if ($desc =~ /$q/i);
		#	}
		#close(DFILE);
#	}
	print header,start_html('Search Results: '.$q);
	print '<h1><a style="text-decoration:none;" href="/portageview.cgi">PortageView</a></h1>'."\n".
		  '<h3>Search Results: '.$q.'</h3>'."\n" .
		  ''.scalar(@foo).' Results found.';
	print ' Searched '.$fcount.' ebuilds.' if $fcount > 0;
	print '<table border=0 cellspacing=2 cellpadding=2>'."\n" .
          '<tr><td bgcolor="#7a5ada"><font color="#FFFFFF"><b>Package</b></font></td></tr>'."\n<tr>";

		my ($cat,$app);
		foreach(@foo) {
			($cat,$app) = split(/\//);
			print '<tr><td bgcolor="#ddddff">&nbsp;<b>'.
				  '<a href="/portageview.cgi?disp=goapp&app='.$app.'&cat='.$cat.
				  '" title="'.$cat.'/'.$app.'">'.$cat.'/'.$app.'</a>'."&nbsp;</td></tr>\n";
		}
	print '</table>';
	footerpg();
}

# --------------------------------------- #
# List all subdirectories in category     #
# --------------------------------------- #
sub gocat {
	my $cat = param('cat') || 'none-entered';
	my $go = 0; my @files;
	foreach (@dirs) {
		if ($cat eq $_) { $go++; }
	}
	if ($go == 1) {
		@files = fetchcats($portagedir.'/'.$cat);
	}
	else {
		error('Invalid category "'.$cat.'".');
	}
	print header,start_html('PortageView :: '.$cat);
	print '<h1><a style="text-decoration:none;" href="/portageview.cgi">PortageView</a> :: '.$cat.'</h1>'."\n".
		  '<table border=0 cellspacing=2 cellpadding=2>'."\n" .
          '<tr><td bgcolor="#7a5ada" colspan=3><font color="#FFFFFF"><b>Package</b></font></td></tr>'."\n<tr>";
	my $i = 1;
	foreach my $file (@files) {
		print '<td bgcolor="#ddddff">&nbsp;<b><a href="/portageview.cgi?disp=goapp&app='.$file.
              '&cat='.$cat.'" title="'.$file.'">'.$file.'</a></b></td>'."\n";
        ($i % 3) ? undef : print "</tr>\n<tr>\n";
        $i++;
	}
	print '</table>';
    footerpg();
}

# --------------------------------------- #
# About                                   #
# --------------------------------------- #
sub about {
	print header,start_html('About PortageView');
	print '<h1><a style="text-decoration:none;" href="/portageview.cgi">PortageView</a> - About</h1>'."\n".
		  'I wrote this to be a super quick version of <code>emerge --search</code><br> combined with the'.
		  ' Gentoo Package List on Gentoo\'s website. Since this program<br> runs on my rsync server, '.
		  '<code>rsync19.us.gentoo.org</code>, it is totally<br> up to date every 30 minutes with portage.'.
		  ' Written in perl.'.
		  '<br>*Updates*<BR>'."\n".
		  '2003-09-03: Will now show metadata.xml file if it exists.<br>'."\n".
		  '2003-09-15: Implemented a cached description system. Greatly improved description searching.<br>'."\n".
		  '<P>Email Comments, etc. ==> raven [at] netpimpz.com<br>';
	footerpg();
}

# --------------------------------------- #
# Fetch all main categories               #
# --------------------------------------- #
sub fetchcats {
	my $dir = shift;
	my %invalid = ( eclass => 1, licenses => 1, metadata => 1, profiles => 1, scripts => 1, distfiles => 1, "sec-policy" => 1 );
	opendir(DIR, $dir) || die "can't opendir $dir: $!";
        my @dirs = grep { /[^.]/ && -d "$dir/$_" && !$invalid{$_}} readdir(DIR);
    closedir DIR;
	@dirs = sort { $a cmp $b }@dirs;
  return(@dirs);
}

# --------------------------------------- #
# Display Page footer                     #
# --------------------------------------- #
sub footerpg {
	print '<hr size=1>'.
	      '<small>[ <a style="text-decoration:none;" href="/portageview.cgi?disp=about" title="About PortageView">'.
		  '<b>About PortageView v'.$version.'</b></a> ]</small>'."\n".
		  "</body></html>\n";
}

# --------------------------------------- #
# Display Error Message                   #
# --------------------------------------- #
sub error {
	my $err = shift;
	print header,start_html('Error!');
	print '<h1><a style="text-decoration:none;" href="/portageview.cgi">PortageView</a> - Error!</h1><b>'.$err.'</b>';
	footerpg();
    exit();
}