Completado

Write some Software

Este proyecto fue completado exitosamente por kuzmichmurom por $15 USD en un día.

Obtén cotizaciones gratis para un proyecto como este
Empleador trabajando
Presupuesto de Proyecto
$10 - $30 USD
Completado En
1 día
Ofertas Totales
2
Descripción del Proyecto

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]") ;

#}

Buscando hacer algo de dinero?

  • Establece tu presupuesto y período de tiempo
  • Describe tu propuesta
  • Consigue pago por tu trabajo

Contrata Freelancers que también oferten en este proyecto

    • Forbes
    • The New York Times
    • Time
    • Wall Street Journal
    • Times Online