== Astuce pour impression carte CNFD ==

* Templates

[[attachment:template-verso.ps]]

[[attachment:recto.ps]]
 
* cd /home/ndimby/cartes-abts/

* Par exemple pour confectionner pour le mois de mars 2012, n*10 cartes numéroter de 1  à 10*n, taper cette commande: '''./numeroter mars 2012 0 n-1'''.
  

{{{
#!/bin/bash

MOIS=$1
ANNEE=$2
DEBUT=$3
FIN=$4

rm tmp/*.ps

cp template-verso.svg tmp/verso.svg

perl -i.bak -pe "s/MMMMMMMMMM/$MOIS/;s/YYYY/$ANNEE/;" tmp/verso.svg

for a in $(seq  $DEBUT $FIN); do
   ./numeroter.pl $a <tmp/verso.svg >tmp/tmp.svg
   inkscape -z -f tmp/tmp.svg -P "tmp/$a.ps"
done
}}}

* script de modification des numéros
{{{

#!/usr/bin/perl -w
# numeroter.pl --
# Author          : J<E9>r<F4>me Santini  <Jerome.Santini@auf.org>
# Created On      : Fri Nov 26 08:47:33 2004
# Last Modified By: J<E9>r<F4>me Santini  <Jerome.Santini@auf.org>
# Last Modified On: Wed Dec 22 12:41:42 2004
# Update Count    : 12

use strict;

my $num = $ARGV[0];

my $cnt = $num * 10;

while ((<STDIN>))
  {
    if ((/XXXX/))
      {
        my $xxxx ;
        $cnt++;
        $xxxx = sprintf "%04d",$cnt;
        s/XXXX/$xxxx/;
      }
    print;
  }
# --------------------------------------------------------------------
# EOF

}}}

* Imprimer après avoir défini l'imprimante par défaut: 
{{{
lpr tmp/*.ps
}}}