#!/usr/local/bin/perl
$POST_MAX = 5000;
alarm(30);
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use DBI;

##
## Internetprogrammering 3, uppgift 7, gesällprovet
## Henrik Johansson, DS80, vt2002
## 16/4 - 2002

if(param) {
  $userId = param('id');
  $user = param('id');
  #kontrollerar att det finns användare med angivet användarnamn och lösenord
  $dbh = connect_db();
  $userId = $dbh->quote($userId);
  $sql = "SELECT * FROM bookmarks WHERE userId = $userId";
  $sth = $dbh->prepare($sql);
  $sth->execute();
  $nodes;
  while(@dbrow = $sth->fetchrow_array) {
    $nodes{$dbrow[3]} = {
      BOOKMARK => $dbrow[0],
      NAME => $dbrow[1],
      URL => $dbrow[2],
      ID => $dbrow[3],
      NEXTID => $dbrow[4],
      PARENTID => $dbrow[5],
      USERID => $dbrow[6],
    };
  }
  $dbh->disconnect;
    
  $usedlibs;
  $depth = 2;
  print header('text/html');
    
  $dynamic = '<div class="libraryselected" id="root">';
    
    if($nodes{root}{URL} =~ m/expanded/) {
      $dynamic .= '<img id="eroot" src="./expanded.gif" alt="expanded rootlibrary" />';
      $dynamic .= $nodes{root}{NAME};
      $dynamic .= '</div>';
      $dynamic .= '<div class="libraryContent">';
    } else {
      $dynamic .= '<img id="eroot" src="./unexpanded.gif" alt="unexpanded rootlibrary" />';
      $dynamic .= $nodes{root}{NAME};
      $dynamic .= '</div>';
      $dynamic .= '<div class="libraryContenthidden">';
    }
  $usedlibs{root} = 2;
  $nextId = $nodes{root}{NEXTID};
  while($nextId) {
    
    $mydepth = $usedlibs{ $nodes{$nextId}{PARENTID} };
    while($depth > $mydepth) {
      $dynamic .= '</div>';
      $depth--;
    }
    
    if($nodes{$nextId}{BOOKMARK} == 0) {
      $dynamic .= '<div class="library">';
      $dynamic .= '<div class="libraryname" id="' . $nextId . '">';
      
      if($nodes{$nextId}{URL} =~ m/expanded/) {
        $dynamic .= '<img id="e' . $nextId . '" src="./expanded.gif" alt="expanded library" />';
        $dynamic .= $nodes{$nextId}{NAME};
        $dynamic .= '</div>';
        $dynamic .= '<div class="libraryContent">';
      } else {
        $dynamic .= '<img id="e' . $nextId . '" src="./unexpanded.gif" alt="unexpanded library" />';
        $dynamic .= $nodes{$nextId}{NAME};
        $dynamic .= '</div>';
        $dynamic .= '<div class="libraryContenthidden">';
      }
        
      $depth +=2;
      $usedlibs{$nextId} = $depth;
    } else {
      $dynamic .= '<div class="bookmark" id="' . $nextId . '">';
      $dynamic .= $nodes{$nextId}{NAME};
      $dynamic .= '<span class="location">';
      $dynamic .= '<a href="' .  $nodes{$nextId}{URL} . '">' . $nodes{$nextId}{URL} . '</a>';
      $dynamic .= '</span>';
      $dynamic .= '</div>';
    }
    $nextId = $nodes{$nextId}{NEXTID};
  }
  
  while($depth > 1) {
    $depth--;
    $dynamic .= '</div>';
  }
  
  print_page($dynamic, $user);
}

#Läser in och delar upp sidans template
sub print_page{
  my $bookmarks = $_[0];
  my $user = $_[1];
  my $file = "./templates/u7.template";
  open TEMPLATE, "< $file" or die "Kunde inte öppna templatefilen: $file. $!";
  while($row = <TEMPLATE>) {
    $row =~ s/<!---bookmarks--->/$bookmarks/;
    $row =~ s/<!---user--->/$user/;
    print $row;
  }
  close TEMPLATE;
}

#loggar in på databasen
sub connect_db {
  my $db = "db_01_henrik_j";
  my $user = "db_01_henrik_j";    
  my $pw = "274758";
  return DBI->connect("DBI:mysql:$db",$user, $pw) or die print "COULD NOT CONNECT: " . DBI->errstr;
}