Code on Welcome to /dev/null

Script pour récupérer par mail la dernière image d'un blog photo tumblr

Wed, 17 Jul 2013 12:33:30 +0000

#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use XML::LibXML;
use HTML::TreeBuilder;
use XML::LibXML::XPathContext;

use MIME::Lite;
use Net::SMTP;

my $url="http://SITENAME.tumblr.com/api/read?type=photo&num=1&start=0";

my $ua = LWP::UserAgent->new;
my $resp = $ua->get($url);

my $parser = XML::LibXML->new();
my $doc = $parser->parse_string($resp->content);
my $root = $doc->documentElement();
my $xcont = XML::LibXML::XPathContext->new($root);
my $imgnodes = $xcont->findnodes('//photo-url[@max-width="1280"]');

foreach my $itemnode ($imgnodes->get_nodelist) {
 my $imagenode = $itemnode->firstChild;
 my $imglink = $imagenode->getValue;
 my $data = $ua->get($imglink);
 my $filename = "image.jpg";
 open (FH, ">$filename");
 binmode (FH);
 print FH $data->content;
 close (FH);

 my $from = "";
 my $to = "";
 my $mail_host = "";
 my $subject = "Une nouvelle fracture de l'oeil";
 my $msg = MIME::Lite->new (
 From => $from,
 To => $to,
 Subject => $subject,
 Type =>'multipart/mixed'
 ) or die "Error creating multipart container: $!n";
 $msg->attach (
 Type => 'image/jpg',
 Path => $filename,
 Filename => $filename,
 Disposition => 'attachment'
 ) or die "Error adding $filename: $!n";
 MIME::Lite->send('smtp', $mail_host, Timeout=>60);
 $msg->send;
}

Script du jour, télécharger les pièces jointes d'une boite mail

Mon, 01 Feb 2010 21:05:13 +0000

Voila un petit script que j’ai codé pour dépanner quelqu’un qui s’est dit après deux ans que finalement il aurait dû enregistrer ses photos reçues par mail. Comme je le trouve assez intéressant pour le publier, le voici :

#!/usr/bin/env perl

use strict;

use Net::IMAP::Simple;
use MIME::Parser;

my $server = "serveur";
my $user = "user";
my $pass = "pass";

my $imap = new Net::IMAP::Simple( $server );
$imap->login($user, $pass);

my $nbmsg = $imap->select( 'INBOX' );

foreach my $msg ( 1..$nbmsg ) {
 my $lines = $imap->get( $msg );
 my $fh = $imap->getfh( $msg );
 my $parser = new MIME::Parser;
 $parser->output_under("/tmp");
 my $entity = $parser->parse($fh);
 close $fh;
}
$imap->quit();

Il reste plus qu’un petit find /tmp -name *.jpg -exec mv {} ; bien placé pour récupérer les fichier JPEG par exemple.

Première application en PyQt4

Tue, 07 Jul 2009 00:52:57 +0000

Voici une première application minimaliste qui ne fait qu’affichier une fenêtre :

# -*- coding: utf-8 -*-

#!/usr/bin/python

## Import des modules Python
import sys
from PyQt4 import QtGui

## Toute application Qt graphique doit instancier une QApplication
app = QtGui.QApplication(sys.argv)

## le widget QWidget est le widget de base pour tous les autres widget de l'interface graphique
## un widget sans parent constitue une fenêtre
widget = QtGui.QWidget()
widget.resize(400, 300)
widget.setWindowTitle(u'Première application PyQt4')
## le widget est affiché
widget.show()

## Enfin on rentre dans la boucle d'évènement principale
## sys.exit permet d'informer le système de la manière dont s'est terminée l'application
## le exec_ a un underscore simplement car exec est un mot clé réservé en Python
sys.exit(app.exec_())

NFS Manager for Guidance

Fri, 09 May 2008 14:12:44 +0000

I just made a new release of KNFS after about 3 years without coding anything. I made some tiny cleanup in the code but the most important change is that it’s now fully integrated into kcontrol thanks to pykdeextension and the great work of Simon Edwards who’s guidance maintainer.

You can download the program here and the patch to allow nfsmanager to fit with guidance here

Les redirections Web

Tue, 23 Jan 2007 21:26:15 +0000

En HTML :

<meta http-equiv="refresh" content="0; url=http://www.nouveau.fr/dossier/page.html" />

En Javascript :

document.location.href = "http://www.nouveau.fr"

Avec un .htaccess : De cette façon, Apache renvoie un code 301 Moved Permanently au navigateur . Pour rediriger un site entier :

Redirect permanent / http:/www.nouveau.fr

Pour rediriger un dossier :

Redirect permanent /dossier http://www.adresse.fr/dossiernouveau

Pour rediriger un fichier :

Redirect permanent /pageancienne.html http://www.nouveau.fr/pagenouvelle.html

Pour indiquer qu’un fichier a changé:

Redirect seeother /document.doc http://www.nouveau.fr/document.pdf
Pour une redirection temporaire (ne casse pas le référencement pour un déplacement temporaire) :
Redirect temp / http://www.nouveau.fr

En PHP :

PHP+ODBC pour accéder à un serveur MS SQL

Tue, 17 Oct 2006 21:17:21 +0000

J’ai dû récemment mettre en place de quoi attaquer un server Microsoft MS SQL Server 2000 depuis une plateforme Linux/Apache/PHP. Sous Debian Etch il existe le module php5-sybase censé géré Sybase et MSSql. Le problème c’est que php est compilé sans le support de sqlserver. Du coup il restait soit ODBC soit recompiler PHP m’obligeant à recompiler PHP à chaque mise à jour d sécurité… J’ai donc choisi ODBC. Dans un premier temps on installe le module PHP :

Segmenter un fichier de Virtualhosts Apache

Sun, 08 Oct 2006 12:16:04 +0000

Ayant eu un serveur Apache avec un fichier de configuration des Vhost Apache de plus de 15000 lignes, c’était devenu rapidement ingérable. J’ai donc réalisé ce script en Python pour le segmenter en différents fichiers. Pour chaque vhost avec Servername = domaine.com, on créé un fichier domaine.conf. De la sorte, si on a un vhost domaine.fr, il sera placé dans le même fichier que domaine.com. Regroupant ainsi les vhost par domaine sans le TLD et donc partiellement par client.