#!/usr/bin/perl

# Extrahiert Pfad und Dateinamen des aktellen j2re1.4 aus Packages file
# Wird nur von von mydebmirror benutzt

use warnings;
use strict;

my $java="j2[a-z]*1\.4" ;
my $opera="opera-static" ;
my $pkg = $java;

while ( @ARGV && $ARGV[0] ) {
    $_=shift(@ARGV);
    if ( /opera/ ) {
       $pkg = $opera ;
    }
}

my $flag=0; 
my $version=0;
my $setfile=1;
my $file='';

do {
    if ( $flag==1 ) {
	if ( /^\s*Version:\s*(.*)/ )  {
	    if ( ! system("dpkg --compare-versions $version lt $1") ) {
	        $version = $1 ;
		$setfile = 1 ;
	    } else {
	        $setfile = 0;
	    }
	}
	if ( /^\s*Filename:\s*(.*)/ ) {
	    if ( $setfile == 1 ) { $file = $1; }
	    $flag = 0;
	}
    }
    if ( /^\s*Package:\s*$pkg/ ) { $flag=1 ; }
} while ( <> ) ;

print $file ;
