Hi, if anyone can help to decifer what this means it would be hugely appreciated:
<html>#!/usr/local/bin/perl # ================================================================== # File manager - enhanced web based file management system # # Website : http://gossamer-threads.com/ # Support : http://gossamer-threads.com/scripts/support/ # Revision : $Id: fileman.cgi,v 1.10 2003/02/07 19:57:13 alex Exp $ # # Copyright (c) 2001 Gossamer Threads Inc. All Rights Reserved. # Redistribution in part or in whole strictly prohibited. Please # see LICENSE file for full details. # ================================================================== use lib '/data/config/fileman/lib'; use strict; use vars qw/$CFG_PATH/; use GT::Base qw/:all/; use GT::CGI; use GT::FileMan; $| = 1; local $SIG{__DIE__} = \>::FileMan::fatal; $CFG_PATH = '/data/config/fileman/lib/FileMan/ConfigData.pm'; main(); sub main () { #------------------------------------------------------------------- # Main process # require FileMan::Admin; my $fm = new FileMan::Admin; $fm->process(cfg_path => $CFG_PATH); }
</html>
I am new to learning the website and html, perl etc. and have been having problems with my website and have never seen this code attatched to my website before in the Directory: root: /cgi-bin
Just wondering what it actually means
Thanks for any and all help!
Dave
<html>#!/usr/local/bin/perl # ================================================================== # File manager - enhanced web based file management system # # Website : http://gossamer-threads.com/ # Support : http://gossamer-threads.com/scripts/support/ # Revision : $Id: fileman.cgi,v 1.10 2003/02/07 19:57:13 alex Exp $ # # Copyright (c) 2001 Gossamer Threads Inc. All Rights Reserved. # Redistribution in part or in whole strictly prohibited. Please # see LICENSE file for full details. # ================================================================== use lib '/data/config/fileman/lib'; use strict; use vars qw/$CFG_PATH/; use GT::Base qw/:all/; use GT::CGI; use GT::FileMan; $| = 1; local $SIG{__DIE__} = \>::FileMan::fatal; $CFG_PATH = '/data/config/fileman/lib/FileMan/ConfigData.pm'; main(); sub main () { #------------------------------------------------------------------- # Main process # require FileMan::Admin; my $fm = new FileMan::Admin; $fm->process(cfg_path => $CFG_PATH); }
</html>
I am new to learning the website and html, perl etc. and have been having problems with my website and have never seen this code attatched to my website before in the Directory: root: /cgi-bin
Just wondering what it actually means
Thanks for any and all help!
Dave