Hello and welcome to our community! Is this your first visit?
Register
Enjoy an ad free experience by logging in. Not a member yet? Register.
Results 1 to 7 of 7
  1. #1
    New Coder
    Join Date
    Sep 2002
    Posts
    17
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Link/html verification spider - cgi/perl

    anyone know where i can get this particular spider:
    type url into a box, click submit and if that page (typed in) contains the correct html insert/link (pre defined in script) then it goes to a certain page and if not, goes to another page.

    free would be preferable, thanks in advance.

    SNOOP
    http://www.linksking.com - increase links to your site
    http://www.mr-freebie.com - thousands of freebies!

  • #2
    New to the CF scene
    Join Date
    Aug 2002
    Location
    PA
    Posts
    8
    Thanks
    0
    Thanked 0 Times in 0 Posts
    #html file

    <html.............>
    <form action=somecgifile.cgi method=post>
    <input type=text name=teststring><br>
    <input type=submit value=submit>
    <input type=reset value=clear>
    </form>
    <............/html>



    Code:
    #the cgi file
    #!perls home (loctation on server Hard drive)
    use CGI qw(:standard);
    #
    my ($teststring,$buffer,$name,$value,$pathone,$pathtwo);
    #
    $pathone="htpp:somesite.com";
    $pathtwo="http:anothersite.com";
    #
    read(STDIN,$buffer,$ENV{CONTENT_LENGTH});
    chomp $buffer; # i think will take away the ending '&'
    ($name,$value)=split(/=/,$buffer);
    $teststring=$value;
    #
    if($teststring eq ('http:ihopethiscodeworks.com') || ('http:www.ihopethiscodeworks.com')){
    print "Location: $pathone";}
    #
    else {print "Location: $pathtwo";}
    -TECHNOPHOBIA-

  • #3
    New Coder
    Join Date
    Sep 2002
    Posts
    17
    Thanks
    0
    Thanked 0 Times in 0 Posts
    thanks
    http://www.linksking.com - increase links to your site
    http://www.mr-freebie.com - thousands of freebies!

  • #4
    New Coder
    Join Date
    Sep 2002
    Posts
    17
    Thanks
    0
    Thanked 0 Times in 0 Posts

    problem

    i had a problem with that script, reffering to line 6 any help?
    http://www.linksking.com - increase links to your site
    http://www.mr-freebie.com - thousands of freebies!

  • #5
    New to the CF scene
    Join Date
    Aug 2002
    Location
    PA
    Posts
    8
    Thanks
    0
    Thanked 0 Times in 0 Posts
    take out the
    chomp $buffer; # i think will take away the ending '&'

    and paste this over its old version

    if($teststring eq (('http:ihopethiscodeworks.com') || ('http:www.ihopethiscodeworks.com')))
    {print "Location: $pathone";
    }else {print "Location: $pathtwo";}



    i wrote it out quick from my head and i didnt test it. I didnt test this ether.

    good luck
    -TECHNOPHOBIA-

  • #6
    New Coder
    Join Date
    Sep 2002
    Posts
    17
    Thanks
    0
    Thanked 0 Times in 0 Posts

    still problem

    an error still appears '500 internal server error'
    any ideas

    thanks
    http://www.linksking.com - increase links to your site
    http://www.mr-freebie.com - thousands of freebies!

  • #7
    New Coder
    Join Date
    Sep 2002
    Posts
    17
    Thanks
    0
    Thanked 0 Times in 0 Posts

    i

    i
    http://www.linksking.com - increase links to your site
    http://www.mr-freebie.com - thousands of freebies!


  •  

    Posting Permissions

    • You may not post new threads
    • You may not post replies
    • You may not post attachments
    • You may not edit your posts
    •