How do I read code from another file into my script?

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

How would I change a script from using the included "@referers" to a separate file using "require" to read it?

@referers = ('www.gate.net/~earthdes',
         'file:/guest.htm',
         'http://www.jamilin.com/');

# Check Referring URL
&check_url;

sub check_url {

   if ($ENV{'HTTP_REFERER'}) {
      foreach $referer (@referers) {
         if ($ENV{'HTTP_REFERER'} =~ /$referer/i) {
            $check_referer = '1';
        last;
         }
      }
   }
   else {
      $check_referer = '1';
   }

   if ($check_referer != 1) {
      &error('bad_referer');
   }
}
[download]

Originally posted as a Categorized Question.

Comment on How do I read code from another file into my script? Download Code

Replies are listed 'Best First'.
Re: How do I read code from another file into my script? by httptech (Chaplain) on May 10, 2000 at 16:09 UTC
I'm not sure if you're wanting to put the @referers variable into a separate file, or if you're wanting to put the check_url subroutine there, but just think of a required file as if it were cut and pasted in the exact spot where you put the "require" statement. So, just cut whatever you want out of your main script, put it in a separate file, and put the require "otherfile.pl" in its place. However, you should realize that the HTTP_REFERER variable is useless as a security measure, since it is set by the browser, and anyone can bypass your check with some basic perl.	[reply]
RE: Answer: How do I implement by Anonymous Monk on May 11, 2000 at 07:37 UTC
Thank you very much for the answer. As for security, the referers rquire file is to allow only someone from the listed domains. If you can think of any other security solution, I'm all ears ! Peter	[reply]