"http://") { $errmsg = "Error: PAD URL must begin with http://
Press the Back button.
"; } elseif (strtolower($padurl) == "http://") { $errmsg = "Error: No PAD URL submitted. Press the Back button.
"; } else { if (!$data = @file($padurl)) { $errmsg = "Error opening $padurl . Press back button and check URL"; } else { //$data = implode(" ",$data); //$data = substr($data, strpos($data,""); //$category = substr($tagarray["$tag"],0,50); $padary = file($padurl); $catinpad = ""; $inpadurl = ""; // added in v2.00.01 (DV) // modified in v2.00.04 (OG) BEGIN for ($i=1; $i"))>5) { // changed in v2.00.01 (DV) $tmp = explode(">", $padary[$i]); $tmp = explode("<", $tmp[1]); $catinpad = $tmp[0]; } // the PAD URL in PAD file if (strlen(stristr($padary[$i], ""))>1) { // added in v2.00.01 (DV) $tmp = explode(">", $padary[$i]); $tmp = explode("<", $tmp[1]); $inpadurl = $tmp[0]; } } // modified in v2.00.04 (OG) END } if($errmsg=="") { // scan and build the entry form $catary = file($catfile); $lastmajor = "xxnone"; $catenter = ""; $usecatinpad = 0; for ($i=0; $i"; // changed in v1.50.03 (DV) if ($cmach2[0] != $lastmajor) { //new major category? $catenter .= "

" . $majorcat . "\n,
\n" . $fulllink; $lastmajor = $cmach2[0]; } else { $catenter .= ",
\n" . $fulllink; } $fullcat=urldecode($fullcat); // added in v2.00.01 (DV) $fullcat=htmlspecialchars($fullcat); // added in v2.00.01 (DV) if ($catinpad == $fullcat) { $usecatinpad = 1; break; } } $catenter .= "
 \n"; $category=urlencode($catinpad); // added in v2.00.01 (DV) if(strcasecmp($inpadurl,htmlspecialchars($padurl))<>0) { // added in v2.00.01 (DV) $errmsg = "Error: submitted url ($padurl) does not match url inside PAD file ($inpadurl). Click back button and correct the URL"; } else { if ($usecatinpad == 1) { $showarg = "padurl=" . $padurl . "&padcat=" . $category; header ("Location: $myurlprefix/addpad.php?$showarg\n\n"); exit; } else { $errmsg = "Could not find a category in your PAD file matching those used on this site. "; $errmsg .= "Please click on a category below to select closest match."; $errmsg .= $catenter; } } } } echo " PAD Submit Checking " ?> " ?>