#!/usr/bin/perl -w
#procedura za prenašanje depeš iz baze HMLJK na virgo
#use strict;
use Pg;

use lib "/home/grega/perllib/lib/site_perl/5.005/";
use Net::FTP;



my ($pot, $ftp, $pot_ksebi);
my ($i, $ime,$kon,$dolzina);

print "\n Perl procedura za prenos depes iz kape na virgo v tabelo depese_dekodirane v bazi ameba.\n";
print "Datoteka z depesami (npr:3.4.2001 ob 8.00 -> 01040308):"; $ime = <STDIN>; chomp($ime);

#sestavim ime datoteke (iz STDIN)
$datoteka = $ime.".bil";

	print "Prenasam datoteko $datoteka .\n";


#procedura za prenos k sebi

#definiram pot, kjer bom vzel datoteko
$pot='sinob$:[arhiv]';

#definiram pot, kamor jo bom prenesel
$pot_ksebi="/home/mihad/ceglar/DEPESE_c";

#povežem se na HMLJK
$ftp = Net::FTP->new("hmljk.rzs-hm.si", Debug => 0);


if (defined($ftp) ) {

#logiranje na HMLJK
$ftp->login("vicar","marjetka20") or  die("logiranje na HMLJK ni uspelo!!! \n");

#spremenim pot (grem v ustrezen direktorij)
$ftp->cwd($pot) or die("problem pri spremembi poti na HMLJK \n");

#sledi prenos datoteke
$ftp->get("$datoteka",$pot_ksebi."/$datoteka") or die("Problemi pri prenosu $ime !!!!!!!!");

}

$ftp->quit;


exit(0);