#!/usr/bin/perl

use strict;
use CGI;
use Frontier::Client;
use Template;
my $catch = $cgi->param("catch");


my $exec = 'ssh -T -N myname@myhost.myplace.me -i /home/user/.ssh/keys/login.key -p 2022 -L 1111:192.168.1.57:1111';
my $pid;
defined($pid = fork()) or die "We've go some forking trouble - $!\n";
if ($pid == 0) {
  exec($exec);
  die "No exec here and here's why: $!\n";
  exit();
}

my $server = Frontier::Client->new(url => $catch,
                                   );


my $name    = $cgi->param("title");
my $cat    = $cgi->param("category");
my $priority    =  "1";
my $Top    = $server->boolean("0");
my $method      = "appenurl";
my $u           = $cgi->param("u");
my $i           = $cgi->param("i");
my $r           = $cgi->param("r");
my $url         = "$u&$i&$r";

my $result = $server->call("appendurl",($name,$cat,$priority,$Top,$url) );