В работе

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, software write edid, 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 technical manual

О работодателе:
( 1 отзыв ) Salem, United States

ID проекта: #11763004

Поручено:

$15 USD за 1 день
(0 отзывов(-а) )
0.0

2 фрилансеров(-а) подали заявки на эту работу; средняя заявка - $23

zkutch

Hello. More 20 years programming experience. I need more details to set real time and price. Regards. -------------------------------------------------------------------------------------------------------------- Больше

$30 USD за 1 день
(22 отзывов(-а))
4.8