#!/usr/local/bin/perl

use CGI;
use CGI::Carp qw(fatalsToBrowser);

$BASEPATH=$ENV{DOCUMENT_ROOT};

#Maximum of Messages
$MAX=20;


$CGI2="/cgi-bin/view.pl";
$SCRIPTNAME="skript.pl";
$URL="http://www.domain.de";
$PATH="/skripte/generierteSeiten";
$IPATH="/skripte/skripte-OnLine";
$query = new CGI;
$D1="\x0d";
$C1="\x0a";
$categ=$query->param('cat');
if ( ($query->param('show') eq 1) && ($query->param('artikel') ne "") ){}
else{
    
    ###### Verzeichnis oeffnen
    opendir VERZ , "$BASEPATH$PATH";
        @alledateien = grep !/^\.\.?$/, readdir VERZ;
    closedir VERZ;
    ##########################
    
    $anzahldatei = @alledateien;
    $x=0;
    $z=0;
    $a=0;
    while($x<$anzahldatei){
        $datei=$alledateien[$x];
        
        ($name, $dateiend) = split (/\x2e/, $datei, 2);
        if (($dateiend eq "nitf") or ($dateiend eq "NITF")){
            &generateIndex
;
        }
        $x+=1;
    }    
    
    ###### Verzeichnis oeffnen
    opendir VERZ , "$BASEPATH$PATH";
        @alledateien = grep !/^\.\.?$/, readdir VERZ;
    closedir VERZ;
    ##########################
    
    $anzahldatei = @alledateien;

    if ($a < 0){
        $x=0;
        while($x<$anzahldatei){
            $categ="/thema/";
            $datei=$alledateien[$x];
            ($name, $dateiend) = split (/\x2e/, $datei, 2);
            if (($dateiend eq "nitf") or ($dateiend eq "NITF")){
                &generateIndex;
            }
            $x+=1;
        }
    }    

    &sendeIndex;
}

sub generateIndex {

    &main;
    &filter1;

}

sub getPicture {
    ...
    if (){
        while(){
            &parseBuFile;
        }
    }
}

sub filter1 {

}

sub getAnreisser {

}

sub parseBuFile {

}


sub sendeIndex {

    foreach $key ())
    {
        if ($timer < $MAX){
        }
    }

    if (){
    }

    foreach $key (){
        if (){
            if (){    
               
 print $konvertiertes_datum;
            }
            else{
               }
            
        }
    }
}


sub main {
    
        &getPicture;
        &getAnreisser;

}

___END___