diff --git a/trunk/functions b/trunk/functions
deleted file mode 100644
index 0819406..0000000
--- a/trunk/functions
+++ /dev/null
@@ -1,53 +0,0 @@
-require "/var/www/perl/include";
-
-#get tags from database and fill $page with xml
-sub fill_tagcloud {
-	#connect to db
-	$dbh = DBI->connect("DBI:mysql:$database:$dbhost", $dbuser, $dbpass);
-	
-	#prepare query
-	my $sth = $dbh->prepare(qq{select text, count from tagcloud });
-	
-	#execute it
-	$sth->execute();
-	
-	#get every returned value
-	while (my ($text, $count) = $sth->fetchrow_array())
-	{
-		#push the new value to the $page->tagcloud array
-		push @{ $page->{tagcloud}->{tag} }, { text => [$text], count => [$count] };
-	}
-	
-	#finish query
-	$sth->finish();
-	
-	#close db
-	$dbh->disconnect();
-}
-
-#return a username from passed session id
-sub get_username_from_sid {
-	#get parameters
-	my ($sid) = @_;
-	
-	#connect to db
-	$dbh = DBI->connect("DBI:mysql:$database:$dbhost", $dbuser, $dbpass);
-	
-	#prepare query
-	my $sth = $dbh->prepare(qq{select username from users where sid = '$sid'});
-	
-	#execute it
-	$sth->execute();
-	
-	#save the resulting username
-	my ($username) = $sth->fetchrow_array();
-	
-	#finish query
-	$sth->finish();
-	
-	#close db
-	$dbh->disconnect();
-	
-	#return username
-	return $username;
-}
diff --git a/trunk/include b/trunk/include
deleted file mode 100644
index 72a54d0..0000000
--- a/trunk/include
+++ /dev/null
@@ -1,12 +0,0 @@
-use CGI qw(:standard);
-use CGI::Session;
-use DBI;
-use XML::Simple qw(:strict);
-
-#set global variables
-$database = 'gnutube';
-$dbhost = 'localhost';
-$dbuser = 'root';
-$dbpass = '';
-$session_name = 'sid';
-1;
diff --git a/trunk/index b/trunk/index
deleted file mode 100644
index 7e3a606..0000000
--- a/trunk/index
+++ /dev/null
@@ -1,20 +0,0 @@
-require "/var/www/perl/include";
-require "/var/www/perl/functions";
-
-#create or resume session
-CGI::Session->name($session_name);
-my $session = new CGI::Session;
-
-#read xml
-$page = XMLin('/var/www/perl/index.xml', ForceArray => 1, KeyAttr => {} );
-
-#if a username is associated with session id, username is nonempty
-$page->{username} = get_username_from_sid($session->id);
-
-fill_tagcloud;
-
-#print xml http header along with session cookie
-print $session->header(-type=>'text/xml');
-
-#print xml
-print XMLout($page, KeyAttr => {}, XMLDecl => '<?xml version="1.0" encoding="ISO-8859-1" ?><?xml-stylesheet type="text/xsl" href="./xsl/xhtml.xsl" ?>', RootName => 'page');
diff --git a/trunk/login b/trunk/login
deleted file mode 100644
index bec36c8..0000000
--- a/trunk/login
+++ /dev/null
@@ -1,71 +0,0 @@
-require "/var/www/perl/include.pl";
-
-#initialize session data
-CGI::Session->name($session_name);
-$query = new CGI;
-$session = new CGI::Session;
-
-#check if action is set
-if($query->param('action')) {
-	#connect to db
-	$dbh = DBI->connect("DBI:mysql:$database:$dbhost", $dbuser, $dbpass);
-	
-	#if login is requested
-	if($query->param('action') eq "login") {
-		#save POST data in local variables
-		my $user = $query->param('user');
-		my $pass = $query->param('pass');
-		
-		#prepare query
-		my $sth = $dbh->prepare(qq{select username from users
-				where password = password('$pass')
-				and username = '$user'
-				limit 1 });
-				
-		#execute query
-		$sth->execute();
-		
-		#if something was returned username and password match
-		if($sth->fetchrow_array()) {
-			#store session id in local variable
-			my $sid = $session->id;
-			
-			#store session id in database
-			$sth = $dbh->prepare(qq{update users set sid = '$sid' where username = '$user'}); 
-			$sth->execute();
-			$sth->finish();
-			print $session->header();
-			print "logged in";
-		} else {
-			#if not, print error
-			print $session->header();
-			print "could not log you in";
-		}
-		
-	} elsif($query->param('action') eq "logout") {
-		#if logout is requested
-		#remove sid from database
-		$sth = $dbh->prepare(qq{update users set sid = '' where username = '$user'}); 
-		$sth->execute();
-		$sth->finish();
-		$session->delete();
-		print $session->header();
-		print "logged out";
-	} else {
-		#something ugly was passed
-		print $session->header();
-		print "wtf?";
-	}
-
-	#disconnect db
-	$dbh->disconnect();
-} else {
-	#print login form
-	print $session->header();
-	print '<form action="" method="POST"><p>
-<input name="action" type="hidden" value="login">
-<input name="user" type="text" size="30" maxlength="30">
-<input name="pass" type="password" size="30" maxlength="30">
-<input type="submit" name="login" value=" login ">
-</p></form>';
-}
diff --git a/trunk/register b/trunk/register
deleted file mode 100644
index 39ed023..0000000
--- a/trunk/register
+++ /dev/null
@@ -1,40 +0,0 @@
-require "/var/www/perl/include.pl";
-
-#initialize session data
-CGI::Session->name($session_name);
-$query = new CGI;
-$session = new CGI::Session;
-
-#if username and password are passed put them into the database
-if($query->param('user') and $query->param('pass')) {
-	#connect to db
-	$dbh = DBI->connect("DBI:mysql:$database:$host", $dbuser, $dbpass);
-	
-	#save POST data in local variables
-	my $user = $query->param("user");
-	my $pass = $query->param("pass");
-	
-	#prepare query
-	$sth = $dbh->prepare(qq{insert into users (username, password) values ('$user', password('$pass'))});
-	
-	#execute query
-	$sth->execute();
-	
-	#finish query
-	$sth->finish();
-	
-	#disconnect db
-	$dbh->disconnect();
-	
-	#print a little confirmation
-	print $session->header();
-	print "done";
-} else {
-	#if not, print register form
-	print $session->header();
-	print '<form action="" method="POST"><p>
-<input name="user" type="text" size="30" maxlength="30">
-<input name="pass" type="password" size="30" maxlength="30">
-<input type="submit" name="register" value=" register ">
-</p></form>';
-}
diff --git a/trunk/upload b/trunk/upload
deleted file mode 100644
index 41d53f0..0000000
--- a/trunk/upload
+++ /dev/null
@@ -1,22 +0,0 @@
-require "/var/www/perl/include.pl";
-require "/var/www/perl/functions.pl";
-
-#create or resume session
-CGI::Session->name($session_name);
-my $session = new CGI::Session;
-
-my $username = get_username_from_sid($session->id);
-
-if($username) {
-	print $session->header();
-	print '<form action="uploader.pl" method="post" enctype="multipart/form-data">
-Upload: <input type="file" name="file">
-<br><br>
-Title: <input type="text" name="title">
-<br><br>
-<input type="submit" name="submit" value=" upload ">
-</form>';
-} else {
-	print $session->header();
-	print "nope...";
-}