|
|
| Line 1: |
Line 1: |
| [[File:Epiphany Logo CMYK.jpg|frameless|center|Epiphany]] | | [[File:Epiphany Logo CMYK.jpg|frameless|center|Epiphany]] |
|
| |
|
| This is the Main page. Feel free to delete this content.
| | Welcome to Epiphany! |
|
| |
|
| The '''''Visual Editor''''' is working.
| | Here you will find everything you need to understand Epiphany. |
| {| class="wikitable"
| |
| |+
| |
| !COL1
| |
| !COL2
| |
| !COL3
| |
| !COL4
| |
| !COL5
| |
| |-
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |-
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |-
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |}
| |
| <syntaxhighlight lang="perl">#!/usr/bin/perl
| |
| use strict;
| |
| use File::Copy;
| |
| use Net::FTP;
| |
| use Socket;
| |
| | |
| | |
| sub ftp_folder {
| |
| my $dir = shift;
| |
| my $ftpdir = shift;
| |
| | |
| my $c = "ls -1 '$dir'";
| |
| my @ls = `$c`;
| |
| chomp @ls;
| |
| my $i;
| |
| | |
| if ($debug) {
| |
| foreach $i (@ls) {
| |
| print "$i\n";
| |
| }
| |
| }
| |
| | |
| my $err = 0;
| |
| $i = 0;
| |
| my $ftp;
| |
| $ftp = Net::FTP->new($ftpHost, Debug => 0)
| |
| or die "Cannot connect to $ftpHost: $@";
| |
| $ftp->login($ftpUser, $ftpPass)
| |
| or die "Cannot login ", $ftp->message;
| |
| $ftp->cwd($ftpdir)
| |
| or die "Cannot change working directory ", $ftp->message;
| |
| $ftp->binary();
| |
| | |
| foreach my $f (@ls) {
| |
| print "Copying $f to $ftpHost$ftpdir\n";
| |
| $ftp->put("$dir/$f") or $err = 1;
| |
| if (!$err) {
| |
| unlink "$dir/$f";
| |
| $i++;
| |
| }
| |
| }
| |
| $ftp->quit;
| |
| sleep 2;
| |
| return $i;
| |
| }
| |
| </syntaxhighlight>
| |