#use strict; # zeik ding
package vind;
require Exporter;

@ISA = qw(Exporter);
@EXPORT = qw() ;
use File::Find;
sub new {                    
    my $class = shift ;
    my($self)  = {};
    bless $self, $class;
    $self;
}

sub IGNORE {			# don't notice these files
    ## $_[0] is basename, $_[1] is full path
    $_[0] =~ /^\.|~$|\.(gif|jpe?g|JPG|au|xml)$/;
}
sub PRUNE {			# don't search these dirs
    ## $_[0] is basename, $_[1] is full path
    $_[0] =~ /\.xvpics|gfx|\.stamps|jibat|ftp|XML|sfx|$F->{prune}/;
}

sub dofind {
    my $F = shift;
    my (@TOP)=$F->{top};
    my (%when);
    find (sub {
	return unless -f;	# only files
	return unless m!$F->{ext}!;
	return if  ($File::Find::name =~ m!xvpics!gi);
	return if  ($File::Find::name =~ m!~$|\.swp$!gi);
	return if  ($File::Find::name =~ m!$F->{prune}!gi);
	$when{$File::Find::name} = (stat _)[9];
	$size{$File::Find::name} = (stat _)[7];
    }, @TOP);
    my @fnames = sort { $when{$b} <=> $when{$a}; } keys %when;
    my ($c)=0;my (@ids);my($page);
    my %S=( 'Gerits','http://utopia.knoware.nl/~gerits/',
	   'Swaczyna' ,'http://huizen.dds.nl/~swaczyna/',
	   'Pip','http://huizen.dds.nl/~pip/',
	   'Casema','http://www.casema.net/~jip/',
	   'Jipp','http://www.xs4all.nl/~jipp/',
	   'Jadee','http://huizen.dds.nl/~jadee/',
	   'Boerjan','http://huizen.dds.nl/~boerjan/',
	   'Isty','http://huizen.dds.nl/~isty/',
	   'Jipp','http://www.xs4all.nl/~jipp/',
	   );
    for $fname (@fnames){
	my ($id)=$fname ;
	($ids[$c]) = $id;
	
	$F->{$id}{'when'} = scalar localtime $when{$fname};
	$F->{$id}{'whend'} = $when{$fname};
	$F->{$id}{'size'} = $size{$fname};
	$F->{$id}{'lfile'} = $fname;
	$popo="";$F->{$id}{'ru'}="";$F->{$id}{'site'}="";$F->{$id}{'aru'}="";
	if ($fname =~ /Sites/){
	    ($F->{$id}{'ru'})= $fname =~ m!.*Sites/[A-Z]\w+/(.*)!;
	    ($F->{$id}{'sru'})= $fname =~ m!.*Sites/[A-Z]\w+/(.*)!;
	    ($F->{$id}{'rsu'})= $fname =~ m!.*Sites/[A-Z]\w+/(.*)\.html!;
	    ($F->{$id}{'site'}) = $fname =~ m!.*Sites/([A-Z]\w+)/.*!;
	}
	#hoop uniini
	#print $F->{$id}{'site'},"\n";
	if ($fname =~ /Sites/){
	    $F->{$id}{'aru'} = $S{$F->{$id}{'site'}} if $S{$F->{$id}{'site'}};
	    $F->{$id}{'aru'} .= $F->{$id}{'sru'} if  $S{$F->{$id}{'site'}};
	}
	#if bsite keep local else mkhttpprut
	my ($LocalSiteI)="DezeSiteiserechtNiet";
	$LocalSiteI=$F->{bsite} if $F->{bsite};
	unless ($fname =~ m!.*Sites/$LocalSiteI/(.*)!i){
	    $F->{$id}{'ru'} = $S{$F->{$id}{'site'}};
	    ($popo) = $fname =~ m!.*Sites/[A-Z]\w+/(.*)! if ($fname=~/Sites/); 
	    ($F->{$id}{'ru'}) .= $popo;
	}
	
	
	$c++;
    }
    $F->{fnames}=\@fnames;
    $F;
}

1;