Ir0c il 14:07, 10 lug 2007

2007-07-10T14:07:55Z

Nuova pagina

[[Category:Script]]
=Gutenprint ink-level Monitor ~ La risposta ai vostri livelli di inchiostro=
==Introduzione==
<div style="text-align:justify;"><pre>Script di analisi livello inchiostro nelle cartucce</pre>
</div>
==Requisiti==
<div style="text-align:justify;"><pre>cupsd</pre><pre> gimpprint (gutenprint drivers)</pre><pre> una stampante</pre>
</div>
==Modo d'uso==
<div style="text-align:justify;">
<br/><pre>
./inklevel
</pre>
</div>
==Note==
<div style="text-align:justify;">
<pre>
- Esecuzione da root</pre>
<pre>
- Sviluppato per stampanti con cartucce SEPARATE. (Nero, Cyan, Magenta, Yellow)
</pre>
<pre>
- Percorso di connessione usb della stampante al pc nella variabile $DEVICE [inklevel:13] (a voi la modifica se necessaria) </pre>
</div>
==Hardware Testato (sezione a mio e VOSTRO completamento)==
<div style="text-align:justify;">
<pre>

- Epson Stylus D68 Photo Edition

</pre>
</div>
==Script==
<div style="text-align:justify;">
<br/><pre>
#!/usr/bin/perl -w

#
#
# inklevel.pl v 0.1
#
# (C) ir0c_ July 2007
#
#

# Porta USB di connessione alla Stampante

$DEVICE = "/dev/usb/lp0";

# Variabili versione

$VERSION = "0.1";
$RELEASE_DATE = "July 2007";

$MOTD = "\n\n\t\t~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" .
"\t\t~ ~\n" .
"\t\t~ ~ inklevel v. $VERSION ~ ~\n" .
"\t\t~ ~\n" .
"\t\t~ ~ (C) ir0c_ ~ $RELEASE_DATE ~\n" .
"\t\t~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n\n";

# Sequenze d'escape ANSI per i colori

$_CYAN = "\033[1;36m";
$_MAGENTA = "\033[1;35m";
$_YELLOW = "\033[1;33m";
$_BLACK = "\033[0;39m";
$_DEFAULT = "\033[0m";

# MOTD

print "$MOTD";

# Recupero del pid di cupsd
$CUPSD = `pidof cupsd | awk '{print \$1}'`;

# Eliminazione NewLine
chop($CUPSD);

# Se cupsd è attivo, E la stampante è accesa ...
if (-e $DEVICE and $CUPSD gt 0) {

# Acquisizione del livello d'inchiostro NERO (in percentuale)
$black_level = `escputil --ink-level --raw-device $DEVICE | grep "Photo Black" | awk '{print \$3}'`;
# Acquisizione del livello d'inchiostro CYAN (in percentuale)
$cyan_level = `escputil --ink-level --raw-device $DEVICE | grep "Cyan" | awk '{print \$2}'`;
# Acquisizione del livello d'inchiostro MAGENTA (in percentuale)
$magenta_level = `escputil --ink-level --raw-device $DEVICE | grep "Magenta" | awk '{print \$2}'`;
# Acquisizione del livello d'inchiostro YELLOW (in percentuale)
$yellow_level = `escputil --ink-level --raw-device $DEVICE | grep "Yellow" | awk '{print \$2}'`;

# Eliminazione carattere di NewLine dalle stringhe ..
chop($black_level);
chop($cyan_level);
chop($magenta_level);
chop($yellow_level);

# Visualizzazione Effettiva

print "\tBlack\t[". "$_BLACK" . "~" x ($black_level - 1). "$_DEFAULT" . ">" . ' ' x (100 - $black_level - 3) . "] ( $black_level % )\n";

print "\t$_CYAN" ."Cyan\t". "$_DEFAULT"."[" . "$_CYAN" . "~" x ($cyan_level - 1) . ">" . "$_DEFAULT" . ' ' x (100 - $cyan_level - 3) . "] ( $cyan_level % )\n";

print "\t$_MAGENTA" ."Magenta\t". "$_DEFAULT"."[" . "$_MAGENTA" . "~" x ($magenta_level - 1) . ">" . "$_DEFAULT" . ' ' x (100 - $magenta_level - 3) . "] ( $magenta_level % )\n";

print "\t$_YELLOW" ."Yellow\t". "$_DEFAULT"."[" . "$_YELLOW" . "~" x ($yellow_level - 1) . ">" . "$_DEFAULT" . ' ' x (100 - $yellow_level - 3) . "] ( $yellow_level % )\n";

} # if (-e $DEVICE and $CUPSD gt 0) ...

else{
print "\n\t\tCups daemon not running.. or Printer is power off...\n\n";

}

</pre><br/> ir0c_
</div>

Gutenprint ink-level Monitor - Cronologia

Ir0c il 14:07, 10 lug 2007