cacert/cacert-webdb
9
0
Fork 0
Code Issues Pull requests 3 Projects Releases 4 Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
root 2008-04-06 12:16:18 +00:00
parent 87008c90e1
commit 672e2e15de
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
cacertupload.pl
View file

@ -1,4 +1,21 @@
#!/usr/bin/perl #!/usr/bin/perl
#LibreSSL - CAcert web application
#Copyright (C) 2004-2008 CAcert Inc.
#
#This program is free software; you can redistribute it and/or modify
#it under the terms of the GNU General Public License as published by
#the Free Software Foundation; version 2 of the License.
#
#This program is distributed in the hope that it will be useful,
#but WITHOUT ANY WARRANTY; without even the implied warranty of
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
#GNU General Public License for more details.
#
#You should have received a copy of the GNU General Public License
#along with this program; if not, write to the Free Software
#Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
use LWP::UserAgent; use LWP::UserAgent;
$ua = LWP::UserAgent->new(agent => 'Translingo Client 1.0'); $ua = LWP::UserAgent->new(agent => 'Translingo Client 1.0');
use HTTP::Request::Common qw(POST); use HTTP::Request::Common qw(POST);