Okay, I just wrote a quick little test script that should work as far as I can tell. I copied the functions exactly as they were in the original script, restored my index file, and then ran the script. The result, a blank backup.html file. What gives? 
#!/usr/bin/perl -w
use strict;

my $index = '../index.php';                            # the main page
+ to be edited
my $index_backup = '../edit/backup.html';                # the main pa
+ge backup
my $url = 'http://www.mywebsite.com/edit/backup.html';


&back_up_file ($index, $index_backup);
&redirect ($url);


# makes an exact copy of the current index file - security incase some
+thing
# were to go wrong when adding the news entry
sub back_up_file {

my ($index, $index_backup) = @_;    

    # open the necessary files needed for reading and writing
    open (INDEX, "<$index") or die &show_error ("Unable to open $index
+: $!");
    open(BACKUP, ">$index_backup") or die &show_error ("Unable to open
+ $index_backup: $!");

    # write the existing file into the backup
    while (<INDEX>) {
    print BACKUP "$_";
    }

    # close the files
    close (INDEX);
    close (BACKUP);
}

# redirects the user to the updated index page - or wherever specified
sub redirect {

use CGI qw(:cgi);

my $url = $_[0];
my $q = CGI->new();

  print $q->redirect(
                   -url    => $url
                  );

}

# shows the error returned inside of the browser - easier debuging
sub show_error {

   print "Content-type: text/html\n\n";
   print "This is the error: <h1>$_[0]</h1>";

    exit(0);   

}

[download]

In reply to Re: CGI troubles - not writing to file by emilford
in thread CGI troubles - not writing to file by emilford

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.