1 #!/usr/bin/perl -w 2 use CGI qw(:standard); 3 use CGI::Carp qw(warningsToBrowser fatalsToBrowser); 4 use strict; 5 #### adding the bits from teat.pl 6 use warnings; 7 use LWP::Simple; 8 9 ###### setting up the variables for the form 10 my $query; 11 my $p; # chaged this for trouble shooting 12 #my $variable_name = param("srNumber"); 13 my $variable_name = 194951021; 14 15 16 17 ####### adding teat.pl 18 #here I take the number form the form and try to pull down pag +e 19 # This fails with 500 error, but testing it through a browser +it works, 20 # Hence the resion for the print statment 21 my $url = "http://test.test.com/pending/$variable_name"; 22 #print "\n This is the web site that I'm trying to got to : $u +rl"; 23 my $file = 'testPseweb2.html'; 24 my $status = getstore($url, $file); 25 die "Error $status on $url" unless is_success($status); 26 27 28 29 30 31 ####### this part parses the file pulled down from lwp, and pi +ck out what I want 32 my $img; 33 my $src; 34 my $alt; 35 my $a; 36 my $href; 37 my $href2; 38 my $msup; 39 my $msupdir; 40 my $substrMsup; 41 42 43 open(IN, "<$file") || die "Can't open $file: $!"; 44 while (<IN>) { 45 my @array_of_data = <IN>; 46 47 foreach my $line (@array_of_data) 48 { 49 50 chomp($line); 51 52 if ($line =~ /vm-support/i) 53 { 54 55 ################Now do something in this if st +atment 56 ############ Split The file, and pick out t +he correct word for time and date. 57 ##I'm picking out what I want out of the web p +age here 58 ($img, $src, $alt, $a, $href) = split (' ', $l +ine); 59 ($href2, $msup, $msupdir) = split ('"', $href) +; 60 ($substrMsup) = split ('/', $msup); 61 } 62 } 63 } 64 close(IN); 65 66 print header; 67 print start_html("Thank You"); 68 print h2("Thank You"); 69 70 #print "variable name: $variable_name"; 71 #print "vm-support: $substrMsup"; 72 print end_html; 73 74 75 76
In reply to running cgi off the command line works, but running on the browser fails with a 500 error by pat_rice_irl
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |