#!/usr/bin/perl use CGI qw/:standard/; use CGI::Carp 'fatalsToBrowser'; print header; print start_html('Bin'); 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 -R +x /org/org.emacswiki/cgi-bin/localnames-server`; `chmod -R o+x /org/org.emacswiki/htdocs/wiki`; # `rm -rf /org/org.emacswiki/htdocs/astrid /org/org.emacswiki/htdocs/steffi`; #$base = "/org/org.emacswiki/htdocs/alex"; #chdir $base or die "Cannot chdir to $base, $!"; #print "
";
#foreach $f (glob("../*/keep/*/*/*")) {
#    if ($f !~ /kp$/) {
# 	print $f, "\n";
#	unlink $f;
#    }
#}
#print "
"; # print pre(`tar xvzf recode.tar.gz`); # print pre(`chmod -R g+xw /org/org.emacswiki/htdocs/alex`); # print p('Done.'); # use POSIX qw(locale_h); # setlocale('en_US.utf8'); # print pre(`locale`); # `rm -rf /org/org.emacswiki/htdocs/*/page/*/*.db`; # `rm -rf /org/org.emacswiki/htdocs/*/keep/*/*.kp`; # print pre(`ls -l /org/org.emacswiki/mail/alex/*`); # `cp /org/org.emacswiki/mail/alex/cur/* /home/aschroeder/tmp/`; # `chmod g+rw /home/aschroeder/tmp/*`; # `chmod -R g+xw /org/org.emacswiki/htdocs/*/*rc.log`; # do "$base/alex/convert.pl"; # `rm /org/org.emacswiki/htdocs/alex/page/other/.db`; # `chmod -R g+xw /org/org.emacswiki/htdocs/emacs`; # `rm -rf /org/org.emacswiki/htdocs/test/`; # `chmod -R a+wx /org/org.emacswiki/htdocs/emacs2/`; # `rm -rf /org/org.emacswiki/htdocs/alex/referer/`; # `rm -rf /org/org.emacswiki/htdocs/oddmuse/referer/`; # `chmod a+w /org/org.emacswiki/htdocs/steffi`; # `rm alex/referer/S/SandBox.rb`; # `chmod g+w steffi/config`; # `mv xsteffi/config steffi/config`; # `chmod -R a+r /org/org.emacswiki/htdocs/elisp/`; # `chmod a+r /org/org.emacswiki/htdocs/archive.tar.gz`; # `rm -rf /org/org.emacswiki/htdocs/oddmusex/`; # `rm -rf /org/org.emacswiki/htdocs/oddmuse/page/otherx/`; # print `mv configx config`; # print `mv oddmuse oddmuse-old; tar xzf utf-oddmuse.tar.gz`; # copy("emacs-fr.pl", "emacs-fr.txt"); # print pre(`chmod +x emacs-fr.pl`); # print pre(`ls -l $base/cgi-bin`); # `rm htdocs/claudia/index.html*`; # print `ls htdocs/claudia/*`; print end_html;