Forum debian-fr.org

#!/usr/bin/perl
# -*- coding: utf-8 -*-
# Envoie de données par ftp
# Version 0.1

use strict;
use warnings;
use Net::FTP;

my $localdir = $ENV{HOME}.'/public_html/blog';
my $distdir = '/blog';
my $host = 'ftpperso.free.fr';
my $login = 'coucoucestmoi';
my $mdp = 'mdpsuperfort';

my $ftp = Net::FTP->new($host, Debug => 0)
    or die "Cannot connect to $host: $@";

$ftp->login($login, $mdp)
    or die "Cannot login ", $ftp->message;

$ftp->cwd($distdir)
    or die "Cannot change working directory ", $ftp->message;

sub parcours {
    my $path = shift(@_);
    opendir(DIR, $path) or die "can't open $path: $!\n";
    my @files = readdir(DIR);
    closedir(DIR);
    foreach my $file (@files) {
        next if $file =~ /^\.\.?$/;
        if (-d $path.'/'.$file) {
            $ftp->mkdir($file);
            $ftp->cwd($file)
                or die "cwd failed ", $ftp->message;
            &parcours($path.'/'.$file);
        }
        if (-f $path.'/'.$file) {
            if (grep(/^$file$/, $ftp->ls())){
                $ftp->delete($file);
            }
            $ftp->put($path.'/'.$file)
                or die "put failed ", $ftp->message;
            print $path.'/'.$file." envoyé\n";
        }
    }
    $ftp->cdup()
        or die "cdup failed ", $ftp->message;
    print $path."\n";
}

parcours $localdir;

$ftp->quit;

#!/usr/bin/perl
# -*- coding: utf-8 -*-
# Envoie de données par ftp
# Version 0.2

use strict;
use warnings;
use Net::FTP;
use Term::ANSIColor;

sub printblue {
    print color 'bold blue';
    print @_;
    print color 'reset';
}

sub printgreen {
    print color 'green';
    print @_;
    print color 'reset';
}

my $localdir = $ENV{HOME}.'/public_html/blog';
my $distdir = '/blog';
my $host = 'ftpperso.free.fr';
my $login = 'michel.barret5';
my $mdp = 'motdepasse';

my $ftp = Net::FTP->new($host, Debug => 0)
    or die "Echec de la connexion à $host: $@";

$ftp->login($login, $mdp)
    or die "Echec du", $ftp->message;

$ftp->cwd($distdir)
    or die "Echec du changement de répertoire ", $ftp->message;

sub parcours {
    my $path = shift(@_);
    opendir(DIR, $path) or die "can't open $path: $!\n";
    printblue " On entre dans le répertoire $path\n";
    my @files = readdir(DIR);
    closedir(DIR);
    foreach my $file (@files) {
        next if $file =~ /^\.\.?$/;
        if (-d $path.'/'.$file) {
            # Le fichier est un répertoire
            $ftp->mkdir($file);
            # On ne vérifie pas l'erreur au
            # cas où le dossier existe déjà
            $ftp->cwd($file)
                or die "cwd failed ", $ftp->message;
            &parcours($path.'/'.$file);
        }
        elsif (-f $path.'/'.$file) {
            if (grep(/^$file$/, $ftp->ls())){
                # Le fichier existe déjà sur le serveur
                my $distdate = $ftp->mdtm($file);
                my $localdate = (stat ($path.'/'.$file))[9];
                # Si le fichier sur le serveur est plus récent
                # on ne fait rien
                next if($distdate > $localdate);
                # Sinon on le supprime pour le remplacer
                $ftp->delete($file);
            }
            if(grep(/.png$/, $file)){
                $ftp->binary();
            }
            $ftp->put($path.'/'.$file)
                or die "put failed ", $ftp->message;
            if(grep(/.png$/, $file)){
                $ftp->ascii();
            }
            printgreen $file." envoyé\n";
        }
    }
    $ftp->cdup()
        or die "cdup failed ", $ftp->message;
    print $path." traité\n";
}

parcours $localdir;

$ftp->quit;

#!/usr/bin/perl
# -*- coding: utf-8 -*-
# Envoie de données par ftp
# Version 0.3

use strict;
use warnings;
use Net::FTP;
use Term::ANSIColor;

sub printblue {
    print color 'bold blue';
    print @_;
    print color 'reset';
}

sub printgreen {
    print color 'green';
    print @_;
    print color 'reset';
}

my $localdir = $ENV{HOME}.'/public_html/blog';
my $distdir = '/blog';
my $host = 'ftpperso.free.fr';
my $login = 'michel.barret5';
my $mdp = 'motdepasse';

my $ftp = Net::FTP->new($host, Debug => 0)
    or die "Echec de la connexion à $host: $@";

$ftp->login($login, $mdp)
    or die "Echec du", $ftp->message;

$ftp->cwd($distdir)
    or die "Echec du changement de répertoire ", $ftp->message;
$ftp->binary();

sub parcours {
    my $path = shift(@_);
    opendir(DIR, $path) or die "can't open $path: $!\n";
    printblue " On entre dans le répertoire $path\n";
    my @files = readdir(DIR);
    closedir(DIR);
    foreach my $file (@files) {
        next if $file =~ /^\.\.?$/;
        if (-d $path.'/'.$file) {
            # Le fichier est un répertoire
            $ftp->mkdir($file);
            # On ne vérifie pas l'erreur au
            # cas où le dossier existe déjà
            $ftp->cwd($file)
                or die "cwd failed ", $ftp->message;
            &parcours($path.'/'.$file);
        }
        elsif (-f $path.'/'.$file) {
            if (grep(/^$file$/, $ftp->ls())){
                # Le fichier existe déjà sur le serveur
                my $distdate = $ftp->mdtm($file);
                my $localdate = (stat ($path.'/'.$file))[9];
                # Si le fichier sur le serveur est plus récent
                # on ne fait rien
                next if($distdate > $localdate);
                # Sinon on le supprime pour le remplacer
                $ftp->delete($file);
            }
            $ftp->put($path.'/'.$file)
                or die "put failed ", $ftp->message;
            printgreen $file." envoyé\n";
        }
    }
    $ftp->cdup()
        or die "cdup failed ", $ftp->message;
    print $path." traité\n";
}

parcours $localdir;

$ftp->quit;

#!/usr/bin/perl
# -*- coding: utf-8 -*-
# Envoie de données par ftp
# Version 0.4

#Copyright Michel Barret, 4 avril 2009

#michel.barret@gmail.com

#Ce logiciel est un programme informatique servant à envoyer une arborescence
#complète d'un répertoire sur FTP.

#Ce logiciel est régi par la licence CeCILL soumise au droit français et
#respectant les principes de diffusion des logiciels libres. Vous pouvez
#utiliser, modifier et/ou redistribuer ce programme sous les conditions
#de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA
#sur le site "http://www.cecill.info".

#En contrepartie de l'accessibilité au code source et des droits de copie,
#de modification et de redistribution accordés par cette licence, il n'est
#offert aux utilisateurs qu'une garantie limitée.  Pour les mêmes raisons,
#seule une responsabilité restreinte pèse sur l'auteur du programme,  le
#titulaire des droits patrimoniaux et les concédants successifs.

#A cet égard  l'attention de l'utilisateur est attirée sur les risques
#associés au chargement,  à l'utilisation,  à la modification et/ou au
#développement et à la reproduction du logiciel par l'utilisateur étant
#donné sa spécificité de logiciel libre, qui peut le rendre complexe à
#manipuler et qui le réserve donc à des développeurs et des professionnels
#avertis possédant  des  connaissances  informatiques approfondies.  Les
#utilisateurs sont donc invités à charger  et  tester  l'adéquation  du
#logiciel à leurs besoins dans des conditions permettant d'assurer la
#sécurité de leurs systèmes et ou de leurs données et, plus généralement,
#à l'utiliser et l'exploiter dans les mêmes conditions de sécurité.

#Le fait que vous puissiez accéder à cet en-tête signifie que vous avez
#pris connaissance de la licence CeCILL, et que vous en avez accepté les
#termes.

use strict;
use warnings;
use Net::FTP;
use Term::ANSIColor;

sub printblue {
    print color 'bold blue';
    print @_;
    print color 'reset';
}

sub printgreen {
    print color 'green';
    print @_;
    print color 'reset';
}

my $localdir = $ENV{HOME}.'/public_html/blog';
my $distdir = '/blog';
my $host = 'ftpperso.free.fr';
my $login = 'michel.barret5';
my $mdp = 'motdepasse';

my $ftp = Net::FTP->new($host, Debug => 0)
    or die "Echec de la connexion à $host: $@";

$ftp->login($login, $mdp)
    or die "Echec du", $ftp->message;

$ftp->cwd($distdir)
    or die "Echec du changement de répertoire ", $ftp->message;
$ftp->binary();

sub parcours {
    my $path = shift(@_);
    opendir(DIR, $path) or die "can't open $path: $!\n";
    printblue " On entre dans le répertoire $path\n";
    my @files = readdir(DIR);
    closedir(DIR);
    foreach my $file (@files) {
        next if $file =~ /^\.\.?$/;
        if (-d $path.'/'.$file) {
            # Le fichier est un répertoire
            $ftp->mkdir($file);
            # On ne vérifie pas l'erreur au
            # cas où le dossier existe déjà
            $ftp->cwd($file)
                or die "cwd failed ", $ftp->message;
            &parcours($path.'/'.$file);
        }
        elsif (-f $path.'/'.$file) {
            if (grep(/^$file$/, $ftp->ls())){
                # Le fichier existe déjà sur le serveur
                my $distdate = $ftp->mdtm($file);
                my $localdate = (stat ($path.'/'.$file))[9];
                # Si le fichier sur le serveur est plus récent
                # on ne fait rien
                next if($distdate > $localdate);
                # Sinon on le supprime pour le remplacer
                $ftp->delete($file);
            }
            $ftp->put($path.'/'.$file)
                or die "put failed ", $ftp->message;
            printgreen $file." envoyé\n";
        }
    }
    $ftp->cdup()
        or die "cdup failed ", $ftp->message;
    print $path." traité\n";
}

parcours $localdir;

$ftp->quit;

#!/usr/bin/perl
# -*- coding: utf-8 -*-
# Envoie de données par ftp
# Version 0.5

#Copyright Michel Barret, 4 avril 2009

#michel.barret@gmail.com

#Ce logiciel est un programme informatique servant à envoyer une arborescence
#complète d'un répertoire sur FTP.

#Ce logiciel est régi par la licence CeCILL soumise au droit français et
#respectant les principes de diffusion des logiciels libres. Vous pouvez
#utiliser, modifier et/ou redistribuer ce programme sous les conditions
#de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA
#sur le site "http://www.cecill.info".

#En contrepartie de l'accessibilité au code source et des droits de copie,
#de modification et de redistribution accordés par cette licence, il n'est
#offert aux utilisateurs qu'une garantie limitée.  Pour les mêmes raisons,
#seule une responsabilité restreinte pèse sur l'auteur du programme,  le
#titulaire des droits patrimoniaux et les concédants successifs.

#A cet égard  l'attention de l'utilisateur est attirée sur les risques
#associés au chargement,  à l'utilisation,  à la modification et/ou au
#développement et à la reproduction du logiciel par l'utilisateur étant
#donné sa spécificité de logiciel libre, qui peut le rendre complexe à
#manipuler et qui le réserve donc à des développeurs et des professionnels
#avertis possédant  des  connaissances  informatiques approfondies.  Les
#utilisateurs sont donc invités à charger  et  tester  l'adéquation  du
#logiciel à leurs besoins dans des conditions permettant d'assurer la
#sécurité de leurs systèmes et ou de leurs données et, plus généralement,
#à l'utiliser et l'exploiter dans les mêmes conditions de sécurité.

#Le fait que vous puissiez accéder à cet en-tête signifie que vous avez
#pris connaissance de la licence CeCILL, et que vous en avez accepté les
#termes.

use strict;
use warnings;
use Time::Local;
use Net::FTP;
use Term::ANSIColor;

sub printblue {
    print color 'bold blue';
    print @_;
    print color 'reset';
}

sub printgreen {
    print color 'green';
    print @_;
    print color 'reset';
}

my $localdir = $ENV{HOME}.'/public_html/blog';
my $distdir = '/blog';
my $host = 'ftpperso.free.fr';
my $login = 'michel.barret5';
my $mdp = '*****';

my $fileref = $ENV{HOME}.'/.ftpperl';
my $dateref;
if (-f $fileref){
    $dateref = (stat ($fileref))[9];
}

my $ftp = Net::FTP->new($host, Debug => 0)
    or die "Echec de la connexion à $host: $@";

$ftp->login($login, $mdp)
    or die "Echec du", $ftp->message;

$ftp->cwd($distdir)
    or die "Echec du changement de répertoire ", $ftp->message;
$ftp->binary();

sub parcours {
    my $path = shift(@_);
    opendir(DIR, $path) or die "can't open $path: $!\n";
    printblue " On entre dans le répertoire $path\n";
    my @files = readdir(DIR);
    closedir(DIR);
    foreach my $file (@files) {
        next if $file =~ /^\.\.?$/;
        if (-d $path.'/'.$file) {
            # Le fichier est un répertoire
            $ftp->mkdir($file);
            # On ne vérifie pas l'erreur au
            # cas où le dossier existe déjà
            $ftp->cwd($file)
                or die "cwd failed ", $ftp->message;
            &parcours($path.'/'.$file);
        }
        elsif (-f $path.'/'.$file) {
            if (grep(/^$file$/, $ftp->ls())){
                # Le fichier existe déjà sur le serveur
                my $localdate = (stat ($path.'/'.$file))[9];
                if(! -f $fileref){
                    $dateref = $ftp->mdtm($file);
                }
                next if($dateref > $localdate);
                # Sinon on le supprime pour le remplacer
                $ftp->delete($file);
            }
            $ftp->put($path.'/'.$file)
                or die "put failed ", $ftp->message;
            printgreen $file." envoyé\n";
        }
    }
    # On remonte d'un cran
    $ftp->cdup()
        or die "cdup failed ", $ftp->message;
    print $path." traité\n";
}

parcours $localdir;

$ftp->quit;

utime(time, time, $fileref) or ( open(F, ">$fileref") && close F );

~# apt-get install beep

#!/usr/bin/python
# -*- coding: utf-8 -*-
import os
from random import randrange
sens = 1
i, frequence, vitesse = 0

type=input("Quel type de son prefères-tu? (1 = ascendant/descendant)| 0 = sons aleatoires:")
tps=input("Combien de bips compte-tu supporter( impossible d'arrêter en cours d'execution )?")
if type == 1:
        vitesse= input("Vitesse (entre 1 et 100)")
        pas=input("'pas' de combien de Hertz?( entre 1 et 100 )")
        hautMax=input("hauteur max ?( entre 500 et 3000 )")
while 1:
        if i==tps:
                break
        else:
                i+=1
        if type==0:
                frequence = randrange(0,10000)
                vitesse = randrange(1, 100)
        else:
                if sens == 1:
                        frequence+= pas
                        if frequence >= hautMax:
                                sens = 0
                if sens == 0:
                        frequence -= pas
                        if frequence <= 1:
                                sens = 1
        print frequence, "<== frequence; [ ", i,"eme bip ] | [ ", vitesse ,"ms/bip ]"
        os.system("beep -f "+str(frequence)+" -l "+str(vitesse))

#Ce logiciel est régi par la licence CeCILL soumise au droit français et
#respectant les principes de diffusion des logiciels libres. Vous pouvez
#utiliser, modifier et/ou redistribuer ce programme sous les conditions
#de la licence CeCILL telle que diffusée par le CEA, le CNRS et l'INRIA
#sur le site "http://www.cecill.info".

#/bin/bash
#
IFS="
"

auteur=$( zenity --entry --title="Auteur" --text="Nom/pseudo du photographe" --entry-text="ras" )
if ! [[ -z $auteur ]]
then auteur=" - $auteur"
fi

cd "$1"
ls | while read i
do
if [ -f "$i" ]
then
    n="0"
    date=$( exiv2 "$i" | grep timestamp | cut -c 19- | sed 's%:%-%g' | sed 's%-%h%3' | sed 's%-%min%3' )
    if ! [[ -z "$date" ]]
    then name="$date$auteur.jpg"
        while [ -f "$name" ]
        do
            n=$(( $n + 1 ))
            name="$date$auteur ($n).jpg"
        done
    mv "$i" "$name"
    fi
exifautotran "$name"
fi
done

exit 0

#!/bin/bash
#
# But : faire clignoter une led différemment suivant le nombre de nouveaux mails sur son compte gmail
# Made by Ras'
#

cd /tmp
username=raskafary
#####
password=$( zenity --entry --title="Mot de passe Gmail" --text="Saisissez votre mot de passe :" --hide-text )
if [[ -z $password ]]
then exit
fi
if [[ $password == " " ]]
then password=$( zenity --entry --title="Mot de passe Gmail" --text="Saisissez votre mot de passe :" )
fi
#####



sleep 15

function get_rss
{
wget -q -O .gmail_rss https://$username:$password@mail.google.com/mail/feed/atom --no-check-certificate
fc=$( cat .gmail_rss | grep "fullcount" | grep -o [1-9] )
}

while true
do
get_rss

if ! [[ fc == "0" ]]
then
   until [[ $fc == "" ]]
   do
   blink -n -r $fc
   get_rss
   sleep 15
   done
blink
fi


sleep 5m
done

.gmail_rss