0byt3m1n1

Path: /data/16/inventory/ [ Home ]
File: getdom-paths.pl
#!/usr/bin/perl

@BIG_LIST = `/data/16/inventory/domaindirlist.pl`; 

foreach(@BIG_LIST) {
	$line = $_; 
	next if ($line =~ m/^www\./); 
	($dom, $path) = split /\,\s/, $line; 
	$path = (split /\/user/, $path)[0]; 
	
	if ($dom =~ m/netsolhost\.com$/) { 
		$vanity = $dom;
		$VANITY_HASH{$path} = $vanity; 
	}

	if ($dom !~ m/netsolhost\.com$/) { 
		$site = $dom; 
		$site = "$SITE_HASH{$path}\, $site" if (defined $SITE_HASH{$path});
		$SITE_HASH{$path} = $site;
	}
}

@KEYS = keys(%VANITY_HASH);
foreach(@KEYS) { 
	$key = $_; 
	push(@DATA0, $key) if ($key =~ m/\/data\/0\//);
	push(@DATA1, $key) if ($key =~ m/\/data\/1\//);
	push(@DATA2, $key) if ($key =~ m/\/data\/2\//);
	push(@DATA3, $key) if ($key =~ m/\/data\/3\//);
	push(@DATA4, $key) if ($key =~ m/\/data\/4\//);
	push(@DATA5, $key) if ($key =~ m/\/data\/5\//);
	push(@DATA6, $key) if ($key =~ m/\/data\/6\//);
	push(@DATA7, $key) if ($key =~ m/\/data\/7\//);
	push(@DATA8, $key) if ($key =~ m/\/data\/8\//);
	push(@DATA9, $key) if ($key =~ m/\/data\/9\//);
	push(@DATA10, $key) if ($key =~ m/\/data\/10\//);
	push(@DATA11, $key) if ($key =~ m/\/data\/11\//);
	push(@DATA12, $key) if ($key =~ m/\/data\/12\//);
	push(@DATA13, $key) if ($key =~ m/\/data\/13\//);
	push(@DATA14, $key) if ($key =~ m/\/data\/14\//);
	push(@DATA15, $key) if ($key =~ m/\/data\/15\//);
	push(@DATA16, $key) if ($key =~ m/\/data\/16\//);
	push(@DATA17, $key) if ($key =~ m/\/data\/17\//);
	push(@DATA18, $key) if ($key =~ m/\/data\/18\//);
	push(@DATA19, $key) if ($key =~ m/\/data\/19\//);
	push(@DATA20, $key) if ($key =~ m/\/data\/20\//);
	push(@NSOA, $key) if ($key =~ m/\/nsoa\//);
}

open NSOA, ">/data/16/inventory/INVLISTS/datansoa";
$index = 0; 
while ($index <= 20) {
	$data = "data$index";
	open ${data}, ">/data/16/inventory/INVLISTS/${data}";
	$index++;}
$index = 0; 

foreach(@DATA0, @DATA1, @DATA2, @DATA3, @DATA4, @DATA5, @DATA6, @DATA7, @DATA8, @DATA9, @DATA10, @DATA11, @DATA12, @DATA13, @DATA14, @DATA15, @DATA16, @DATA17, @DATA18, @DATA19, @DATA20, @NSOA) { 
	$path = $_; 
	$handle = (split /\//, $path)[2];
	$file = "data$handle" if ($path =~ /\/data\//);
	print ${file} "$VANITY_HASH{$path}\;$SITE_HASH{$path}\;$path\n" if ($path =~ /\/data\//);
	print NSOA "$VANITY_HASH{$path}\;$SITE_HASH{$path}\;$path\n" if ($path =~ /\/nsoa\//);
}

close NSOA;

while ($index <= 20) {
	$data = "data$index";
	close ${data};
	$index++;}
$index = 0;

while ($index <= 20) {
	$file = "data$index";
	$count = (split /\s/ ,(`wc -l /data/16/inventory/INVLISTS/$file`))[0];
	$inflate = 1.05 * $count;
	$lines = sprintf("%.0f", ($inflate/16));
	`split -l $lines /data/16/inventory/INVLISTS/$file /data/16/inventory/INVLISTS/$file-`;
	`rm /data/16/inventory/INVLISTS/$file`;
	$index++;
}
$file = "datansoa";
$nsoa_cnt = (split /\s/ ,(`wc -l /data/16/inventory/INVLISTS/$file`))[0];
$inflate = 1.05 * $count; 
$lines = sprintf("%.0f", ($inflate/16));
`split -l $lines /data/16/inventory/INVLISTS/$file /data/16/inventory/INVLISTS/$file-`;
`rm /data/16/inventory/INVLISTS/$file`;