#!/usr/bin/perl -w ### Script to switch graphical images to show load balancing in BadStore.net v1.2.3s ### ### Specify required PERL modules ### use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n"; print "

BadStore.net - Switch Images

\n"; ### Switch graphical identity ### if (-e "/usr/local/apache/htdocs/images/Thumbs.db") { `rm /usr/local/apache/htdocs/images/Thumbs.db `; `tar -C /usr/local/apache/htdocs/images/ -xzvf /usr/local/apache/data/origimages.tgz `; print "Original Graphics Loaded...\n"; } else { `tar -C /usr/local/apache/htdocs/images/ -xzvf /usr/local/apache/data/lbimages.tgz `; print "Alternate Graphics Loaded...\n"; } print "\n";