#!/usr/bin/perl -w
use strict;
use Fcntl;
use constant TIOCSTI => 0x5412;

unless (@ARGV >= 1) {
 print "usage: $0 [vt] <input>\n";
 exit;
}

my $vt = shift @ARGV;
my $buf = join '', <>;
&writevt ($vt, $buf) || die "can't write to $vt: $!\n";
exit;


sub writevt {
 my ($vt, $buf) = @_;
 sysopen (VT, $vt, O_RDONLY) || return 0;
 for (my $i = 0; $i < length $buf; $i++) {
 ioctl (VT, TIOCSTI, substr ($buf, $i, 1)) || return 0;
 }
 close (VT) || return 0;
 return 1;
} 

[stas@home stas]$ echo id | ./catvt.pl /dev/pts/0
id
[stas@home stas]$ id
uid=?????(stas) gid=?????(stas) groups=?????(stas)

#!/usr/bin/perl
use CEP;

# inicializa
my $cep = new CEP;

# $city será referência para array com estado/cidade
my $city = $cep->city ('12.437-660'); # processa somente os dígitos numéricos (0-9)

if ($city) {
    # $str será uma string no formato Cidade/ESTADO
    my $str = CEP::city_string ($city);
    # filtra os acentos e imprime em caixa alta
    printf "esse CEP pertence a [%s]\n", uc CEP::normalize ($str);
} else {
    print "CEP não encontrado\n";
}

exit;

##############################################################################
[ACFTools v0.62a] Set of tools to play with ACF files outside of Plane-Maker
Perl script and modules coded by Stanislaw Pusep 
Site of this and another X-Plane projects of mine: http://xplane.sysd.org/

Allows you to:
 * export X-Plane (www.x-plane.com) aircraft data files to human-editable
   plaintext format and 3D mesh editable in AC3D modeler (www.ac3d.org).
 * import plaintext/3D mesh back to ACF file.
##############################################################################

Usage: acftools.exe  [parameters]
 o Commands:
	-extract [DEF]	: extract TXT from ACF (opt: using DEF definition)
        -generate       : generate ACF from TXT
        -merge          : merge body from AC3D file to TXT
 o Parameters:
        -acffile FILE   : name of ACF file to process
        -txtfile FILE   : name of TXT file to process
        -ac3dfile FILE  : name of AC3D file to process
        -noorder        : DO NOT sort vertices while merging bodies
        -noac3d         : DO NOT generate AC3D
        -(min|max)body N: write all bodies in specified range to AC3D
        -force LIST     : force extraction of bodies LIST (comma-separated N)
        -normalize N    : normalize wings to N vert/surface (N>=2 or no wings!)
 o Notes:
        * You can use abbreviations of commands/parameters (-gen or even -g
          instead of -generate).
        * The only required parameter for "extract" command is -acffile.
          Both -txtfile and -ac3dfile are derivated from it.
        * "generate" command and -txtfile has the same relation.
        * By default "extract" uses the latest DEF file.
        * "generate" doesn't need DEF at all (it is implicit in TXT)
        * If file to be created already exists backup is made automatically.
 o Examples:
        acftools.exe --extract=ACF700 --acffile="F-22 Raptor.acf"
        (extract 'F-22 Raptor.txt' from 'F-22 Raptor.acf')

        acftools.exe -e -acf "F-22 Raptor.acf"
        (same as above)

        acftools.exe -me -ac3d ladar.ac -txt "F-22 Raptor.txt"
        (merge *single* 3D body from 'ladar.ac' to 'F-22 Raptor.txt')

        acftools.exe -g -txt "F-22 Raptor.txt"
        (reverse operation; generate 'F-22 Raptor.acf' from 'F-22 Raptor.txt')

Internet Explorer Mask'O'Matic v1.0 by Stas 
Grab yours at http://sysdlabs.hypermart.net/ 

Inspirated by some mad stuff by Lem0nHead
Based on Photoshop 'Hidden Image' Guide (http://www.atomicwienerdog.com/ot/)
made by Matt Kment & suggested to me by xfalmp


ERROR: please give us --visible


 * Usage: MaskOMatic.pl 
 * Options (note that you can use syntaxes like --vis= --hid -out -p):
 --visible filename of image normally seen (required)
 --hidden filename of image seen when selected in IE (required)
 --output filename to write out, format is selected automatically
 using suffix provided (required)
 --percentage float value between 0 & 100; how much of hidden appears
 (optional, defaults to 50%)
 --quality JPEG/MIFF/PNG compression level (optional, DON'T USE!)
 --contrast flag, internal contrast reduction (optional)
 --test filename to dump preview of selected image (optional)

 * Notes:
 # Visible & hidden images doesn't need to have same size, when size
 doesn't matches then hidden image is rescaled using Lanczos filter
 # A huge set of image formats is supported (JPG, GIF, PNG for example)
 but I strongly advice you to write output in loseless format *only*
 (BMP, PNG, TGA) and *then* fine-tune contrast/brightness & save
 compressed in your favourite image editor (like GIMP)

 * Example:
 MaskOMatic.pl --vis bush.jpg --hid death.jpg --out sublim.bmp

qw-server +set fraglogfile 1

perl gibcounter.pl /home/qserver/.quake/qw

0,30 * * * * perl $HOME/gibcounter.pl > $HOME/www/gibcounter.html