Pastable version of Create Backup and send to FTP server

<pre class='prettyprint' language='perl'>#!/usr/bin/perl  
# Load the Net::FTP package 
use Net::FTP;

$host = 'http://refactormycode.com/';
$path = '/httpdocs/rep/';

#Get Time for filename
$ora = time();
@ltime = localtime($ora);
$data = $ltime[3] . ($ltime[4] + 1) . &quot;0&quot; . ($ltime[5] - 100) . &quot;_&quot; . $ltime[2] . $ltime[1];

$filename = &quot;backup_&quot; . $data  . &quot;.tar&quot;;

print &quot;Begin to compress...\n&quot;;
$command = &quot;tar -cvf &quot; . $filename . &quot; *&quot;; 
system($command);      
printf &quot;\n\nFINISHED!\n&quot;;

$ftp = Net::FTP-&gt;new($host, Timeout =&gt; 60, Passive =&gt; 1)
	or die &quot;Cannot contact $host : $!&quot;;
$ftp-&gt;login('******', '******')
	or die &quot;Can't login ( $host) : &quot; . $ftp-&gt;message;
print &quot;Login eseguito\n&quot;;

$ftp-&gt;cwd($path)
	or die &quot;Can't change directory ($oath):&quot; . $ftp-&gt;message;
print &quot;Switching to dir $path\n&quot;;

print &quot;Begin backup upload\n&quot;;
$ftp-&gt;put($filename)
	or die &quot;Cannot put file : $!&quot;;
print &quot;File transfer complete\n&quot;;

$ftp-&gt;quit ;

print &quot;Backup eseguito con successo\n&quot;;
system(&quot;rm $filename&quot;);</pre>
<a href="http://www.refactormycode.com/codes/540-create-backup-and-send-to-ftp-server" style="color:#fff" title="As seen on RefactorMyCode.com"><img alt="Small_logo" src="http://www.refactormycode.com/images/small_logo.gif" style="border:0" /></a>

Refactor :my => 'code'

Recent

Popular

Pastable version of Create Backup and send to FTP server