#!/usr/bin/perl

#use Net::SSH::Perl;
use IPC::Open2;

@args = @ARGV;
$ARGV = NULL;

#$host = "99.17.206.150";
#$user = "svnlogin";
#$password = "metalninja";


#$ssh = Net::SSH::Perl->new($host);
#$ssh->login($user, $password);

#print $ssh->cmd(ls);
print "\n";

if($#args < 1) {
    print "Please enter an operation and a string name, dummy\n";
}

if($args[0] == "get") {
    open2($cmd_out, $cmd_in, 'svn checkout svn+ssh://svnlogin@99.17.206.150/home/svnlogin/svn/ + $args[1]');
#    system("svn checkout svn+ssh://svnlogin@99.17.206.150/home/svnlogin/svn/" + $args[1]);
}

if(($args[0] == "put") && ($#args >= 2)) {
    #command line thing on
}