sub CreateJSP($$$$)
{	
  my ($Url,$outputDirectory,$Path,$SEPARATOR) = @_;
  my $FileName = "";
  my $SourceFile = "";
  my @TmpAr = ();
  my $link = "";
  my $href = "";
  my $RPName = "";
  my $linkName = "";

# определение кталога, названий файлов и значений параметров
if ( $Url =~ /(<\s*A\s+HREF\s*=\s*[\'\"](\S*)[\'\"]\s*realPageName\s*=\s*[\'\"](.*?)[\'\"].*>(.*?)<\s*\/\s*A\b[^>]*>)/i )
{		
  $link  = $ 1 ;
  $href = $ 2 ;
  $RPName  = $ 3 ;
  $linkName = $ 4 ;		

  @TmpAr = split(/\.htm/,$RPName);
  $FileName = $TmpAr[ 0 ]."\.jsp";		
  if ( $href =~ /\s*(\S*)\?/ )
  {
    $SourceFile	= $ 1 ;      # !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! *
   print "$SourceFile\n";
  }