<?php
/***************************************************************************
 Copyright (C) 2004 - 2006 Scuttle project
 http://sourceforge.net/projects/scuttle/
 http://scuttle.org/

 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
 the Free Software Foundation; either version 2 of the License, or
 (at your option) any later version.

 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 ***************************************************************************/

require_once 'www-header.php';

/* Service creation: only useful services are created */
$tag2tagservice = SemanticScuttle_Service_Factory::get('Tag2Tag');

/* Managing current logged user */
$currentUser = $userservice->getCurrentObjectUser();


/* Managing all possible inputs */
// First input is $_FILES

$tplVars['msg'] = '';

if ($userservice->isLoggedOn() && sizeof($_FILES) > 0 && $_FILES['userfile']['size'] > 0) {
    $userinfo = $userservice->getCurrentObjectUser();


    // File handle
    $html = file_get_contents($_FILES['userfile']['tmp_name']);

    // Create link array
    preg_match_all('/(.*?)\n/', $html, $matches);

    //print_r($matches); die();

    $fatherTag = '';
    $countNewLinks = 0;
    foreach ($matches[1] as $match) {
        if ($match == '') {
            // do nothing because void line
        } elseif (substr($match, 0, 2) == '//') {
            // do nothing because commentary
        } elseif (substr($match, 0, 2) == '  ') {
            // add as child of previous tag
            if ($fatherTag != '') {
                $tag2tagservice->addLinkedTags($fatherTag, $match, '>', $currentUser->getId());
                $countNewLinks++;
            } else {
                $tplVars['error'] = T_('Bad indentation'). ' '.$match;
            }
        } else {
            $fatherTag = $match;
        }
    }
    $tplVars['msg'] = T_('New links between tags: ').$countNewLinks;

}

$templatename = 'importStructure.tpl';
$tplVars['subtitle'] = T_('Import Structure');
$tplVars['formaction'] = createURL('importStructure');
$templateservice->loadTemplate($templatename, $tplVars);

?>