No such file or directory 

##</code><code>##

sub make_alias( $ )
{
	my $self = shift;
	
	my $name = $_[0];
	my $id   = $_[1];

	my $alias_data      = "alias.db";

	my $alias_directory = "./";
		
	print "$name,$id \n";
	
	#create directory for redirect to go into
	
	my $path = $alias_directory . $name;
	
	my $mode = "0755";
	
	print "path = $path \n"; 
	
	mkdir $path, $mode;
	
	print "x = $! , $path \n";
	
	chmod( $mode, $path );
	
	
	#add redirect file 
	
	my $redirect = new Redirect();
	
	$redirect->redirect_filename(  $path . "\/index.html" );
	$redirect->redirect_link(      "http://www.nowhere.com/cgi/school_connection.cgi?id=$_[1]" );
	$redirect->displayed_link(     "" );
	$redirect->redirect_template( "redirect_template.html" );
	$redirect->redirect_delay( "0" );
	$redirect->create_redirect;
	$redirect->save_redirect or die $!;

	print "After redirect saved \n";
	
	#add to database
	


	my $db = new Database();

	$db->file($alias_data);
	$db->delimiter("|");

	$db->execute( "insert", "Name", $name, "ID", $id );
						
	return 1;
		
	

}