| |
| |
| |
|
Page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
Comments:
<0> I opted for the snark.
<1> MarkP: what get() function?
<1> MarkP: there isn't a "get()" function, so we don't know what you're talking about
<2> I'm trying to send a querystring parameter to a webservice
<1> there isnt' one in CGI.pm, and there isn't one in CORE.
<1> ok
<1> you're looking for LWP
<1> right?
<1> you know this has nothing to do with CGI
<2> Yes
<1> or web
<1> heh
<3> I need to make some cool music to go with my screencast, anybody know of any good tools for that?
<4> sup tag
<5> sup
<4> gumbybrain: eat ew73
<6> you are bitter.
<2> I have use LWP::Simple; at the top of the script
<4> :O
<0> xp_: Try a guitar.
<7> MarkP: paste it
<1> Daveman: I'ma **** you up! Smoke any mother****er that sweats me, any ***hole that threatens me
<3> well I was thinking more of a kind of sequencer with midi or something
<0> Daveman: Creepy.
<3> tag you be da bossman and all us chillin...
<2> if (is_success(get("http://apps.doublepositive.com/suppliers/webservices/realtimeleads.asmx?";))){
<8> MarkP's url is at http://xrl.us/ox52
<0> ahhh C
<4> gumybrain be a tag
<1> MarkP: where is get() defined?
<4> ****ign gumbybrain
<4> hahaha stupid french
<4> take taht
<1> MarkP: and where is is_success() defined?
<7> tag: LWP::Simple
<7> tag: it;'s nto ;)
<1> sparkman: I'm not asking you
<7> er, it's not
<1> sparkman: stop it goddamnit
<7> he already told you.
<2> I don't know
<9> doesnt seem like he knew "<2> I don't know"
<1> MarkP: what is is_success supposed to do?
<5> tell me
<1> MarkP: I think you don't want to be using LWP::Simple. LWP::UserAgent may be more likely to solve your problems
<1> my $ua = new LWP::UserAgent; my $response = $ua->get("...."); if ($response->is_success) { !
<1> MarkP: perldoc LWP::UserAgent
<1> MarkP: perldoc HTTP::Response
<1> LWP::Simple::get() basically does this, and then returns ->content() from the response object, not letting you check the status
<1> so it's more or less sub get { LWP::UserAgent->new->get(shift)->content }
<2> I use both LWP::UserAgent and HTTP::Response?
<1> MarkP: just use LWP::UserAgent
<2> brb
<1> it will acquire all of it's dependencies as needed.
<10> hi all
<1> pippijn: nope
<10> I have the following text:
<10> bla blwer asdu {something} and more bla berwio asi
<10> how do I get this "something"
<11> you tell me ;)
<10> especially, if I have this:
<10> bla blwer asdu {something} and more bla berwio {somethingelse} asi
<10> I want to have an array of all somethings that are in {}
<12> how do i sanitize and eval a regex string i do not trust? This is for a cgi program. the program reads a world writable config page with lines of /from_regex/to_regex/ in it. (please let me know if there is a better channel to ask)
<13> PeterThoeny: perldoc quotemeta might be useful
<10> actually, I just want to replace all {somethings} with a function return
<14> pippijn: @a = $var =~ /{([^}]*)}/g;
<10> what I have now is:
<15> hi
<10> $val =~ s/{something}/$LANG{something}/g
<12> no, i can't use quotemeta since i need to eval unquoted regex strings
<10> but that's just for something
<10> and not for somethingelse
<14> pippijn: you might look at the /e modifier
<15> i got a problem with DBI and forking new processes. can someone direct me to a site that talks about DBI and forking?
<12> here is an example source of regex strings: http://twiki.org/cgi-bin/view/Plugins/MediawikiEditSyntaxRegex
<13> PeterThoeny: what do you mean by sanitize?
<10> hmm
<13> look for things that could cause an infinite loop?
<16> GumbyBRAIN: why must windows games be so difficult to get running in linux?
<6> Made up grid with letters. You have to in a get.
<10> ah looks like something nice
<12> such as making sure that there are no $variables that might expose internal content
<17> simcop2387: linux ****s
<18> dkr: I would think the code ***ertions would be a bit more significant :)
<17> at least for things that real people do.
<16> sili: go sit back with your bsd kernel knowing that Theo is going to save you
<17> happily.
<10> pravus: the e modifier is not global.. how can it be made global?
<16> as long as you pay him tribute anyway
<10> or should it be a loop?
<12> such as making sure there are no function calls to execute; or semicolons to terminate the regex and code that may get executed after that
<2> Ok
<16> local EVERYTHING and set them to undef
<19> hello, where can I download URI:Escape module and where should I put it?
<20> Aerdan: Not really
<13> from perldoc perlsec: "Its better to verify that the variable has only good characters (for certain values of "good") rather than checking whether it has any bad char
<13> acters. Thats because its far too easy to miss bad characters that you never thought of."
<21> What kind of system are you on?
<20> Stiffler: cpan, it will tell you.
<20> Stiffler: perldoc perlmodinstall
<22> Stiffler: Type 'perldoc perlmodinstall' in your shell or go to http://perldoc.perl.org/perlmodinstall.html
<19> danke ;]
<23> buu: I was wondering because I kinda want support for hex [via 0x prefix or h suffix]...
<20> Aerdan: Add a 'rule' before numbers..
<2> tag, I made the changes you said to
<12> dkr: the problem is that /blah$/ is ok, but not /$blah/, so a simple filter for good chars is not that simple
<2> I'm getting this error now "Can't locate object method "get" via package "LWP::UserAgent""
<20> Aerdan: It should be really simple actually
<20> MarkP: Fascinating.
<13> PeterThoeny: yeah, harder problem. i was just reading abotu the tainting stuff(capturing to $1 "untaints" data) why not just eyeball them since you haeva static list? you are going to let people input new ones in the future?
<23> buu: oh...?
<20> Aerdan: Just match 0x[a-f0-9] and turn it in to a bl::number or whatever I called the damnt hings
<16> i now have a 1.2gb cd from which i am now installing monkey island 4!
<16> YES its installing all the files correctly
<20> BL::Opcode->DATA apparently
<12> another example: '/from\/extra\;char/to/' is ok, but not '/from/(?e)func()/' (not sure thow if (?e) can be used instead of ///e)
<20> Aerdan: Look at the code that matches numbers
<12> there will be several pages with regexes, one per converter
<16> hmm never say ?e before neat
<12> i'd like to keep those wiki pages open so that people can contribute a converter
<23> buu: which is...wherenow? Parser.pm or Opcode.pm?
<13> eval: $blah='foo'; $_='foo'; m'$blah'
<22> dkr:
<12> hence the need to sanitize the regexes
<13> eval: $blah='foo'; $_='$blah'; m'$blah'
<22> dkr:
<20> Aerdan: Parser
<20> Aerdan: Line 878 or so
<23> thhat regex makes my brain hurt. :(
<20> PeterThoeny: You actually don't need to sanitize regexen all that much, unless you're trying to prevent metachars from killing the match
<20> Aerdan: Yeah I have no idea what the hell it does
<20> Aerdan: But you should be able to add an 'elsif( /0x\w../ ) { push @final, BL::Opcode->.. }
<24> could someone give me an example of how to use said of BasicBot ?
<7> check teh examples dir in the distribution
<23> buu: so smth like this? /0x[0-9a-fA-F]/
<12> right now i have this code, which s**ks:
<12> foreach my $rule (@rules) {
<12> $rule =~ /^(.*)$/;
<12> $rule = $1; # FIXME - this is a security hole!
<12> eval( "\$text =~ $rule;" );
<12> }
<7> PeterThoeny: paste.
<16> no pasting in the channel
<7> (bin)
<7> efaistos: http://search.cpan.org/src/TOMI/Bot-BasicBot-0.7/examples/
<8> sparkman's url is at http://xrl.us/ox6s
<16> thats your one warning
<12> oh, sorry
Return to
#perl
or
Go to some related
logs:
#css
#lisp
perl remove slashes -php
#php
#math
Linus Torvaulds
ubuntu azureus did not shutdown properly
mod_ntlm2+rpm+suse
get rid of dynamic outlines in Internet Explorer
DirectFB/core/vt: Error opening `/dev/tty0'!
|
|