1 files changed, 0 insertions, 114 deletions
diff --git a/users/warpzero/SL/source/submit.pl b/users/warpzero/SL/source/submit.pl
deleted file mode 100644
index e344be3201..0000000000
--- a/users/warpzero/SL/source/submit.pl
+++ /dev/null
@@ -1,114 +0,0 @@
-#!/usr/bin/perl -w
-# Submission script for the CFLAGS/cpuinfo collection project
-# Submits data to the web form on http://slinky.surrey.sfu.ca/~robbat2/cflagcollect/
-# Requires your email address as a parameter
-# Assumes that you don't mind your system info being public
-use LWP;
-use LWP::UserAgent;
-
-# A little helper func I found on the net.
-sub URLEncode {
-	my $theURL = $_[0];
-	$theURL =~ s/([\W])/"%" . uc(sprintf("%2.2x",ord($1)))/eg;
-	return $theURL;
-}
-
-# check for valid email address
-$argc = @ARGV;
-if($argc == 0 or !($ARGV[0] =~ /\@/)) {
-$s = "That isn't a valid email address!\nPlease run this program as '$0 emailaddress'\nEG: '$0 foo\@bar.com'\n";
-die $s;
-}
-# This is ALL of the data we collect from the system
-print "This may take up to 30 seconds depending on your CPU speed and RAM.\n";
-print "Collecting data ";
-$email = $ARGV[0];
-print ".";
-$machinename = `uname -n`;
-print ".";
-$cflags = `emerge info  2>&1|grep CFLAGS|cut -d= -f2-|xargs`;
-print ".";
-$cxxflags = `emerge info  2>&1|grep CXXFLAGS|cut -d= -f2-|xargs`;
-print ".";
-$chost = `emerge info  2>&1|grep CHOST|cut -d= -f2-|xargs`;
-print ".";
-$gccver = `gcc -v 2>&1`;
-print ".";
-$binver = `ld -v`;
-print ".";
-$cpuinfo = `cat /proc/cpuinfo`;
-print "Done!\n";
-
-print "Processing data ";
-%data = ( 
-'email'=>$email,
-'machinename'=>$machinename,
-'public'=>'on',
-'cflags'=>$cflags,
-'chost',$chost,
-'cxxflags'=>$cxxflags,
-'gccver'=>$gccver,
-'binver'=>$binver,
-'cpuinfo'=>$cpuinfo
-);
-print ".";
-@alldata = sort(keys(%data));
-print ".";
-$str = 'submit=submit';
-print ".";
-foreach $key(@alldata) {
-	print ".";
-	$str .= "&".$key."=".URLEncode("$data{$key}");
-}
-print "Done!\n";
-print "Sending data ";
-
-# Create a user agent object
-$ua = LWP::UserAgent->new;
-print ".";
-$ua->agent("CflagsSubmitted/0.2");
-print ".";
-#
-## Create a request
-#$target = 'http://slinky.surrey.sfu.ca/~robbat2/cflagcollect/';
-$target = 'http://gentoo.slinky.surrey.sfu.ca/cflagcollect/';
-$file = 'submit.php';
-my $req = HTTP::Request->new(POST => $target . $file .'?'.$str);
-print ".";
-$req->content_type('application/x-www-form-urlencoded');
-print ".";
-$req->content($str);
-print ".";
-
-# Pass request to the user agent and get a response back
-my $res = $ua->request($req);
-print "Done!\n";
-
-# Check the outcome of the response
-if ($res->is_success) {
-	#print $res->content;
-	if($res->content =~ /Done/) {
-		print "Data sent successfully\n";
-	} else {
-		print "Error on the server side!\n";
-	print $res->content;
-	}
-} else {
-	print "Error sending data on this side!\n";
-}
-
-#print "Content-type: text/html\n\n"; 
-#use HTTP::Request::Common qw(POST); 
-#use LWP::UserAgent; 
-#
-#$ua2 = LWP::UserAgent->new(); 
-#$ua2->agent("CflagsSubmitted/0.1 ");
-#my $req = POST 'http://slinky.surrey.sfu.ca/~robbat2/cflagcollect/', 
-#[ first_name => $firstname, email => $email]; 
-#
-#$content = $ua2->request($req)->as_string; 
-#
-#print "content = $content"; 
-
-
-