#!/usr/bin/perl use CGI qw/:standard/; use CGI::Carp 'fatalsToBrowser'; do '/org/org.emacswiki/htdocs/password.pl'; die 'Wrong Password' if param('pwd') ne $OddMuse::AdminPass; print header; print start_html('Emacs Wiki Linking Scripts'); sub copy { local $/ = undef; # Read complete files my ($old,$new) = @_; unlink($new); open (F, $old); open (G, ">$new"); my $content = ; print G $content; close F; close G; chmod 0644, $new; } $base = "/org/org.emacswiki"; chdir ("$base/cgi-bin"); if (-f "new.pl") { chmod(0744,"new.pl"); unlink("old.pl"); rename("current.pl", "old.pl"); rename("new.pl", "current.pl"); } print pre(`ls -l $base/cgi-bin $base/htdocs`); print end_html;