; AmigaguideInspector - Inspects Amigaguide files for security risks; Copyright (C) 2004 Safalra (Stephen Morley);; This program is Free software; you can redistribute it and/or modify; it under the terms of the GNU General Public License as published by; the Free Software Foundation; either version 2 of the License, or; (at your option) any later version.;; This program is distributed in the hope that it will be useful,; but WITHOUT ANY WARRANTY; without even the implied warranty of; MERCHANTABILITY OR FITNESS For A PARTICULAR PURPOSE. See the; GNU General Public License For more details.;; You should have received a copy of the GNU General Public License; along with this program; if not, write to the Free Software; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.€أ; Version string for the 'version' commandver$="$VER:1.0 (07/10/2004)"; Goto help subroutine if necessary€ €‰ µ € help€ µ<>1 € help€ ـ—(µ(1))="help" € help; Attempt to open file€ €‰ ¾(0,µ(1)) ف‚ "Error: The specified file could not be opened" €€ہ¾ 0; This makes the code simplerـ™ €ئ; Secrity risk countssystem=0onopen=0onclose=0rx=0rxs=0فپ "Security inspection in progress... "€ €‰ ¾ (0) text$=ف(1000) open=ـ‰(text$,"@{") € ـ‰(text$,"@onopen")>0 onopen=onopen+1 € ـ‰(text$,"@onclose")>0 onclose=onclose+1 ; For link-style security risks € open>0 close=ـ‰(text$,"}",open) i=ـ‰(text$," system ",open) € i>0 €B i0 €B i0 €B i