~drizzle-trunk/drizzle/development

<td halign=right><b><font color=Red>Database</font></b><br><font size=-2>(Name of MySQL-database user tries to connect to.</font><br><font size=-2>Wildcards <font color="Green">(*,?,%,_)</font> are allowed.)</font></td>

2487

2488

</tr>

2489

<tr>

2490

<td halign=right><b>Host</b><br><font size=-2>(Host from where the user is trying to connect to MySQL-database.</font><br><font size=-2>Wildcards <font color="Green">(*,?,%,_)</font> are allowed.)</font></td>

2491

2492

</tr>

2493

</table>

2494

</td>

2495

2496

2497

2498

2499

2500

2501

</tr>

2502

2503

2504

</tr>

2505

2506

2507

</tr>

2508

</table>

2509

</td>

2510

</tr>

2511

2512

</table>

2513

</form>

2514

2515

2516

</BODY>

2517

</HTML>

2518

EOForm

2519

return 1;

2520

}

2521

2522

# =====================================

2523

# sub Print_Usage:

2524

# print some information on STDOUT

2525

# =====================================

2526

sub Print_Usage {

2527

Print_Error_Messages();

2528

if ($MySQLaccess::CMD) { #command-line mode

2529

Print_Options();

2530

}

2531

if ($MySQLaccess::CGI) { #CGI-BIN mode

2532

Print_Form();

2533

}

2534

return 1;

2535

}

2536

2537

# ======================================

2538

# sub Print_Version:

2539

# ======================================

2540

sub Print_Version {

2541

if ($MySQLaccess::CMD) {

2542

print $MySQLaccess::INFO;

2543

}

2544

if ($MySQLaccess::CGI) {

2545

print "<PRE>\n";

2546

print $MySQLaccess::INFO;

2547

print "</PRE>\n";

2548

}

2549

return 1;

2550

}

2551

2552

# ======================================

2553

# sub Print_Relnotes:

2554

# ======================================

2555

sub Print_Relnotes {

2556

if ($MySQLaccess::CMD) {

2557

print $MySQLaccess::RELEASE;

2558

}

2559

if ($MySQLaccess::CGI) {

2560

print "<PRE>\n";

2561

print $MySQLaccess::RELEASE;

2562

print "</PRE>\n";

2563

}

2564

return 1;

2565

}

2566

2567

# ======================================

2568

# sub Print_Plans:

2569

# ======================================

2570

sub Print_Plans {

2571

if ($MySQLaccess::CMD) {

2572

print $MySQLaccess::TODO;

2573

}

2574

if ($MySQLaccess::CGI) {

2575

print "<PRE>\n";

2576

print $MySQLaccess::TODO;

2577

print "</PRE>\n";

2578

}

2579

return 1;

2580

}

2581

2582

# ======================================

2583

# sub Print_HowTo:

2584

# ======================================

2585

sub Print_HowTo {

2586

if ($MySQLaccess::CMD) {

2587

print $MySQLaccess::HOWTO;

2588

}

2589

if ($MySQLaccess::CGI) {

2590

print "<PRE>\n";

2591

print $MySQLaccess::HOWTO;

2592

print "</PRE>\n";

2593

}

2594

return 1;

2595

}

2596

2597

# ======================================

2598

# sub Print_Options:

2599

# ======================================

2600

sub Print_Options {

2601

if ($MySQLaccess::CGI) { print "<PRE>\n"; }

2602

print $MySQLaccess::OPTIONS;

2603

if ($MySQLaccess::CGI) { print "</PRE>\n"; }

2604

return 1;

2605

}

2606

2607

# ======================================

2608

# sub Print_Error_Access:

2609

# ======================================

2610

sub Print_Error_Access {

2611

my ($error) = @_;

2612

print "\n";

2613

if ($MySQLaccess::CGI) { print "<font color=Red>\n<PRE>\n"; }

2614

print $MESSAGES{$error};

2615

if ($MySQLaccess::CGI) { print "</PRE>\n</font>\n"; }

2616

print "\n";

2617

return 1;

2618

}

2619

2620

# ======================================

2621

# sub Print_Error_Messages:

2622

# ======================================

2623

sub Print_Error_Messages {

2624

# my ($error) = @_;

2625

print "\n";

2626

if ($MySQLaccess::CGI) { print "<font color=Red>\n<center>\n"; }

2627

foreach $error (@MySQLaccess::Grant::Error) {

2628

print $MESSAGES{$error};

2629

print $MySQLaccess::CGI ? "<br>\n" : "\n";

2630

}

2631

if ($MySQLaccess::CGI) { print "</center>\n</font>\n"; }

2632

print "\n";

2633

return 1;

2634

}

2635

2636

# ======================================

2637

# sub Print_Message:

2638

# ======================================

2639

sub Print_Message {

2640

my ($aref) = @_;

2641

my @messages = @{$aref};

2642

print "\n";

2643

if ($MySQLaccess::CGI) { print "<font color=DarkGreen>\n<center>\n"; }

2644

foreach $msg (@messages) {

2645

print $msg;

2646

print $MySQLaccess::CGI ? "<br>\n" : "\n";

2647

}

2648

if ($MySQLaccess::CGI) { print "</center>\n</font>\n"; }

2649

print "\n";

2650

return 1;

2651

}

2652

2653

# ======================================

2654

# sub Print_Edit:

2655

# ======================================

2656

sub Print_Edit {

2657

print "\n";

2658

if (!$MySQLaccess::CGI) {

2659

print "Note: Editing the temporary tables is NOT supported in CMD-line mode!\n";

2660

return 0;

2661

}

2662

print "<CENTER>\n"

2663

."<form action=$FORM method=GET>\n"

2664

."<table width=90% border>\n"

2665

."<tr>\n"

2666

." <td><input type=checkbox name=copy value=on> Copy grant-rules to temporary tables<br></td>\n"

2667

." <td rowspan=5 align=center valign=center><input type=submit value=Go></td>\n"

2668

."</tr>\n"

2669

."<tr>\n"

2670

." <td> Edit temporary tables with external application:<br>"

2671

." <a href=\"$MySQLaccess::MYSQLADMIN\">$MySQLaccess::MYSQLADMIN</a></td>\n"

2672

."</tr>\n"

2673

."<tr>\n"

2674

." <td><input type=checkbox name=preview value=on> Preview changes made in temporary tables</td>\n"

2675

."</tr>\n"

2676

."<tr>\n"

2677

." <td><input type=checkbox name=commit value=on> Make changes permanent</td>\n"

2678

."</tr>\n"

2679

."<tr>\n"

2680

." <td><input type=checkbox name=rollback value=on> Restore previous grand-rules</td>\n"

2681

."</tr>\n"

2682

."<tr>\n"

2683

." <td colspan=2 align=center><font size=-2 color=Red>You need write,delete and drop-privileges to perform the above actions</font></td>\n"

2684

."</tr>\n"

2685

."</table>\n"

2686

."</form>\n"

2687

."</CENTER>\n";

2688

2689

return 1;

2690

}

2691

2692

2693

# ======================================

2694

# sub Print_Access_rights:

2695

# print the access-rights on STDOUT

2696

# ======================================

2697

sub Print_Access_rights {

2698

my ($host,$user,$db,$refhash) = @_;

2699

2700

if (defined($MySQLaccess::Param{'brief'})) {

2701

# if ($MySQLaccess::CGI) { print "<PRE>\n"; }

2702

Matrix_Report($host,$user,$db,$refhash);

2703

# if ($MySQLaccess::CGI) { print "</PRE>\n"; }

2704

}

2705

else {

2706

Tabular_Report($host,$user,$db,$refhash);

2707

$MySQLaccess::Report::separator = $MySQLaccess::CGI ? "<hr>" : "-"x80;

2708

}

2709

return 1;

2710

}

2711

2712

# ======================================

2713

# sub Print_Diff_ACL:

2714

# print the diff. in the grants before and after

2715

# ======================================

2716

sub Print_Diff_ACL {

2717

my ($aref) = @_;

2718

my @diffs = @{$aref};

2719

my %block = ( '<' => 'Before',

2720

'>' => 'After',

2721

);

2722

my %color = ( '<' => 'Green',

2723

'>' => 'Red',

2724

);

2725

my $curblock = '';

2726

2727

# -----------------------------

2728

# create column-headers

2729

foreach $field (@MySQLaccess::Grant::Privileges) {

2730

push(@headers,substr($field,0,4));

2731

}

2732

2733

if ($MySQLaccess::CMD) {

2734

print "\n";

2735

print "Differences in access-rights BEFORE and AFTER changes in grant-tables\n";

2736

# print "---------------------------------------------------------------------\n";

2737

my $line1="";

2738

my $line2="";

2739

$line1 .= sprintf("| %-30s|",'Host,User,DB');

2740

$line2 .= sprintf("+-%-30s+",'-' x 30);

2741

foreach $header (@headers) {

2742

$line1 .= sprintf("%-4s|",$header);

2743

$line2 .= sprintf("%s+",'----');

2744

}

2745

print "$line2\n";

2746

print "$line1\n";

2747

print "$line2\n";

2748

2749

$format = "format STDOUT = \n"

2750

. "^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< " . " @|||" x 10 ."\n"

2751

. '$host_user_db,@priv' . "\n"

2752

. ".\n";

2753

#print $format;

2754

eval $format;

2755

}

2756

if ($MySQLaccess::CGI) {

2757

print "<table border width=100%>\n";

2758

print "<tr>\n";

2759

print "<th colspan=11>";

2760

print "Differences in access-rights <font color=$color{'<'}>BEFORE</font> "

2761

."and <font color=$color{'>'}>AFTER</font> changes to grant-tables</font>\n";

2762

print "</th>";

2763

print "</tr>\n";

2764

print "<tr>\n";

2765

$line1 .= sprintf("<th>%-20s</th>",'Host, User, DB');

2766

foreach $header (@headers) {

2767

$line1 .= sprintf("<th>%-4s</th>",$header);

2768

}

2769

print "$line1</tr>\n";

2770

}

2771

2772

foreach $line (@diffs) {

2773

$type = substr($line,0,1);

2774

$line = substr($line,1);

2775

($host,$user,$db,@priv) = split(/,/,$line);

2776

if ($MySQLaccess::CMD) {

2777

if ($type ne $curblock) {

2778

$curblock = $type;

2779

print $block{$curblock},":\n";

2780

}

2781

#print "$line\n";

2782

write;

2783

}

2784

if ($MySQLaccess::CGI) {

2785

if ($type ne $curblock) {

2786

$curblock = $type;

2787

print "<tr><td><b>$block{$curblock}<b></td></tr>\n";

2788

}

2789

$line1="<td><font color=$color{$type}>$host, $user, $db</font></td>";

2790

foreach $field (@priv) {

2791

$line1 .= sprintf("<td align=center><font color=$color{$type}>%-4s</font></td>",$field);

2792

}

2793

print "<tr>$line1</tr>\n";

2794

}

2795

}

2796

print "\n";

2797

if ($MySQLaccess::CMD) {

2798

print "---------------------------------------------------------------------\n";

2799

}

2800

if ($MySQLaccess::CGI) {

2801

print "</table><br>";

2802

}

2803

2804

2805

return 1;

2806

}

2807

2808

# ======================================

2809

# sub Tabular_Report

2810

# Tabular report,

2811

# suitable for 1 triple (host,db,user)

2812

# ======================================

2813

sub Tabular_Report {

2814

my ($host,$user,$db,$a) = @_;

2815

my $column=2;

2816

2817

# -----------------------------

2818

# separator

2819

if ($MySQLaccess::Report::separator) { print "$MySQLaccess::Report::separator\n"; }

2820

2821

# -----------------------------

2822

# print table of access-rights

2823

my $rows = int(@MySQLaccess::Grant::Privileges/2); #round up

2824

my @table=();

2825

$j=0;

2826

for $i (0 .. $rows-1) {

2827

$table[$j]=$MySQLaccess::Grant::Privileges[$i];

2828

$j = $j+2;

2829

}

2830

$j=1;

2831

for $i ($rows .. $#MySQLaccess::Grant::Privileges) {

2832

$table[$j]=$MySQLaccess::Grant::Privileges[$i];

2833

$j = $j+2;

2834

}

2835

if ($MySQLaccess::CMD) {

2836

print "\n";

2837

print "Access-rights\n";

2838

print "for USER '$user', from HOST '$host', to DB '$db'\n";

2839

}

2840

if ($MySQLaccess::CGI) {

2841

print "<table border width=100%>\n";

2842

print "<tr>\n";

2843

}

2844

if ($MySQLaccess::CGI) {

2845

print "<th colspan=5>";

2846

print "<font color=Red>Access-rights</font>\n";

2847

print "for USER '<font color=Green>$user</font>', from HOST '<font color=Green>$host</font>', to DB '<font color=Green>$db</font>'\n";

2848

print "</th>";

2849

print "</tr>\n";

2850

print "<tr>\n";

2851

}

2852

if ($MySQLaccess::CMD) {

2853

print "\t+-----------------+---+\t+-----------------+---+";

2854

}

2855

foreach $field (@table) {

2856

if ($MySQLaccess::CMD) {

2857

if ($column==2) { print "\n\t"; $column=1;}

2858

else { print "\t"; $column=2;}

2859

printf "| %-15s | %s |",$field,$Answer{$a->{$field}};

2860

}

2861

if ($MySQLaccess::CGI) {

2862

if ($column==2) { print "</tr>\n<tr>\n"; $column=1;}

2863

else { print "<td width=10%></td>"; $column=2;}

2864

printf " <td width=35%><b>%-15s</b></td><td width=10%>%s</td>\n",$field,$Answer{$a->{$field}};

2865

}

2866

}

2867

print "\n";

2868

if ($MySQLaccess::CMD) {

2869

print "\t+-----------------+---+\t+-----------------+---+\n";

2870

}

2871

if ($MySQLaccess::CGI) {

2872

print "</tr>\n</table><br>";

2873

}

2874

2875

# ---------------

2876

# print notes:

2877

foreach $note (@MySQLaccess::Grant::Notes) {

2878

my $message = $MESSAGES{$note};

2879

$message =~ s/\$user/$user/g;

2880

$message =~ s/\$db/$db/g;

2881

$message =~ s/\$host/$host/g;

2882

$message =~ s/\$password/$password/g;

2883

$PREFIX='NOTE';

2884

if ($MySQLaccess::CMD) {

2885

my @lines = split(/\n/,$message);

2886

foreach $line (@lines) {

2887

print "$PREFIX:\t $line\n";

2888

$PREFIX=' ';

2889

}

2890

}

2891

if ($MySQLaccess::CGI) {

2892

print "<b>$PREFIX:</b> $message<br>\n";

2893

}

2894

}

2895

2896

# ---------------

2897

# print warnings:

2898

foreach $warning (@MySQLaccess::Grant::Warnings) {

2899

my $message = $MESSAGES{$warning};

2900

$message =~ s/\$user/$user/g;

2901

$message =~ s/\$db/$db/g;

2902

$message =~ s/\$host/$host/g;

2903

$message =~ s/\$password/$password/g;

2904

$PREFIX='BEWARE';

2905

if ($MySQLaccess::CMD) {

2906

my @lines = split(/\n/,$message);

2907

foreach $line (@lines) {

2908

print "$PREFIX:\t $line\n";

2909

$PREFIX=' ';

2910

}

2911

}

2912

if ($MySQLaccess::CGI) {

2913

print "<b>$PREFIX:</b> $message<br>\n";

2914

}

2915

}

2916

2917

# ---------------

2918

# print errors:

2919

foreach $error (@MySQLaccess::Grant::Errors) {

2920

my $message = $MESSAGES{$error};

2921

$message =~ s/\$user/$user/g;

2922

$message =~ s/\$db/$db/g;

2923

$message =~ s/\$host/$host/g;

2924

$message =~ s/\$password/$password/g;

2925

$PREFIX='ERROR';

2926

if ($MySQLaccess::CMD) {

2927

my @lines = split(/\n/,$message);

2928

foreach $line (@lines) {

2929

print "$PREFIX:\t $line\n";

2930

$PREFIX=' ';

2931

}

2932

}

2933

if ($MySQLaccess::CGI) {

2934

print "<b>$PREFIX:</b> $message<br>\n";

2935

}

2936

}

2937

2938

# ---------------

2939

# inform if there are no rules ==> full access for everyone.

2940

if ($MySQLaccess::Grant::full_access) { print "$MESSAGES{'full_access'}\n"; }

2941

2942

# ---------------

2943

# print the rules used

2944

print "\n";

2945

if ($MySQLaccess::CMD) {

2946

print "The following rules are used:\n";

2947

foreach $field (sort(keys(%MySQLaccess::Grant::Rules))) {

2948

my $rule = (defined($MESSAGES{$MySQLaccess::Grant::Rules{$field}}) ? $MESSAGES{$MySQLaccess::Grant::Rules{$field}} : $MySQLaccess::Grant::Rules{$field});

2949

$rule =~ s/\t/','/g;

2950

printf " %-5s : '%s'\n",$field,$rule;

2951

}

2952

}

2953

if ($MySQLaccess::CGI) {

2954

print "<br>\n";

2955

print "<table border width=100%>\n";

2956

print "<tr><th colspan=2>The following rules are used:</th></tr>\n";

2957

foreach $field (sort(keys(%MySQLaccess::Grant::Rules))) {

2958

my $rule = (defined($MESSAGES{$MySQLaccess::Grant::Rules{$field}}) ? $MESSAGES{$MySQLaccess::Grant::Rules{$field}} : $MySQLaccess::Grant::Rules{$field});

2959

$rule =~ s/\t/','/g;

2960

printf "<tr><th>%-5s</th><td>'%s'</td></tr>\n",$field,$rule;

2961

}

2962

print "</table>\n";

2963

}

2964

2965

return 1;

2966

}

2967

2968

# ======================================

2969

# sub Matrix_Report:

2970

# single-line output foreach triple,

2971

# no notes,warnings,...

2972

# ======================================

2973

sub Matrix_Report {

2974

my ($host,$user,$db,$a) = @_;

2975

my @headers = ();

2976

2977

if (! $headers) {

2978

# -----------------------------

2979

# create column-headers

2980

foreach $field (@MySQLaccess::Grant::Privileges) {

2981

push(@headers,substr($field,0,4));

2982

}

2983

2984

# -----------------------------

2985

# print column-headers

2986

print "\n";

2987

if ($MySQLaccess::CMD) {

2988

my $line1="";

2989

my $line2="";

2990

foreach $header (@headers) {

2991

$line1 .= sprintf("%-4s ",$header);

2992

$line2 .= sprintf("%s ",'----');

2993

}

2994

$line1 .= sprintf("| %-20s",'Host,User,DB');

2995

$line2 .= sprintf("+ %-20s",'-' x 20);

2996

print "$line1\n";

2997

print "$line2\n";

2998

}

2999

if ($MySQLaccess::CGI) {

3000

print "<table width=100% border>\n";

3001

my $line1="<tr>";

3002

foreach $header (@headers) {

3003

$line1 .= sprintf("<th>%-4s</th>",$header);

3004

}

3005

$line1 .= sprintf("<th>%-20s</th>",'Host, User, DB');

3006

print "$line1</tr>\n";

3007

}

3008

3009

# ----------------------------

3010

# column-headers should only be

3011

# printed once.

3012

$MySQLaccess::Report::headers=1;

3013

}

3014

3015

# ------------------------

3016

# print access-information

3017

if ($MySQLaccess::CMD) {

3018

foreach $field (@MySQLaccess::Grant::Privileges) {

3019

printf " %-2s ",$Answer{$a->{$field}};

3020

}

3021

printf "| %-20s",join(',',$host,$user,$db);

3022

print "\n";

3023

}

3024

if ($MySQLaccess::CGI) {

3025

print "<tr>";

3026

foreach $field (@MySQLaccess::Grant::Privileges) {

3027

printf "<td align=center>%-2s</td>",$Answer{$a->{$field}};

3028

}

3029

printf "<td><b>%-20s</b></td>",join(', ',$host,$user,$db);

3030

print "</tr>\n";

3031

}

3032

3033

return 1;

3034

}

3035

3036

3037

# ======================================

3038

# sub Raw_Report:

3039

# single-line output foreach triple,

3040

# no notes,warnings,...

3041

# ======================================

3042

sub Raw_Report {

3043

my ($host,$user,$db,$a) = @_;

3044

my @headers = ();

3045

my $string = "";

3046

3047

# ------------------------

3048

# print access-information

3049

$string = "$host,$user,$db,";

3050

foreach $field (@MySQLaccess::Grant::Privileges) {

3051

$string .= $Answer{$a->{$field}} . ",";

3052

}

3053

return $string;

3054

}

3055

3056

3057

#######################################################################

3058

package MySQLaccess::Wildcards;

3059

BEGIN {

3060

$DEBUG = 0;

3061

$DEBUG = $MySQLaccess::DEBUG unless ($DEBUG);

3062

}

3063

# ############################################

3064

# SQL, WILDCARDS and REGULAR EXPRESSIONS

3065

# ============================================

3066

# translage SQL-expressions to Reg-expressions

3067

# ============================================

3068

sub SQL2Reg {

3069

my ($expr) = @_;

3070

my $expr_o = $expr;

3071

$expr =~ s/\./\\./g;

3072

$expr =~ s/\\%/\002/g;

3073

$expr =~ s/%/.*/g;

3074

$expr =~ s/\002/%/g;

3075

$expr =~ s/\\_/\002/g;

3076

$expr =~ s/_/.+/g;

3077

$expr =~ s/\002/_/g;

3078

MySQLaccess::Debug::Print(2,"$expr_o --> $expr");

3079

return $expr;

3080

}

3081

3082

# translage WILDcards to Reg-expressions

3083

# ============================================

3084

sub Wild2Reg {

3085

my ($expr) = @_;

3086

my $expr_o = $expr;

3087

$expr =~ s/\./\\./g;

3088

$expr =~ s/\\\*/\002/g;

3089

$expr =~ s/\*/.*/g;

3090

$expr =~ s/\002/*/g;

3091

$expr =~ s/\\\?/\002/g;

3092

$expr =~ s/\?/.+/g;

3093

$expr =~ s/\002/?/g;

3094

MySQLaccess::Debug::Print(2,"$expr_o --> $expr");

3095

return $expr;

3096

}

3097

3098

# =============================================

3099

# match a given string with a template

3100

# =============================================

3101

sub MatchTemplate {

3102

my ($tpl,$string) = @_;

3103

my $match=0;

3104

if ($string=~ /^$tpl$/ or $tpl eq '') { $match=1; }

3105

else { $match=0;}

3106

MySQLaccess::Debug::Print(2,"($tpl,$string) --> $match");

3107

return $match;

3108

}

3109

3110

#######################################################################

3111

package MySQLaccess::Host;

3112

BEGIN {

3113

$localhost = undef;

3114

$DEBUG = 2;

3115

$DEBUG = $MySQLaccess::DEBUG unless ($DEBUG);

3116

}

3117

# ======================================

3118

# sub IP2Name

3119

# return the Name with the corr. IP-nmbr

3120

# (no aliases yet!!)

3121

# ======================================

3122

sub IP2Name {

3123

my ($ip) = @_;

3124

my $ip_o = $ip;

3125

if ($ip !~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/o) {

3126

MySQLaccess::Debug::Print(3,"'$ip' is not an ip-number, returning IP=$ip");

3127

return $ip;

3128

}

3129

MySQLaccess::Debug::Print(4,"IP=$ip split up => $1.$2.$3.$4");

3130

$ip = pack "C4",$1,$2,$3,$4;

3131

MySQLaccess::Debug::Print(4,"IP packed -> >>$ip<<\n");

3132

my ($name,$aliases,$addrtype,$length,@addrs) = gethostbyaddr($ip, AF_INET);

3133

MySQLaccess::Debug::Print(3,"IP=$ip_o => hostname=$name");

3134

MySQLaccess::Debug::Print(4,"aliases=$aliases");

3135

MySQLaccess::Debug::Print(4,"addrtype=$addrtype - length=$length");

3136

return ($name || $ip);

3137

#return ($name || undef);

3138

}

3139

3140

# ======================================

3141

# sub Name2IP

3142

# return the IP-number of the host

3143

# ======================================

3144

sub Name2IP {

3145

my ($name) = @_;

3146

if ($name =~ /[%_]/) {

3147

MySQLaccess::Debug::Print(3,"'$name' contains SQL-wildcards, returning name=$name");

3148

return $name;

3149

}

3150

my ($_name,$aliases,$addrtype,$length,@addrs) = gethostbyname($name);

3151

my ($a,$b,$c,$d) = unpack('C4',$addrs[0]);

3152

my $ip = "$a.$b.$c.$d";

3153

MySQLaccess::Debug::Print(3,"hostname=$name => IP=$ip");

3154

MySQLaccess::Debug::Print(4,"aliases=$aliases");

3155

MySQLaccess::Debug::Print(4,"addrtype=$addrtype - length=$length");

3156

#if ($ip ne "") { return "$ip"; }

3157

#else { return undef; }

3158

return ($ip || $name);

3159

}

3160

3161

# ========================================

3162

# sub LocalHost

3163

# some special action has to be taken for

3164

# the localhost

3165

# ========================================

3166

sub LocalHost {

3167

if (!defined($MySQLaccess::Host::localhost)) {

3168

$MySQLaccess::Host::localhost = Sys::Hostname::hostname();

3169

MySQLaccess::Debug::Print(3,"Setting package variable \$localhost=$MySQLaccess::Host::localhost");

3170

}

3171

my $host = $localhost;

3172

MySQLaccess::Debug::Print(3,"localhost = $host");

3173

return $host;

3174

}

3175

3176

# ========================================

3177

# check if the given hostname (or ip)

3178

# corresponds with the localhost

3179

# ========================================

3180

sub Is_localhost {

3181

my ($host_tpl) = @_;

3182

my $isit = 0;

3183

if (($MySQLaccess::host_name eq $localhost) or ($MySQLaccess::host_ip eq $local_ip)) {

3184

MySQLaccess::Debug::Print(2,"Checking for localhost");

3185

MySQLaccess::Debug::Print(3,"because ($MySQLaccess::host_name EQ $localhost) AND ($MySQLaccess::host_ip EQ $local_ip)");

3186

$isit = ( 'localhost' =~ /$host_tpl/ ) ? 1 : 0;

3187

MySQLaccess::Debug::Print(3," 'localhost' =?= $host_tpl -> $isit");

3188

return $isit;

3189

}

3190

else {

3191

MySQLaccess::Debug::Print(4,"Not checking for localhost");

3192

MySQLaccess::Debug::Print(4,"because ($MySQLaccess::host_name != $localhost) AND ($MySQLaccess::host_ip != $local_ip)");

3193

return 0;

3194

}

3195

}

3196

3197

3198

# =========================================

3199

# check if host (IP or name) can be matched

3200

# on the template.

3201

# =========================================

3202

sub MatchTemplate {

3203

my ($host,$tpl) = @_;

3204

my $match = 0;

3205

3206

MySQLaccess::Debug::Print(1, "($host) =?= ($tpl)");

3207

3208

my $host_name = IP2Name($host);

3209

my $host_ip = Name2IP($host);

3210

3211

MySQLaccess::Debug::Print(2, "name=$host_name ; ip=$host_ip");

3212

$match = (MySQLaccess::Wildcards::MatchTemplate($tpl,$host_name) or

3213

MySQLaccess::Wildcards::MatchTemplate($tpl,$host_ip));

3214

3215

MySQLaccess::Debug::Print(2, "($host_name,$host_ip) =?= ($tpl): $ncount");

3216

3217

return $match;

3218

}

3219

3220

########################################################################

3221

package MySQLaccess::Debug;

3222

BEGIN {

3223

my $dbg_file = "$MySQLaccess::script_log";

3224

open(DEBUG,"> $dbg_file") or warn "Could not open outputfile $dbg_file for debugging-info\n";

3225

select DEBUG;

3226

$| = 1;

3227

select STDOUT;

3228

}

3229

# =========================================

3230

# Print debugging information on STDERR

3231

# =========================================

3232

sub Print {

3233

my ($level,$mesg) = @_;

3234

my ($pack,$file,$line,$subname,$hasargs,$wantarray) = caller(1);

3235

my ($PACK) = split('::',$subname);

3236

my $DEBUG = ${$PACK."::DEBUG"} ? ${$PACK."::DEBUG"} : $MySQLaccess::DEBUG ;

3237

my ($sec,$min,$hour) = localtime();

3238

print DEBUG "[$hour:$min:$sec $subname] $mesg\n" if ($DEBUG>=$level);

3239

}

3240

Older »