#!/usr/bin/perl
## Comprobacion del MODULO
BEGIN {
    eval "use XML::Simple";
    if ( $@ ) {
        warn  "Error al cargar el modulo: XML::Simple\n"
        . "Instalar Modulo:\n"
        . "\t\tcpan\n"
        . "\t\tcpan> install XML::Simple\n";
exit ();
 }
}

use XML::Simple;
use strict;

## Ayuda del sistema
if ( @ARGV != 1 ) {
    die "\nUse: $0 -opcion\n\n"
      . "   -name=pc                 Busqueda por nombre del host\n"
      . "   -notes=test              Busqueda por nota\n"
      . "   -ip=1.1.1.1              Busqueda por direccion ip\n"
      . "   -url=https://10.0.0.1    Busqueda por url\n\n"
      ;
}



## Variable globales para las busquedas
our $name;
our $notes;
our $ip;
our $url;
## Definicion de variables
my $info = XMLin("kk.xml", KeyAttr => 1, ForceArray => [ 'user' ]);
my $host = $name || '.+';
my $notes = $notes || '.+';
my $ip = $ip || '.+';


for my $pc ( @{$info->{technology}{pc}} ) {
next if $pc->{name} !~ /^$host$/;
next if $pc->{notes} !~ /^$notes$/;
next if $pc->{ip} !~ /^$ip$/;

        print "$pc->{name} => $pc->{url} ($pc->{ip})\n";

for my $user ( @{$pc->{user}} ) {

        print "\t$user->{name} : $user->{password}\n";



}

     }

#!/usr/bin/perl -s
use strict;
use warnings;

##
BEGIN {
    eval "use XML::Simple";
    if ( $@ ) {
        warn  "Error al cargar el módulo: XML::Simple\n"
            . "Instalar Módulo:\n"
            . "\t\tcpan XML::Simple\n\n";
        exit();
    }
}

our $name;
our $notes;
our $ip;
our $url;

## Ayuda del sistema
if ( !@ARGV ) {
    die "Uso: $0 [-name|-notes|-ip|-url] <fichero xml>\n"
      . "\t-name=pc                 Búsqueda por nombre del host\n"
      . "\t-notes=test              Búsqueda por nota\n"
      . "\t-ip=1.1.1.1              Búsqueda por dirección ip\n"
      . "\t-url=https://10.0.0.1    Búsqueda por url\n\n"
      ;
}

my $info = XMLin($ARGV[0], KeyAttr => 1, ForceArray => [ 'user' ]);

for my $pc ( @{$info->{technology}{pc}} ) {
    next if $name  and $pc->{name}  !~ /^$name$/;
    next if $notes and $pc->{notes} !~ /^$notes$/;
    next if $ip    and $pc->{ip}    !~ /^$ip$/;
    next if $url   and $pc->{url}   !~ /^$url$/;

    print "$pc->{name} => $pc->{url} ($pc->{ip})\n";
    for my $user ( @{$pc->{user}} ) {
        print "\t$user->{name} : $user->{date}\n";
    }
}

my $info = XMLin('kk.xml', KeyAttr => 1, ForceArray => [ 'user' ]);

our $h;
if ( $h ) {
    die "Uso: $0 [-h|-name|-notes|-ip|-url] <fichero xml>\n"
      . "\t-name=pc                 Búsqueda por nombre del host\n"
      . "\t-notes=test              Búsqueda por nota\n"
      . "\t-ip=1.1.1.1              Búsqueda por dirección ip\n"
      . "\t-url=https://10.0.0.1    Búsqueda por url\n\n"
      ;
}

if ( !$name and !$notes and !$ip and !$url ) {
    die "Uso: $0 [-name|-notes|-ip|-url] <fichero xml>\n"
      . "\t-name=pc                 Búsqueda por nombre del host\n"
      . "\t-notes=test              Búsqueda por nota\n"
      . "\t-ip=1.1.1.1              Búsqueda por dirección ip\n"
      . "\t-url=https://10.0.0.1    Búsqueda por url\n\n"
      ;
}

#!/usr/bin/perl -s
use strict;
use warnings;

##
BEGIN {
    eval "use XML::Simple";
    if ( $@ ) {
        warn  "Error al cargar el modulo: XML::Simple\n"
            . "Instalar Modulo:\n"
            . "\t\tcpan XML::Simple\n\n";
        exit();
    }
}

our $name;
our $notes;
our $ip;
our $url;

## Ayuda del sistema
if ( !$name and !$notes and !$ip and !$url ) {
    die "Uso: $0 [-name|-notes|-ip|-url]\n"
      . "\t-name=pc                 Busqueda por nombre del host\n"
      . "\t-notes=test              Busqueda por nota\n"
      . "\t-ip=1.1.1.1              Busqueda por direccion IP\n"
      . "\t-url=https://10.0.0.1    Busqueda por url\n\n"
      ;
}

my $info = XMLin('kk.xml', KeyAttr => 1, ForceArray => [ 'user' ]);

for my $pc ( @{$info->{technology}{pc}} ) {
    next if $name  and $pc->{name}  !~ /^$name$/;
    next if $notes and $pc->{notes} !~ /^$notes$/;
    next if $ip    and $pc->{ip}    !~ /^$ip$/;
    next if $url   and $pc->{url}   !~ /^$url$/;

    print "$pc->{name} => $pc->{url} ($pc->{ip})\n";
    for my $user ( @{$pc->{user}} ) {
        print "\t$user->{name} : $user->{password}\n";
    }
}

sub crear{
my $xml = << "END_OF_XML";
<pc>
    <name>marcos3</name>
    <url>https://10.1.1.1</url>
        <ip>10.3.3.3.</ip>
    <user name="admin"><password>4444</password><date>20080333</date></user>
    <notes>culito</notes>
</pc>
END_OF_XML
open  $fh, q{>>:encoding(iso-8859-1)}, 'kk.xml';
print $fh $xml;
close $fh;
}

#!/usr/bin/perl -s
use strict;
use warnings;

##
BEGIN {
    eval "use XML::Simple";
    if ( $@ ) {
        warn  "Error al cargar el modulo: XML::Simple\n"
            . "Instalar Modulo:\n"
            . "\t\tcpan XML::Simple\n\n";
        exit();
    }
}

our $crear;
our $name;
our $notes;
our $ip;
our $url;

## Ayuda del sistema
if ( !$name and !$notes and !$ip and !$url and !$crear ) {
    die "Uso: $0 [-name|-notes|-ip|-url]\n"
      . "\t-name=pc                 Busqueda por nombre del host\n"
      . "\t-notes=test              Busqueda por nota\n"
      . "\t-ip=1.1.1.1              Busqueda por direccion IP\n"
      . "\t-url=https://10.0.0.1    Busqueda por url\n\n"
      . "\t-crear                   Añade nuevos contenidos"
      ;
}

my $info = XMLin('kk.xml', KeyAttr => 1, ForceArray => [ 'user' ]);

if ( !$crear ) {
    for my $pc ( @{$info->{technology}{pc}} ) {
        next if $name  and $pc->{name}  !~ /^$name$/;
        next if $notes and $pc->{notes} !~ /^$notes$/;
        next if $ip    and $pc->{ip}    !~ /^$ip$/;
        next if $url   and $pc->{url}   !~ /^$url$/;

        print "$pc->{name} => $pc->{url} ($pc->{ip})\n";
        for my $user ( @{$pc->{user}} ) {
            print "\t$user->{name} : $user->{password}\n";
        }
    }
}
else {
    push @{$info->{technology}{pc}}, {
        name    => 'marcos3',
        url     => 'https://10.1.1.1',
        ip      => '10.3.3.3',
        user    => [{
                        name    => 'admin',
                        password=> 4444,
                        date    => 20080333,
                    }],
        notes   => 'culito',
    };
    #use Data::Dumper;
    #print Dumper $info;

    print XMLout($info, RootName => 'owner', XMLDecl => 1 );
}

print XMLout($info, RootName => 'owner', XMLDecl => 1, NoAttr => 1 );

#!/usr/bin/perl -s
use strict;
use warnings;
use POSIX qw(strftime);
my $hday= strftime("%Y%m%d", localtime);

##Verificacion del modulo XML::Simple
BEGIN {
    eval "use XML::Simple";
    if ( $@ ) {
        warn  "Error al cargar el modulo: XML::Simple\n"
            . "Instalar Modulo:\n"
            . "\t\tcpan XML::Simple\n\n";
        exit();
    }
}

our $crear;
our $name;
our $notes;
our $ip;
our $url;
our $descrypt;

## Ayuda del sistema
if ( !$name and !$notes and !$ip and !$url and !$crear and !$descrypt) {
    die "Uso: $0 [-name|-notes|-ip|-url|-crear|-descrypt]\n"
      . "\t-name=pc                 Busqueda por nombre del host\n"
      . "\t-notes=test              Busqueda por nota\n"
      . "\t-ip=1.1.1.1              Busqueda por direccion IP\n"
      . "\t-url=https://10.0.0.1    Busqueda por url\n"
      . "\t-crear                   Adjuntar nuevos contenidos\n"
          . "\t-descrypt                Desencriptar password\n"
      ;
}

my $info = XMLin('kk.xml', KeyAttr => 1, ForceArray => [ 'user' ]);

if ( $name and $descrypt ) {
            print "- Ingresar password de la key gpg\n";
            system("gpg --no-options $name.pw.asc");
            open my $FILE, '<', "$name.pw" or die $!;
        my @lines = <$FILE>;
            for my $pc ( @{$info->{technology}{pc}} ) {
        next if $name  and $pc->{name}  !~ /^$name$/;
        print "$pc->{name} => $pc->{url} ($pc->{ip})\n";
    for my $user ( @{$pc->{user}} ) {
        print "\t   $user->{name} : @lines\n";
        system("rm -f $name.pw");
                close $FILE;
                exit ();
        }
    }


}

if ( !$crear ) {
    for my $pc ( @{$info->{technology}{pc}} ) {
        next if $name  and $pc->{name}  !~ /^$name$/;
        next if $notes and $pc->{notes} !~ /^$notes$/;
        next if $ip    and $pc->{ip}    !~ /^$ip$/;
        next if $url   and $pc->{url}   !~ /^$url$/;
        print "$pc->{name} => $pc->{url} ($pc->{ip})\n";
        for my $user ( @{$pc->{user}} ) {
            print "\t   $user->{name} : $user->{password}\n";
        }
    }
}

else {
    print "- Ingresar nombre del Host: ";
    my $hname=<STDIN>;
    chop($hname);
    print "- Ingresar url: ";
    my $hurl=<STDIN>;
    chop($hurl);
    print "- Ingresar IP: ";
    my $hip=<STDIN>;
    chop($hip);
        print "- Ingresar notas: ";
    my $hnota=<STDIN>;
    chop($hnota);
    print "- Ingresar usuario: ";
    my $huser=<STDIN>;
    chop($huser);
## Creacion del archivo del password y la encriptacion
    open  (my $NHOST , "> $hname.pw");
    print "- Ingresar password (el password no aparece): ";
    system "stty -echo";
    my $hpass=<STDIN>;
    chop($hpass);
    print $NHOST "$hpass";
    close ($NHOST);
    system "stty echo";
        print "\n- Ingresar password de la key gpg\n";
        system("gpg -ac --no-options $hname.pw");
        system("rm -f $hname.pw");
##Termina  el archivo del password y la encriptacion   

   push @{$info->{technology}{pc}}, {
        name    => $hname,
        url     => $hurl,
        ip      => $hip,
        user    => [{
                        name    => $huser,
                        password=> "$hname.pw.asc",
                        date    => $hday,
                    }],
        notes   => $hnota,
    };
#use Data::Dumper;
#print Dumper $info;
#Escribo sobre el archivo xml la salida
open  my $SV, q{>:encoding(iso-8859-1)}, 'kk.xml';
print $SV XMLout($info, RootName => 'owner', XMLDecl => 1, NoAttr => 1 );
close ($SV)
}