Permalink
Browse files

the gui is dead

  • Loading branch information...
1 parent 54c9222 commit fed9a4c392df1ee71557bb544c8fa288ce758489 @georgiaw committed Dec 27, 2012
Binary file not shown.
View
@@ -1,47 +0,0 @@
-#!/usr/bin/perl
-BEGIN { use CGI::Carp qw(fatalsToBrowser); };
-use DBI;
-use Cwd;
-use FindBin qw($Bin);
-use lib "$Bin/lib";
-use SPF;
-use CGI ':cgi-lib';
-
-my %FORM = Vars();
-$exploit = $FORM{"exploit"};
-$hPath = $FORM{"hostingPath"};
-$fileName = $FORM{"fileName"};
-$phNo2Attack = $FORM{"phNo2Attack"};
-$modemNo = $FORM{"modemNoDD2"};
-
-##----- put your code here
-my %Variables = SPF::readconfig();
-my $dbh = SPF::dbconnect(%Variables);
-#print "Content-type: text/html\r\n\r\n";
-$webserver = $Variables{"WEBSERVER"};
-
-$Variables{"OS"} = $^O;
- $sql = $dbh->prepare("SELECT id FROM modems WHERE number = ?");
- $results = $sql->execute($modemNo);
- @rows = $sql->fetchrow_array();
- $modem = @rows[0];
-@exec = (qw(perl androidwebkit.pl),$hPath,$fileName,$phNo2Attack,$modem);
- $pid = fork;
- die "fork failed" unless defined $pid;
- if ($pid ==0)
- {
-
- open STDIN,'<','/dev/null';
- open STDOUT,'<','/dev/null';
- open STDERR,'>&STDOUT';
- exec {$exec[0]} @exec;
-
-
- }
-
-
-
-##----- end of your code
-
-my $url = "menu.pl";
-print "Location: $url\n\n";
View
@@ -1,44 +0,0 @@
-#!/usr/bin/perl
-BEGIN { use CGI::Carp qw(fatalsToBrowser); };
-use DBI;
-use Cwd;
-use FindBin qw($Bin);
-use lib "$Bin/lib";
-use SPF;
-use CGI ':cgi-lib';
-
-my %FORM = Vars();
-$platform = $FORM{"platformDD2"};
-$path = $FORM{"hostingPath"};
-$filename = $FORM{"fileName"};
-$number = $FORM{"phNo2Attack"};
-$modemNo = $FORM{"modemNoDD2"};
-
-
-##----- put your code here
-my %Variables = SPF::readconfig();
-my $dbh = SPF::dbconnect(%Variables);
-#print "Content-type: text/html\r\n\r\n";
-$webserver = $Variables{"WEBSERVER"};
-
-$Variables{"OS"} = $^O;
- $sql = $dbh->prepare("SELECT id FROM modems WHERE number = ?");
- $results = $sql->execute($modemNo);
- @rows = $sql->fetchrow_array();
- $modem = @rows[0];
-@exec = (qw(perl directdownload.pl),$path,$filename,$number,$platform,$modem);
- $pid = fork;
- die "fork failed" unless defined $pid;
- if ($pid ==0)
- {
-
- open STDIN,'<','/dev/null';
- open STDOUT,'<','/dev/null';
- open STDERR,'>&STDOUT';
- exec {$exec[0]} @exec;
- }
-#print $startcommand;
-##----- end of your code
-
-my $url = "menu.pl";
-print "Location: $url\n\n";
Oops, something went wrong.

0 comments on commit fed9a4c

Please sign in to comment.