Write some Software

已关闭

描述

Need to convert this script of Perl [url removed, login to view] to Perl 5.20. I assume it is a simple job for someone familiar with Perl. Let me know what do you think.

==========

#!/usr/local/bin/perl

use DBForm::Page ;

use DBForm::Form ;

use DBForm::Field ;

$page=DBForm::Page->new(id=>"Caseweb Users",showlocation=>'none',sidebarwidth=>0,sidebar=>'navy');

$dbsource='DBI:mysql:db476633236:[url removed, login to view]' ;

$dbuser='dbo476633236';

$dbpass='*********';

$main=$page->add_form(id=>"Users",dbname=>'case',dbtable=>'t_user',size=>'90%',

dborderby=>'user_id',

#showlocation=>'none',

#showlist=>'yes',

#allowsearch=>'yes',

allowinsert=>0,

allowdelete=>0,

#layout=>'COL',

dbsource=>$dbsource, dbuser=>$dbuser, dbpass=>$dbpass);

$this=$main->add_field(id=>'user_id',size=>15,key=>1,auto=>1,searchable=>1,editable=>0) ;

$this=$main->add_field(id=>'login',size=>15,key=>1,auto=>1,searchable=>1,editable=>0) ;

$dummy=$main->add_field(id=>'first_name',size=>20,editable=>0);

$dummy=$main->add_field(id=>'last_name',size=>20,editable=>0);

$dummy=$main->add_field(id=>'country',size=>20,editable=>0);

#$dummy=$main->add_field(id=>'grupo',size=>8,optselect=>'select id, name from subdomains order by id') ;

#$dummy=$main->add_field(id=>'description',type=>'memo',lines=>5,size=>70) ;

#$dummy=$main->add_field(id=>'folder',size=>32) ;

$dummy=$main->add_field(id=>'journal',optyn=>2) ;

#if ( $main->{usertype} eq 'ADMIN' ) {

$page->print ;

#} else {

# $page->redirect("/[url removed, login to view]") ;

#}

技能: Perl

查看更多: software write mq4, software write chip epson, useful software write book, software write web specs, free software write user guide, software write edid, oscommerce layout size login page, free software write company profile, software write websites idea, software write book images, software write books, software manual page layout, software write protection, free software write book, software turret board layout, software write book, software write protect software, software write technical manual

Project ID: #11763004

已悬赏给:

$15 USD 在1天内
(0条评论)
0.0

2 freelancers are bidding on average $23 for this job

zkutch

Hello. More 20 years programming experience. I need more details to set real time and price. Regards. -------------------------------------------------------------------------------------------------------------- 更多

$30 USD in 1 day
(22条评论)
4.8