One Hat Cyber Team

Your IP : 216.73.216.115

Server IP : 194.44.31.54

Server : Linux zen.imath.kiev.ua 4.18.0-553.77.1.el8_10.x86_64 #1 SMP Fri Oct 3 14:30:23 UTC 2025 x86_64

Server Software : Apache/2.4.37 (Rocky Linux) OpenSSL/1.1.1k

PHP Version : 5.6.40

View File Name : t4

#! /usr/local/bin/perl -w

use strict;
use FileHandle;
use Cwd;
use vars qw($module $script $user);
require 'tests/common.pl';


$ENV{'PATH_INFO'} = $module.'/file1';

my $fh = new FileHandle 
	"perl $script edit=lock-and-download user=$user < /dev/null | ";

die if !defined($fh);
my @ans = <$fh>;
close $fh;

print "# checking that cvswebedit has locked file and is offering us to edit\n";
my $download_ready = grep /edit=download-file/, @ans;
status($download_ready, "CVSWEBEDIT said the file was ready to download");

my $download_fh = new FileHandle
	"perl $script edit=download-file user=$user < /dev/null | ";	
die if !defined($download_fh);

my @headers;
my $line;
while ($line = <$download_fh>) {
	last if $line =~ m/^$/; 	# blank line separates headers/footers
	push @headers, $line;
}

my @file = <$download_fh>;
close $download_fh;

my $file_contents = join("",@file);
print @file;


print @headers;