#!/usr/bin/perl
#
# $Id$
#
# dump_database.pl - script to dump data from the database to flat files so the ofher perl
#		     scripts can process it without needing to access the database.
use DBI;

# Run as gforge
my($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) = getpwnam("gforge");
$> = $uid;

require("/usr/lib/gforge/lib/include.pl");  # Include all the predefined functions

my $verbose = 0;
my $user_array = ();
my $group_array = ();
my $gid_add = 10000 ;

&db_connect;

# Dump the Groups Table information
$query = "select group_id,group_id+".$gid_add.",unix_group_name,status,is_public from groups";
$c = $dbh->prepare($query);
$c->execute();

while(my ($group_id, $unix_gid, $group_name, $status, $is_public) = $c->fetchrow()) {

	my $new_query = "select users.user_name AS user_name FROM users,user_group WHERE users.user_id=user_group.user_id AND group_id=$group_id";
	my $d = $dbh->prepare($new_query);
	$d->execute();

	my $user_list = "";
	
	while($user_name = $d->fetchrow()) {
	   $user_list .= "$user_name,";
	}

	$grouplist = "$group_name:$status:$unix_gid:$is_public:$user_list\n";
	$grouplist =~ s/,$//;

	push @group_array, $grouplist;
}

# Run as root
$> = 0;

# Now write out the files
write_array_file($file_dir."/dumps/group_dump", @group_array);
system("chmod o-r,g-r $file_dir/dumps/group_dump");

my $group_file = $file_dir . "/dumps/group_dump";
my ($gname, $gstatus, $gid, $is_public, $userlist);

# Open up all the files that we need.
@groupdump_array = open_array_file($group_file);

#
# Loop through @groupdump_array and deal w/ users.
#
if($verbose) {print ("\n\n	Processing Groups\n\n")};
while ($ln = pop(@groupdump_array)) {
	chop($ln);
	($gname, $gstatus, $gid, $is_public, $userlist) = split(":", $ln);
	
	$userlist =~ tr/A-Z/a-z/;

	$group_exists = (-d $grpdir_prefix .'/'. $gname);

	if ($gstatus eq 'A' && $group_exists) {
		update_group($gid, $gname, $is_public, $userlist);
	
	} elsif ($gstatus eq 'A' && !$group_exists) {
		add_group($gid, $gname, $is_public, $userlist);
	
	} elsif ($gstatus eq 'D' && $group_exists) {
		delete_group($gname);

	} 
}

###############################################
# Begin functions
###############################################

#############################
# Group Add Function
#############################
sub add_group {  
	my ($gid, $gname, $is_public, $userlist) = @_;
	my ($log_dir, $cgi_dir, $ht_dir);

	my ($default_perms) ;
        my ($file_default_perms) ;
        my ($default_page) ;
	
	$group_dir = $grpdir_prefix."/".$gname;
	$log_dir = $group_dir."/log";
	$cgi_dir = $group_dir."/cgi-bin";
	$ht_dir = $group_dir."/htdocs";

        if ($is_public) {
            $default_perms = 2775 ;
            $file_default_perms = 664;
	    $default_page = "/usr/lib/gforge/lib/default_page.php" ;
        } else {
            $default_perms = 2770 ;
            $file_default_perms = 660;
	    $default_page = "/usr/lib/gforge/lib/private_default_page.php" ;
        }
	
	if ($verbose) {print("Making a Group for : $gname\n")};
		
	mkdir $group_dir, $default_perms ;
	mkdir $log_dir, $default_perms ;
	mkdir $cgi_dir, $default_perms ;
	mkdir $ht_dir, $default_perms ;
	system("cp $default_page $ht_dir/index.php");
	# perl is sometime fucked to create with right permission
	system("chmod $default_perms $group_dir");
	system("chmod $default_perms $log_dir");
	system("chmod $default_perms $cgi_dir");
	system("chmod $default_perms $ht_dir");
	system("chmod $file_default_perms $ht_dir/index.php");
	chown $dummy_uid, $gid, ($group_dir, $log_dir, $cgi_dir, $ht_dir);
	chown $dummy_uid, $gid, ("$ht_dir/index.php");
}

#############################
# Group Update Function
#############################
sub update_group {
	my ($gid, $gname, $is_public, $userlist) = @_;
	my ($log_dir, $cgi_dir, $ht_dir);
	my ($realuid, $realgid);
	my ($default_perms);
	
	$group_dir = $grpdir_prefix.'/'.$gname;
	$log_dir = $group_dir."/log";
	$cgi_dir = $group_dir."/cgi-bin";
	$ht_dir = $group_dir."/htdocs";

	if ($is_public) {
	    $default_perms = 2775 ;
	} else {
	    $default_perms = 2771 ;
	}

	if ($verbose) {print("Updating Group: $gname\n")};
		
	system("chmod $default_perms $group_dir");
	system("chmod $default_perms $log_dir");
	system("chmod $default_perms $cgi_dir");
	system("chmod $default_perms $ht_dir");
	chown $dummy_uid, $gid, ($group_dir, $log_dir, $cgi_dir, $ht_dir);
	
	my $realuid=get_file_owner_uid($group_dir);
	if ($dummy_uid eq $realuid){
        	system("chown $dummy_uid $group_dir");
	} else {
		if($verbose){print("Changing owner of $group_dir $realuid -> $dummy_uid\n")};
        	system("chown -R $dummy_uid $group_dir");
	}
	my $realgid=get_file_owner_gid($group_dir);
	if ($gid eq $realgid){
        	system("chgrp $gid $group_dir");
	} else {
		if($verbose){print("Changing group of $group_dir $realgid -> $gid\n")};
        	system("chgrp -R $gid $group_dir");
	}
}

#############################
# Group Delete Function
#############################
sub delete_group {
	my ($gname, $x, $gid, $userlist, $counter);
	my $this_group = shift(@_);
	$counter = 0;
	
	if (substr($hostname,0,3) ne "cvs") {
		if ($verbose) {print("Deleting Group: $this_group\n")};
		system("/bin/mv /var/lib/gforge/chroot/home/groups/$this_group /var/lib/gforge/chroot/home/groups/deleted_group_$this_group");
		system("/bin/tar -czf /var/lib/gforge/tmp/$this_group.tar.gz /var/lib/gforge/chroot/home/groups/deleted_group_$this_group && /bin/rm -rf /var/lib/gforge/chroot/home/groups/deleted_group_$this_group");
	}
}

#############################
# Get File Owner UID
#############################
sub get_file_owner_uid {
	my $filename = shift(@_);
	my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);
	return $uid;
}

#############################
# Get File Owner GID
#############################
sub get_file_owner_gid {
	my $filename = shift(@_);
	my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);
	return $gid;
}