File Coverage

blib/lib/DBIx/OracleLogin.pm

Criterion	Covered	Total	%
statement	21	41	51.2
branch	7	22	31.8
condition	1	3	33.3
subroutine	4	4	100.0
pod	0	1	0.0
total	33	71	46.4

package DBIx::OracleLogin;

use strict;
use Term::ReadKey;

use vars qw($VERSION @ISA @EXPORT);
require Exporter;
@ISA    = ('Exporter');
@EXPORT = qw( &parse );

$VERSION = '0.02';

sub parse {
    my ($text) = @_;

    my $user;
    my $pass;
    my $sid;

    # Return if there are more special characters than expected
    return undef if ( $text =~ /.*\/.*\// or $text =~ /.*\@.*\@/);

    if ( $text =~ /^([^\/]+)\/([^\@]+)\@(.+)$/ ) {    # form UID/PW@SID
        $user = $1;
        $pass = $2;
        $sid  = $3;
    }

    elsif ( $text =~ /^([^\@]+)\@([^\/]+)\/(.+)$/ ) {    # form UID@SID/PW
        $user = $1;
        $sid  = $2;
        $pass = $3;
    }

    elsif ( $text =~ /^([^\@]+)\@([^.]+)$/ ) {           # form UID@SID
        $user = $1;
        $sid  = $2;
    }

    elsif ( $text =~ /^([^\@]+)\/([^.]+)$/ ) {           # form UID/PW
        $user = $1;
        $pass  = $2;
    }

    elsif ( $text =~ /^([^\@\/]+)$/ ) {           # form UID
        $user = $1;
    }

    else {
        undef $user;
        undef $sid;
        undef $pass;
    }


    # return if there is no $user by now...
    return undef if ( !$user);

    # Prompt for password if necessary
     if ( !$pass ) {
            print STDERR "password: ";
            ReadMode('noecho');
            $pass = ReadLine(0);
            chomp $pass;
            print "\n";
     }

    # return if there is no $pass by now...
    return undef if (! $pass);

    # retrieve default sid if none has been provided
    if (!$sid) { if (!$ENV{ORACLE_SID}) {return undef;} else {$sid = $ENV{ORACLE_SID};}
    }

    return ( $user, $pass, $sid );
}


1;
__END__