One Hat Cyber Team

Your IP: 216.73.216.133
Server IP: 185.119.109.197
Server: Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software: Apache
PHP Version: 8.1.33
Buat File | Buat Folder

View File Name : create_file.cgi

#!/usr/bin/perl

require './filemin-lib.pl';
&ReadParse();

get_paths();

if (!$in{'name'}) {
	&redirect("index.cgi?path=".&urlize($path));
	return;
	}

my $full = "$cwd/$in{'name'}";
if (-e $full) {
	print_errors(&html_escape($in{'name'})." ".$text{'error_exists'});
	}
else {
	my @st = stat($cwd);
	if (open(my $fh, ">$full")) {
		close($fh);
		&set_ownership_permissions($st[4], $st[5], undef, $full);
		&redirect("index.cgi?path=".&urlize($path));
		}
	else {
		print_errors($text{'error_create'}." ".
			     &html_escape($in{'name'})." : ".$!);
		}
	}