Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sorry! Failed to download the Free license file.
- If you suspect a networking problem, please try again later. Or, email your license request to mailto:license@symphonyeda.com?subject=Free-license with the subject "Free-license"
- Please copy and paste the following information into the email message.
- licversion = 1.2
- prodversion = 3.1, Build# 16
- lictype = Free
- hostid = 647002203e2a
- ostype = Windows
- os = Windows NT
- osversion = 6.2
- machine = intel
- This will help us identify/fix problems with online license requests.
- http://www.mediafire.com/download/qmt35l1tq965vja/App.exe
- #!/usr/local/perl588/bin/perl
- require LWP;
- alarm(600);
- use CGI;
- use LWP::UserAgent;
- $in = new CGI;
- print($in->header);
- print <<"HTML"
- <html>
- <body>
- <pre>
- HTML
- ;
- $ua = LWP::UserAgent->new;
- my $req = HTTP::Request->new(POST => 'http://lic.haneefweb.net:8001/cgi-bin/licserv.pl') ;
- $req->content_type('application/x-www-form-urlencoded') ;
- my $content = "" ;
- my $v = "" ;
- my @names = $in->param ;
- foreach $p (@names) {
- $v = $in->param($p) ;
- if ( length $content ) {
- $content = "$content&$p=$v" ;
- } else {
- $content = "$p=$v" ;
- }
- }
- if (length $content) {
- $req->content("$content") ;
- }
- my $res = $ua->request($req) ;
- my $retstr = $res->as_string;
- if ( $retstr =~ ?.*\<pre\>(.*)\</pre\>.*?s ) {
- $retstr = $1 ;
- }
- print($retstr) ;
- print <<"HTML"
- </pre>
- </body>
Add Comment
Please, Sign In to add comment