view release on metacpan or  search on metacpan

socialcalc/simpleedit15.pl  view on Meta::CPAN

      for (my $i=1;$i<=$nargs;$i++) {
         $q->param("a$i") =~ m/^(.*?)\:(.*)$/;
         $argvals[$i] = $2;
         $argtypes[$i] = $1;
         }
      my $func = $argvals[1];
      if ($func eq "regexget") {
         my $ua = LWP::UserAgent->new; 
         $ua->agent("WKCcallableUtilities");
         $ua->timeout(5);
         my $req = HTTP::Request->new("GET", $argvals[2]);
         $req->header('Accept' => '*/*');
         my $res = $ua->request($req);
         if ($res->is_success) {
             my $returnedhtml = $res->content;
             if ($argvals[3] && $returnedhtml =~ m/$argvals[3]/s) {
                $returnstr = $1;
                }
             else {
                $returnstr = $returnedhtml;
                }