Hi, my question is how to I pass user/passwd info to the pop up box of my MySQL admin from my personnel computer . i.e .htaccess have a pop up box requesting user/passwd. but since i will not be able to get taht pop up window, I need a way for my program to do it.
In your code my ($user, $pword) = gbc($realm, $uri); die "No $pword" unless $pword ; $ua->credentials($uri->host_port, $realm, $user, $pword) what is gbc, $realm and $uri pls Thanx for the help Anthony "Drieux" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED] > > On Sunday, Jul 27, 2003, at 12:06 US/Pacific, awarsd wrote: > [..] > > to do backup of my MYSQL tables I would prefer to do it directly from > > my > > computer no need to upload -save -download etc... the problem to > > access to > > my mysql server it has .htaccess and i was wondering if LWP or > > something > > could input directly the login and password. > > For the moment to access website i use LWP. > [..] > > If I understand your problem, you are asking > > so how do I pass that user/passwd information > through an LWP user agent... > > well either you want to have the tool > query you at the command line > > cf: > <http://www.wetware.com/drieux/pbl/Sys/Admin/passwdGame.txt> > > or you will have hidden that safely somewhere... > > then you can of course take that and stuff it > into your basic user agent like > > my $ua = LWP::UserAgent->new; > my ($user, $pword) = gbc($realm, $uri); > die "No $pword" unless $pword ; > $ua->credentials($uri->host_port, $realm, $user, $pword) > ..... > # the usual Request side stuff > ... > my $res = $ua->request($req); > if ($res->is_success) { > parseTreeBack($res); > } else { > print $res->error_as_HTML if ($res->is_error); > print "Your Request Failed\n"; > } > > HTH. > > ciao > drieux > > --- > > an implementation of 'gbc()' > you might tailor it to your personal needs.. > > sub gbc { > > my($realm, $uri) = @_; > # if ($main::options{'C'}) { > # return split(':', $main::options{'C'}, 2); > # } elsif (-t) { > if(-t) { # are we attached to a tty??? > my $netloc = $uri->host_port; > print "Enter username for $realm at $netloc: "; > my $user = <STDIN>; > chomp($user); > return (undef, undef) unless length $user; > print "Password: "; > system("stty -echo"); > my $password = <STDIN>; > system("stty echo"); > print "\n"; # because we disabled echo > chomp($password); > return ($user, $password); > } else { > return (undef, undef) > } > > } # end gbc - the get_basic_credentials > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
