summaryrefslogtreecommitdiff
path: root/bin/admin.pl
blob: 222237e6cd2b1e69b3b158a2b5d490acdc2d9dfd (plain) 
    

  1. #=====================================================================
    2. 

  2. # LedgerSMB 
    3. 

  3. # Small Medium Business Accounting software
    4. 

  4. # http://www.ledgersmb.org/
    5. 

  5. #
    6. 

  6. # 
    7. 

  7. # Copyright (C) 2006
    8. 

  8. # This work contains copyrighted information from a number of sources all used
    9. 

  9. # with permission.
    10. 

  10. #
    11. 

  11. # This file contains source code included with or based on SQL-Ledger which
    12. 

  12. # is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed
    13. 

  13. # under the GNU General Public License version 2 or, at your option, any later
    14. 

  14. # version.  For a full list including contact information of contributors,
    15. 

  15. # maintainers, and copyright holders, see the CONTRIBUTORS file.
    16. 

  16. #
    17. 

  17. # Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):
    18. 

  18. # Copyright (c) 2000
    19. 

  19. #
    20. 

  20. #  Author: DWS Systems Inc.
    21. 

  21. #     Web: http://www.sql-ledger.org
    22. 

  22. #
    23. 

  23. #  Contributors:
    24. 

  24. #
    25. 

  25. #
    26. 

  26. #======================================================================
    27. 

  27. #
    28. 

  28. # This file has undergone whitespace cleanup.
    29. 

  29. #
    30. 

  30. #======================================================================
    31. 

  31. #
    32. 

  32. # setup module
    33. 

  33. # add/edit/delete users
    34. 

  34. #
    35. 

  35. #======================================================================
    36. 

  36. 

  37. $menufile = "menu.ini";
    38. 

  38. 

  39. use LedgerSMB::Form;
    40. 

  40. use LedgerSMB::Locale;
    41. 

  41. use LedgerSMB::User;
    42. 

  42. use LedgerSMB::Session;
    43. 

  43. 

  44. $form = new Form;
    45. 

  45. 

  46. $locale = LedgerSMB::Locale->get_handle(${LedgerSMB::Sysconfig::language}) or
    47. 

  47.     $form->error("Locale not loaded: $!\n");
    48. 

  48. $locale->encoding('UTF-8');
    49. 

  49. $form->{charset} = 'UTF-8';
    50. 

  50. #$form->{charset} = $locale->encoding;
    51. 

  51. 

  52. eval { require DBI; };
    53. 

  53. $form->error($locale->text('DBI not installed!')) if ($@);
    54. 

  54. 

  55. $form->{stylesheet} = "ledger-smb.css";
    56. 

  56. $form->{favicon} = "favicon.ico";
    57. 

  57. $form->{timeout} = 600;
    58. 

  58. 

  59. require "bin/pw.pl";
    60. 

  60. 

  61. # customization
    62. 

  62. if (-f "bin/custom/$form->{script}") {
    63. 

  63.     eval { require "bin/custom/$form->{script}"; };
    64. 

  64.     $form->error($@) if ($@);
    65. 

  65. }
    66. 

  66. 

  67. 

  68. if ($form->{action}) {
    69. 

  69.     &check_password unless $form->{action} eq 'logout';
    70. 

  70.     &{ $form->{action} };
    71. 

  71. 

  72. } else {
    73. 

  73. 

  74.     # if there are no drivers bail out
    75. 

  75.     $form->error($locale->text('No Database Drivers available!')) unless (LedgerSMB::User->dbdrivers);
    76. 

  76. 

  77.     $root = LedgerSMB::User->new('admin');
    78. 

  78. 

  79.     unless($root && $root->{password}){ 
    80. 

  80.          &setup_initial_password();
    81. 

  81.          exit;
    82. 

  82.     }
    83. 

  83. 

  84.     &adminlogin;
    85. 

  85. }
    86. 

  86. 

  87. 1;
    88. 

  88. # end
    89. 

  89. 

  90. 

  91. sub setup_initial_password {
    92. 

  92.     
    93. 

  93. 

  94.     $form->header();
    95. 

  95.     print qq|
    96. 

  96.     <body class="admin" onload="sf()">
    97. 

  97.     <div align="center">
    98. 

  98.         <a href="http://www.ledgersmb.org/"><img src="ledger-smb.png" width="200" height="100" border="0" alt="LedgerSMB Logo" /></a>
    99. 

  99.         <h1 class="login">|.$locale->text('Version').qq| $form->{version} <br />|.$locale->text('Administration').qq|</h1>
    100. 

  100.         
    101. 

  101.         <fieldset><legend>|.$locale->text('Change password').qq|</legend>
    102. 

  102.         <p>|.$locale->text('This is your first time logging into LedgerSMB.  Please set your administrative password').qq|</p>
    103. 

  103.         
    104. 

  104.         <form method="post" action="$form->{script}" name="admin">
    105. 

  105.                         <table>
    106. 

  106.                         <tr>
    107. 

  107.                             <th align="right">|.$locale->text('Password').qq|</th>
    108. 

  108.                             <td><input type="password" name="new_password" /></td>
    109. 

  109.                         </tr>
    110. 

  110.                         <tr>
    111. 

  111.                             <th align="right">|.$locale->text('Confirm').qq|</th>
    112. 

  112.                             <td><input type="password" name="confirm_password" /></td>
    113. 

  113.                         </tr>
    114. 

  114.                     </table>
    115. 

  115.         <input type="hidden" name="path" value="$form->{path}" />
    116. 

  116.         <input type="hidden" name="sessionid" value="$form->{sessionid}" />
    117. 

  117.         <p><button type="submit" class="submit" name="action" value="change_password">|.$locale->text('Change Password').qq|</button></p>
    118. 

  118.         </form>
    119. 

  119. 

  120.         <a href="http://www.ledgersmb.org/">|.$locale->text('LedgerSMB website').qq|</a>
    121. 

  121.     </div>
    122. 

  122.     </body>
    123. 

  123.     </html>
    124. 

  124. |;  
    125. 

  125. }
    126. 

  126. 

  127. sub adminlogin {
    128. 

  128. 

  129.     $form->{title} = qq|LedgerSMB $form->{version} |.$locale->text('Administration');
    130. 

  130. 

  131.     $myheaderadd = qq|  
    132. 

  132.     <script language="JavaScript" type="text/javascript">
    133. 

  133.     <!--
    134. 

  134.         function sf(){
    135. 

  135.             document.admin.password.focus();
    136. 

  136.         }   
    137. 

  137.     // End -->
    138. 

  138.     </script>
    139. 

  139.     |;
    140. 

  140.     $form->header(undef, $myheaderadd);
    141. 

  141. 

  142.     print qq|
    143. 

  143.     <body class="admin" onload="sf()">
    144. 

  144.     <div align="center">
    145. 

  145.         <a href="http://www.ledgersmb.org/"><img src="ledger-smb.png" width="200" height="100" border="0" alt="LedgerSMB Logo" /></a>
    146. 

  146.         <h1 class="login">|.$locale->text('Version').qq| $form->{version} <br />|.$locale->text('Administration').qq|</h1>
    147. 

  147.         <form method="post" action="$form->{script}" name="admin">
    148. 

  148.         <table>
    149. 

  149.             <tr>
    150. 

  150.                 <th>|.$locale->text('Password').qq|</th>
    151. 

  151.                 <td><input type="password" name="password" /></td>
    152. 

  152.                 <td><button type="submit" class="submit" name="action" value="login">|.$locale->text('Login').qq|</button></td>
    153. 

  153.             </tr>
    154. 

  154.         </table>
    155. 

  155.         <input type="hidden" name="action" value="login" />
    156. 

  156.         <input type="hidden" name="path" value="$form->{path}" />
    157. 

  157.         </form>
    158. 

  158. 

  159.         <p><a href="login.pl"
    160. 

  160.             >|.$locale->text("Application Login").qq|</a></p>
    161. 

  161. 

  162. 

  163.         <a href="http://www.ledgersmb.org/">|.$locale->text('LedgerSMB website').qq|</a>
    164. 

  164.     </div>
    165. 

  165.     </body>
    166. 

  166.     </html>
    167. 

  167.     |;
    168. 

  168. 

  169. }
    170. 

  170. 

  171. 

  172. sub login {
    173. 

  173. 

  174.     &list_users;
    175. 

  175. }
    176. 

  176. 

  177. 

  178. sub logout {
    179. 

  179. 

  180.     $form->{callback} = "$form->{script}?path=$form->{path}&amp;endsession=1";
    181. 

  181.     Session::session_destroy($form);
    182. 

  182.     $form->redirect($locale->text('You are logged out'));
    183. 

  183. 

  184. }
    185. 

  185. 

  186. 

  187. sub add_user {
    188. 

  188. 

  189.     $form->{title} = "LedgerSMB ".$locale->text('Accounting')." ".$locale->text('Administration')." / ".$locale->text('Add User');
    190. 

  190. 

  191.     if (-f "css/ledger-smb.css") {
    192. 

  192.         $myconfig->{stylesheet} = "ledger-smb.css";
    193. 

  193.     }
    194. 

  194. 

  195.     $myconfig->{vclimit} = 1000;
    196. 

  196.     $myconfig->{menuwidth} = 155;
    197. 

  197.     $myconfig->{timeout} = 3600;
    198. 

  198. 

  199.     &form_header;
    200. 

  200.     &form_footer;
    201. 

  201. }
    202. 

  202. 

  203. 

  204. sub edit {
    205. 

  205. 

  206.     $form->{title} = "LedgerSMB ".$locale->text('Accounting')." ".$locale->text('Administration')." / ".$locale->text('Edit User');
    207. 

  207.     $form->{edit} = 1;
    208. 

  208. 

  209.     &form_header;
    210. 

  210.     &form_footer;
    211. 

  211. }
    212. 

  212. 

  213. 

  214. sub form_footer {
    215. 

  215. 

  216.     if ($form->{edit}) {
    217. 

  217.         $delete = qq|<button type="submit" class="submit" name="action" value="delete">|.$locale->text('Delete').qq|</button>
    218. 

  218.                      <input type="hidden" name="edit" value="1" />|;
    219. 

  219.     }
    220. 

  220. 

  221.     print qq|
    222. 

  222.     <input name="callback" type="hidden" value="$form->{script}?action=list_users&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}" />
    223. 

  223.     <input type="hidden" name="path" value="$form->{path}" />
    224. 

  224.     <input type="hidden" name="sessionid" value="$form->{sessionid}" />
    225. 

  225.     <button type="submit" class="submit" name="action" value="save">|.$locale->text('Save').qq|</button>
    226. 

  226.     $delete
    227. 

  227.     </form>
    228. 

  228.     </body>
    229. 

  229.     </html>
    230. 

  230.     |;
    231. 

  231. }
    232. 

  232. 

  233. 

  234. sub list_users {
    235. 

  235. 

  236.     #currently, this is disabled, but will set a value in the central db
    237. 

  237.     #$nologin = qq|<button type="submit" class="submit" name="action" value="lock_system">|.$locale->text('Lock System').qq|</button>|;
    238. 

  238.     #
    239. 

  239.     #if (-e "${LedgerSMB::Sysconfig::userspath}/nologin") {
    240. 

  240.     #   $nologin = qq|<button type="submit" class="submit" name="action" value="unlock_system">|.$locale->text('Unlock System').qq|</button>|;
    241. 

  241.     #}
    242. 

  242. 

  243.     while (<FH>) {
    244. 

  244.         chop;
    245. 

  245. 

  246.         if (/^\[.*\]/) {
    247. 

  247.             $login = $_;
    248. 

  248.             $login =~ s/(\[|\])//g;
    249. 

  249.         }
    250. 

  250. 

  251.         if (/^(name=|company=|templates=|dbuser=|dbdriver=|dbname=|dbhost=)/) {
    252. 

  252.             chop ($var = $&);
    253. 

  253.             ($null, $member{$login}{$var}) = split /=/, $_, 2;
    254. 

  254.         }
    255. 

  255.     }
    256. 

  256. 

  257.     close(FH);
    258. 

  258. 

  259.     # type=submit $locale->text('Pg Database Administration')
    260. 

  260.     # type=submit $locale->text('PgPP Database Administration')
    261. 

  261. 

  262.     foreach $item (LedgerSMB::User->dbdrivers) {
    263. 

  263.         $dbdrivers .= qq|<button name="action" type="submit" class="submit" value="|.(lc $item).'_database_administration">'.$locale->text("$item Database Administration").qq|</button>|;
    264. 

  264.     }
    265. 

    266. 

    267. 

  267.     $column_header{login} = qq|<th>|.$locale->text('Login').qq|</th>|;
    268. 

  268.     $column_header{name} = qq|<th>|.$locale->text('Name').qq|</th>|;
    269. 

  269.     $column_header{company} = qq|<th>|.$locale->text('Company').qq|</th>|;
    270. 

  270.     $column_header{dbdriver} = qq|<th>|.$locale->text('Driver').qq|</th>|;
    271. 

  271.     $column_header{dbhost} = qq|<th>|.$locale->text('Host').qq|</th>|;
    272. 

  272.     $column_header{dataset} = qq|<th>|.$locale->text('Dataset').qq|</th>|;
    273. 

  273.     $column_header{templates} = qq|<th>|.$locale->text('Templates').qq|</th>|;
    274. 

    275. 

  275.     @column_index = qw(login name company dbdriver dbhost dataset templates);
    276. 

  276. 

  277.     $form->{title} = "LedgerSMB ".$locale->text('Accounting')." ".$locale->text('Administration');
    278. 

  278. 

  279.     $form->{login} = "admin";
    280. 

  280.     $form->header;
    281. 

  281. 

  282.     print qq|
    283. 

  283.         <body class="admin">
    284. 

  284.         <form method="post" action="$form->{script}">
    285. 

  285.         <table width="100%">
    286. 

  286.             <tr class="listheading">
    287. 

  287.                 <th>$form->{title}</th>
    288. 

  288.             </tr>
    289. 

  289.             <tr size="5"></tr>
    290. 

  290.             <tr>
    291. 

  291.                 <td>
    292. 

  292.                     <table width="100%">
    293. 

  293.                         <tr class="listheading">|;
    294. 

  294. 

  295.     for (@column_index) { print "$column_header{$_}\n" }
    296. 

  296. 

  297.     print qq|           </tr>|;
    298. 

  298. 

  299.     foreach $key (sort keys %member) {
    300. 

  300. 

  301.         $href = "$script?action=edit&amp;login=$key&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}";
    302. 

  302.         $href =~ s/ /%20/g;
    303. 

  303. 

  304.         $member{$key}{templates} =~ s/^${LedgerSMB::Sysconfig::templates}\///;
    305. 

  305.         $member{$key}{dbhost} = $locale->text('localhost') unless $member{$key}{dbhost};
    306. 

  306. 

  307.         $column_data{login} = qq|<td><a href="$href">$key</a></td>|;
    308. 

  308.         $column_data{name} = qq|<td>$member{$key}{name}</td>|;
    309. 

  309.         $column_data{company} = qq|<td>$member{$key}{company}</td>|;
    310. 

  310.         $column_data{dbdriver} = qq|<td>$member{$key}{dbdriver}</td>|;
    311. 

  311.         $column_data{dbhost} = qq|<td>$member{$key}{dbhost}</td>|;
    312. 

  312.         $column_data{dataset} = qq|<td>$member{$key}{dbname}</td>|;
    313. 

  313.         $column_data{templates} = qq|<td>$member{$key}{templates}</td>|;
    314. 

  314. 

  315.         $i++; $i %= 2;
    316. 

  316.         print qq|       <tr class="listrow$i">|;
    317. 

  317. 

  318.         for (@column_index) { print "$column_data{$_}\n"; }
    319. 

  319. 

  320.         print qq|       </tr>|;
    321. 

  321.     }
    322. 

  322. 

  323. 

  324.     print qq|       </table>
    325. 

  325.                 </td>
    326. 

  326.             </tr>
    327. 

  327.             <tr>
    328. 

  328.                 <td><hr size="3" noshade /></td>
    329. 

  329.             </tr>
    330. 

  330.         </table>
    331. 

  331.         <input type="hidden" name="path" value="$form->{path}" />
    332. 

  332.         <input type="hidden" name="sessionid" value="$form->{sessionid}" />
    333. 

  333.         <br />
    334. 

  334.         <button type="submit" class="submit" name="action" value="add_user">|.$locale->text('Add User').qq|</button>
    335. 

  335.         <button type="submit" class="submit" name="action" value="change_admin_password">|.$locale->text('Change Admin Password').qq|</button>
    336. 

  336. 

  337.         $dbdrivers
    338. 

  338.         $nologin
    339. 

  339. 

  340.         <button type="submit" class="submit" name="action" value="logout">|.$locale->text('Logout').qq|</button>
    341. 

  341.         </form>
    342. 

  342. 

  343.     |.$locale->text('Click on login name to edit!').qq|
    344. 

  344.     <br />
    345. 

  345.     |.$locale->text('To add a user to a group edit a name, change the login name and save.  A new user with the same variables will then be saved under the new login name.').qq|
    346. 

  346. 

  347.     </body>
    348. 

  348.     </html>|;
    349. 

  349. }
    350. 

  350. 

  351. 

  352. sub form_header {
    353. 

  353. 

  354.     # if there is a login, get user
    355. 

  355.     if ($form->{login}) {
    356. 

  356. 

  357.         # get user
    358. 

  358.         %myconfig = %{LedgerSMB::User->fetch_config($form->{login})};
    359. 

  359. 

  360.         for (qw(company address signature)) { $myconfig->{$_} = $form->quote($myconfig->{$_}) }
    361. 

  361.         for (qw(address signature)) { $myconfig->{$_} =~ s/\\n/\n/g }
    362. 

  362. 

  363.         # strip basedir from templates directory
    364. 

  364.         $myconfig->{templates} =~ s/^${LedgerSMB::Sysconfig::templates}\///;
    365. 

  365.         $myconfig->{dbpasswd} = unpack 'u', $myconfig->{dbpasswd};
    366. 

  366.     }
    367. 

  367. 

  368.     foreach $item (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)) {
    369. 

  369.         $dateformat .= ($item eq $myconfig->{dateformat}) ? "<option selected>$item</option>\n" : "<option>$item</option>\n";
    370. 

  370.     }
    371. 

  371. 

  372.     my @formats = qw(1,000.00 1000.00 1.000,00 1000,00 1'000.00);
    373. 

  373.     push @formats, '1 000.00';
    374. 

  374.     foreach $item (@formats) {
    375. 

  375.         $numberformat .= ($item eq $myconfig->{numberformat}) ? "<option selected>$item</option>\n" : "<option>$item</option>\n";
    376. 

  376.     }
    377. 

  377. 

  378. 

  379.     %countrycodes = LedgerSMB::User->country_codes;
    380. 

  380.     $countrycodes = "";
    381. 

  381. 

  382.     foreach $key (sort { $countrycodes{$a} cmp $countrycodes{$b} } keys %countrycodes) {
    383. 

  383.         $countrycodes .= ($myconfig->{countrycode} eq $key) ? qq|<option selected value="$key">$countrycodes{$key}</option>|
    384. 

  384.                                                             : qq|<option value="$key">$countrycodes{$key}</option>|;
    385. 

  385.     }
    386. 

  386. 

  387.     # is there a templates basedir
    388. 

  388.     if (! -d "${LedgerSMB::Sysconfig::templates}") {
    389. 

  389.         $form->error($locale->text('Directory [_1] does not exist', ${LedgerSMB::Sysconfig::templates}));
    390. 

  390.     }
    391. 

  391. 

  392.     opendir TEMPLATEDIR, "${LedgerSMB::Sysconfig::templates}/." or $form->error("$templates : $!");
    393. 

  393.     @all = grep !/^\.\.?$/, readdir TEMPLATEDIR;
    394. 

  394.     closedir TEMPLATEDIR;
    395. 

  395. 

  396.     @allhtml = sort grep /\.html/, @all;
    397. 

  397. 

  398.     @alldir = ();
    399. 

  399.     for (@all) {
    400. 

  400. 

  401.         if (-d "${LedgerSMB::Sysconfig::templates}/$_") {
    402. 

  402.             push @alldir, $_;
    403. 

  403.         }
    404. 

  404.     }
    405. 

  405. 

  406.     @allhtml = reverse grep !/Default/, @allhtml;
    407. 

  407.     push @allhtml, 'Default';
    408. 

  408.     @allhtml = reverse @allhtml;
    409. 

  409. 

  410.     foreach $item (sort @alldir) {
    411. 

  411. 

  412.         if ($item eq $myconfig->{templates}) {
    413. 

  413.             $usetemplates .= qq|<option selected value="$item">$item</option>\n|;
    414. 

  414.         } else {
    415. 

  415.             $usetemplates .= qq|<option value="$item">$item</option>\n|;
    416. 

  416.         }
    417. 

  417.     }
    418. 

  418. 

  419.     $lastitem = $allhtml[0];
    420. 

  420.     $lastitem =~ s/-.*//g;
    421. 

  421.     $mastertemplates = qq|<option value="$lastitem">$lastitem</option>\n|;
    422. 

  422. 

  423.     foreach $item (@allhtml) {
    424. 

  424. 

  425.         $item =~ s/-.*//g;
    426. 

  426. 

  427.         if ($item ne $lastitem) {
    428. 

  428.             $mastertemplates .= qq|<option value="$item">$item</option>\n|;
    429. 

  429.             $lastitem = $item;
    430. 

  430.         }
    431. 

  431.     }
    432. 

  432. 

  433.     opendir CSS, "css/.";
    434. 

  434.     @all = grep /.*\.css$/, readdir CSS;
    435. 

  435.     closedir CSS;
    436. 

  436. 

  437.     foreach $item (@all) {
    438. 

  438. 

  439.         if ($item eq $myconfig->{stylesheet}) {
    440. 

  440.             $selectstylesheet .= qq|<option selected value="$item">$item</option>\n|;
    441. 

  441.         } else {
    442. 

  442.             $selectstylesheet .= qq|<option value="$item">$item</option>\n|;
    443. 

  443.         }
    444. 

  444.     }
    445. 

  445. 

  446.     $selectstylesheet .= "<option></option>\n";
    447. 

  447. 

  448.     if (%{LedgerSMB::Sysconfig::printer} && ${LedgerSMB::Sysconfig::latex}) {
    449. 

  449. 

  450.         $selectprinter = "<option></option>\n";
    451. 

  451. 

  452.         foreach $item (sort keys %{LedgerSMB::Sysconfig::printer}) {
    453. 

  453. 

  454.             if ($myconfig->{printer} eq $item) {
    455. 

  455.                 $selectprinter .= qq|<option value="$item" selected>$item</option>\n|;
    456. 

  456.             } else {
    457. 

  457.                 $selectprinter .= qq|<option value="$item">$item</option>\n|;
    458. 

  458.             }
    459. 

  459.         }
    460. 

  460. 

  461.         $printer = qq|
    462. 

  462.             <tr>
    463. 

  463.                 <th align="right">|.$locale->text('Printer').qq|</th>
    464. 

  464.                 <td><select name="printer">$selectprinter</select></td>
    465. 

  465.             </tr>
    466. 

  466.         |;
    467. 

  467. 

  468.     }
    469. 

  469. 

  470.     $user = $form->{login};
    471. 

  471.     $form->{login} = "admin";
    472. 

  472.     $form->header;
    473. 

  473.     $form->{login} = $user;
    474. 

  474. 

  475.     print qq|
    476. 

  476.     <body class="admin">
    477. 

  477.     <form method="post" action="$form->{script}">
    478. 

  478.     <table width="100%">
    479. 

  479.         <tr class="listheading"><th colspan="2">$form->{title}</th></tr>
    480. 

  480.         <tr size="5"></tr>
    481. 

  481.         <tr valign="top">
    482. 

  482.             <td>
    483. 

  483.                 <table>
    484. 

  484.                     <tr>
    485. 

  485.                         <th align="right">|.$locale->text('Login').qq|</th>
    486. 

  486.                         <td><input name="login" value="$myconfig->{login}" /></td>
    487. 

  487.                     </tr>
    488. 

  488.                     <tr>
    489. 

  489.                         <th align="right">|.$locale->text('Password').qq|</th>
    490. 

  490.                         <td><input type="password" name="new_password" size="8" value="$myconfig->{password}" /></td>
    491. 

  491.                         <input type="hidden" name="old_password" value="$myconfig->{password}" />
    492. 

  492.                     </tr>
    493. 

  493.                     <tr>
    494. 

  494.                         <th align="right">|.$locale->text('Name').qq|</th>
    495. 

  495.                         <td><input name="name" size="15" value="$myconfig->{name}" /></td>
    496. 

  496.                     </tr>
    497. 

  497.                     <tr>
    498. 

  498.                         <th align="right">|.$locale->text('E-mail').qq|</th>
    499. 

  499.                         <td><input name="email" size="30" value="$myconfig->{email}" /></td>
    500. 

  500.                     </tr>
    501. 

  501.                     <tr valign="top">
    502. 

  502.                         <th align="right">|.$locale->text('Signature').qq|</th>
    503. 

  503.                         <td><textarea name="signature" rows="3" cols="35">$myconfig->{signature}</textarea></td>
    504. 

  504.                     </tr>
    505. 

  505.                     <tr>
    506. 

  506.                         <th align="right">|.$locale->text('Phone').qq|</th>
    507. 

  507.                         <td><input name="tel" size="14" value="$myconfig->{tel}" /></td>
    508. 

  508.                     </tr>
    509. 

  509.                     <tr>
    510. 

  510.                         <th align="right">|.$locale->text('Fax').qq|</th>
    511. 

  511.                         <td><input name="fax" size="14" value="$myconfig->{fax}" /></td>
    512. 

  512.                     </tr>
    513. 

  513.                     <tr>
    514. 

  514.                         <th align="right">|.$locale->text('Company').qq|</th>
    515. 

  515.                         <td><input name="company" size="35" value="$myconfig->{company}" /></td>
    516. 

  516.                     </tr>
    517. 

  517.                     <tr valign="top">
    518. 

  518.                         <th align="right">|.$locale->text('Address').qq|</th>
    519. 

  519.                         <td><textarea name="address" rows="4" cols="35">$myconfig->{address}</textarea></td>
    520. 

  520.                     </tr>
    521. 

  521.                 </table>
    522. 

  522.             </td>
    523. 

  523.             <td>
    524. 

  524.                 <table>
    525. 

  525.                     <tr>
    526. 

  526.                         <th align="right">|.$locale->text('Date Format').qq|</th>
    527. 

  527.                         <td><select name="dateformat">$dateformat</select></td>
    528. 

  528.                     </tr>
    529. 

  529.                     <tr>
    530. 

  530.                         <th align="right">|.$locale->text('Number Format').qq|</th>
    531. 

  531.                         <td><select name="numberformat">$numberformat</select></td>
    532. 

  532.                     </tr>
    533. 

  533.                     <tr>
    534. 

  534.                         <th align="right">|.$locale->text('Dropdown Limit').qq|</th>
    535. 

  535.                         <td><input name="vclimit" value="$myconfig->{vclimit}" /></td>
    536. 

  536.                     </tr>
    537. 

  537.                     <tr>
    538. 

  538.                         <th align="right">|.$locale->text('Menu Width').qq|</th>
    539. 

  539.                         <td><input name="menuwidth" value="$myconfig->{menuwidth}" /></td>
    540. 

  540.                     </tr>
    541. 

  541.                     <tr>
    542. 

  542.                         <th align="right">|.$locale->text('Language').qq|</th>
    543. 

  543.                         <td><select name="countrycode">$countrycodes</select></td>
    544. 

  544.                     </tr>
    545. 

  545.                     <tr>
    546. 

  546.                         <th align="right">|.$locale->text('Session Timeout').qq|</th>
    547. 

  547.                         <td><input name="newtimeout" value="$myconfig->{timeout}" /></td>
    548. 

  548.                     </tr>
    549. 

  549.                     <tr>
    550. 

  550.                         <th align="right">|.$locale->text('Stylesheet').qq|</th>
    551. 

  551.                         <td><select name="userstylesheet">$selectstylesheet</select></td>
    552. 

  552.                     </tr>
    553. 

  553.                         $printer
    554. 

  554.                     <tr>
    555. 

  555.                         <th align="right">|.$locale->text('Use Templates').qq|</th>
    556. 

  556.                         <td><select name="usetemplates">$usetemplates</select></td>
    557. 

  557.                     </tr>
    558. 

  558.                     <tr>
    559. 

  559.                         <th align="right">|.$locale->text('New Templates').qq|</th>
    560. 

  560.                         <td><input name="newtemplates" /></td>
    561. 

  561.                     </tr>
    562. 

  562.                     <tr>
    563. 

  563.                         <th align="right">|.$locale->text('Setup Templates').qq|</th>
    564. 

  564.                         <td><select name="mastertemplates">$mastertemplates</select></td>
    565. 

  565.                     </tr>
    566. 

  566.                 </table>
    567. 

  567.                 <input type="hidden" name="templates" value="$myconfig->{templates}" />
    568. 

  568.             </td>
    569. 

  569.         </tr>
    570. 

  570.         <tr class="listheading">
    571. 

  571.             <th colspan="2">|.$locale->text('Database').qq|</th>
    572. 

  572.         </tr>|;
    573. 

  573. 

  574.     # list section for database drivers
    575. 

  575.     foreach $item (LedgerSMB::User->dbdrivers) {
    576. 

  576. 

  577.         print qq|
    578. 

  578.             <tr>
    579. 

  579.                 <td colspan="2">
    580. 

  580.                     <table>
    581. 

  581.                         <tr>|;
    582. 

  582. 

  583.         $checked = "checked";
    584. 

  584. 

  585.         if ($myconfig->{dbdriver} eq $item) {
    586. 

  586. 

  587.             for (qw(dbhost dbport dbuser dbpasswd dbname sid)) { $form->{"${item}_$_"} = $myconfig->{$_} }
    588. 

  588.             $checked = "checked";
    589. 

  589.         }
    590. 

  590. 

  591.         print qq|
    592. 

  592.                             <th align="right">|.$locale->text('Driver').qq|</th>
    593. 

  593.                             <td><input name="dbdriver" type="radio" class="radio" value="$item" $checked />&nbsp;$item</td>
    594. 

  594.                             <th align="right">|.$locale->text('Host').qq|</th>
    595. 

  595.                             <td><input name="${item}_dbhost" size="30" value="$form->{"${item}_dbhost"}" /></td>
    596. 

  596.                         </tr>
    597. 

  597.                         <tr>|;
    598. 

  598. 

  599.             print qq|
    600. 

  600.                             <th align="right">|.$locale->text('Dataset').qq|</th>
    601. 

  601.                             <td><input name="${item}_dbname" size="15" value="$form->{"${item}_dbname"}" /></td>
    602. 

  602.                             <th align="right">|.$locale->text('Port').qq|</th>
    603. 

  603.                             <td><input name="${item}_dbport" size="4" value="$form->{"${item}_dbport"}" /></td>
    604. 

  604.                         </tr>
    605. 

  605.                         <tr>
    606. 

  606.                             <th align="right">|.$locale->text('User').qq|</th>
    607. 

  607.                             <td><input name="${item}_dbuser" size="15" value="$form->{"${item}_dbuser"}" /></td>
    608. 

  608.                             <th align="right">|.$locale->text('Password').qq|</th>
    609. 

  609.                             <td><input name="${item}_dbpasswd" type="password" size="10" value="$form->{"${item}_dbpasswd"}" /></td>
    610. 

  610.                         </tr>|;
    611. 

  611. 

  612.         print qq|
    613. 

  613.                     </table>
    614. 

  614.                     <input type="hidden" name="old_dbpasswd" value="$myconfig->{dbpasswd}" />
    615. 

  615.                 </td>
    616. 

  616.             </tr>
    617. 

  617.             <tr>
    618. 

  618.                 <td colspan="2"><hr size="2" noshade /></td>
    619. 

  619.             </tr>
    620. 

  620.         |;
    621. 

  621. 

  622.     }
    623. 

  623. 

  624. 

  625.     # access control
    626. 

  626.     open(FH, $menufile) or $form->error("$menufile : $!");
    627. 

  627.     # scan for first menu level
    628. 

  628.     @a = <FH>;
    629. 

  629.     close(FH);
    630. 

  630. 

  631.     if (open(FH, "custom_$menufile")) {
    632. 

  632.         push @a, <FH>;
    633. 

  633.     }
    634. 

  634. 

  635.     close(FH);
    636. 

  636. 

  637.     foreach $item (@a) {
    638. 

  638. 

  639.         next unless $item =~ /\[\w+/;
    640. 

  640.         next if $item =~ /\#/;
    641. 

  641. 

  642.         $item =~ s/(\[|\])//g;
    643. 

  643.         chop $item;
    644. 

  644. 

  645.         if ($item =~ /--/) {
    646. 

  646. 

  647.             ($level, $menuitem) = split /--/, $item, 2;
    648. 

  648.         } else {
    649. 

  649. 

  650.             $level = $item;
    651. 

  651.             $menuitem = $item;
    652. 

  652.             push @acsorder, $item;
    653. 

  653.         }
    654. 

  654. 

  655.         push @{ $acs{$level} }, $menuitem;
    656. 

  656. 

  657.     }
    658. 

  658. 

  659.     %role = (   'admin' => $locale->text('Administrator'),
    660. 

  660.                 'user' => $locale->text('User'),
    661. 

  661.                 'supervisor' => $locale->text('Supervisor'),
    662. 

  662.                 'manager' => $locale->text('Manager'));
    663. 

  663. 

  664.     $selectrole = "";
    665. 

  665. 

  666.     foreach $item (qw(user admin supervisor manager)) {
    667. 

  667.         $selectrole .= ($myconfig->{role} eq $item) ? "<option selected value=\"$item\">$role{$item}</option>\n" 
    668. 

  668.                                                     : "<option value=\"$item\">$role{$item}</option>\n";
    669. 

  669.     }
    670. 

  670. 

  671.     print qq|
    672. 

  672.         <tr class="listheading">
    673. 

  673.             <th colspan="2">|.$locale->text('Access Control').qq|</th>
    674. 

  674.         </tr>
    675. 

  675.         <tr>
    676. 

  676.             <td><select name="role">$selectrole</select></td>
    677. 

  677.         </tr>
    678. 

  678.     |;
    679. 

  679. 

  680.     foreach $item (split /;/, $myconfig->{acs}) {
    681. 

  681.         ($key, $value) = split /--/, $item, 2;
    682. 

  682.         $excl{$key}{$value} = 1;
    683. 

  683.     }
    684. 

  684. 

  685.     foreach $key (@acsorder) {
    686. 

  686. 

  687.         $checked = "checked";
    688. 

  688. 

  689.         if ($form->{login}) {
    690. 

  690.             $checked = ($excl{$key}{$key}) ? "" : "checked";
    691. 

  691.         }
    692. 

  692. 

  693.         # can't have variable names with & and spaces
    694. 

  694.         $item = $form->escape("${key}--$key",1);
    695. 

  695. 

  696.         $acsheading = $key;
    697. 

  697.         $acsheading =~ s/ /&nbsp;/g;
    698. 

  698. 

  699.         $acsheading = qq|
    700. 

  700.             <td align="left" nowrap="nowrap" style="background-color: #C7E9F7" colspan="2">                    
    701. 

  701.                         <input name="$item" class="checkbox" type="checkbox" value="1" $checked  />&nbsp;$acsheading</td><tr><td>\n|;
    702. 

  702.             $menuitems .= "$item;";
    703. 

  703.             $acsdata = "<td style=\"background-color: #F0F0F0\">";
    704. 

  704. 

  705.         foreach $item (@{ $acs{$key} }) {
    706. 

  706. 

  707.             next if ($key eq $item);
    708. 

  708. 

  709.             $checked = "checked";
    710. 

  710. 

  711.             if ($form->{login}) {
    712. 

  712.                 $checked = ($excl{$key}{$item}) ? "" : "checked";
    713. 

  713.             }
    714. 

  714. 

  715.             $acsitem = $form->escape("${key}--$item",1);
    716. 

  716. 

  717.             $acsdata .= qq|<br /><input name="$acsitem" class="checkbox" type="checkbox" value="1" $checked />&nbsp;$item|;
    718. 

  718.             $menuitems .= "$acsitem;";
    719. 

  719.         }
    720. 

  720. 

  721.         $acsdata .= "
    722. 

  722.         </td>";
    723. 

  723. 

  724.         print qq|
    725. 

  725.         <tr valign="top">$acsheading $acsdata
    726. 

  726.         </tr>
    727. 

  727.         |;
    728. 

  728.     }
    729. 

  729. 

  730.     print qq|<input type="hidden" name="acs" value="$menuitems" />
    731. 

  731.             <tr>
    732. 

  732.                 <td colspan="2"><hr size="3" noshade /></td>
    733. 

  733.             </tr>
    734. 

  734.         </table>
    735. 

  735.     </div>
    736. 

  736.     |;
    737. 

  737. 

  738. }
    739. 

  739. 

  740. 

  741. sub save {
    742. 

  742. 

  743.     # no driver checked
    744. 

  744.     $form->error($locale->text('Database Driver not checked!')) unless $form->{dbdriver};
    745. 

  745. 

  746.     # no spaces allowed in login name
    747. 

  747.     $form->{login} =~ s/ //g;
    748. 

  748. 

  749.     $form->isblank("login", $locale->text('Login name missing!'));
    750. 

  750. 

  751.     # check for duplicates
    752. 

  752.     if (!$form->{edit}) {
    753. 

  753. 

  754.         $temp = LedgerSMB::User->new($form->{login});
    755. 

  755. 

  756.         if ($temp->{login}) {
    757. 

  757.             $form->error($locale->text('[_1] is already a member!', $form->{login}));
    758. 

  758.         }
    759. 

  759.     }
    760. 

  760. 

  761.     # no spaces allowed in directories
    762. 

  762.     $form->{newtemplates} =~ s/( |\.\.|\*)//g;
    763. 

  763. 

  764.     if ($form->{newtemplates} ne "") {
    765. 

  765.         $form->{templates} = $form->{newtemplates};
    766. 

  766.     } else {
    767. 

  767.         $form->{templates} = ($form->{usetemplates}) ? $form->{usetemplates} : $form->{login};
    768. 

  768.     }
    769. 

  769. 

  770.     # is there a basedir
    771. 

  771.     if (! -d "${LedgerSMB::Sysconfig::templates}") {
    772. 

  772.         $form->error($locale->text('Directory [_1] does not exist', ${LedgerSMB::Sysconfig::templates}));
    773. 

  773.     }
    774. 

  774. 

  775.     # add base directory to $form->{templates}
    776. 

  776.     $form->{templates} = "${LedgerSMB::Sysconfig::templates}/$form->{templates}";
    777. 

  777. 

  778.     $myconfig = LedgerSMB::User->new("${LedgerSMB::Sysconfig::memberfile}", "$form->{login}");
    779. 

  779. 

  780.     # redo acs variable and delete all the acs codes
    781. 

  781.     @acs = split /;/, $form->{acs};
    782. 

  782.     $form->{acs} = "";
    783. 

  783. 

  784.     foreach $item (@acs) {
    785. 

  785. 

  786.         $item = $form->escape($item,1);
    787. 

  787. 

  788.         if (!$form->{$item}) {
    789. 

  789.             $form->{acs} .= $form->unescape($form->unescape("$item")).";";
    790. 

  790.         }
    791. 

  791. 

  792.         delete $form->{$item};
    793. 

  793.     }
    794. 

  794. 

  795.     # check which database was filled in
    796. 

  796. 

  797.     $form->{dbhost} = $form->{"$form->{dbdriver}_dbhost"};
    798. 

  798.     $form->{dbport} = $form->{"$form->{dbdriver}_dbport"};
    799. 

  799.     $form->{dbpasswd} = $form->{"$form->{dbdriver}_dbpasswd"};
    800. 

  800.     $form->{dbuser} = $form->{"$form->{dbdriver}_dbuser"};
    801. 

  801.     $form->{dbname} = $form->{"$form->{dbdriver}_dbname"};
    802. 

  802.     $form->isblank("dbname", $locale->text('Dataset missing!'));
    803. 

  803.     $form->isblank("dbuser", $locale->text('Database User missing!'));
    804. 

  804. 

  805.     foreach $item (keys %{$form}) {
    806. 

  806.         $myconfig->{$item} = $form->{$item};
    807. 

  807.     }
    808. 

  808. 

  809.     $myconfig->{password} = $form->{old_password};
    810. 

  810.     $myconfig->{password} = $form->{new_password} if $form->{new_password} ne $form->{old_password};
    811. 

  811.     $myconfig->{timeout} = $form->{newtimeout};
    812. 

  812. 

  813.     delete $myconfig->{stylesheet};
    814. 

  814. 

  815.     if ($form->{userstylesheet}) {
    816. 

  816.         $myconfig->{stylesheet} = $form->{userstylesheet};
    817. 

  817.     }
    818. 

  818. 

  819.     $myconfig->{packpw} = 1;
    820. 

  820. 

  821.     $myconfig->save_member($form);
    822. 

  822.     # create user template directory and copy master files
    823. 

  823.     if (! -d "$form->{templates}") {
    824. 

  824. 

  825.         umask(002);
    826. 

  826. 

  827.         if (mkdir "$form->{templates}", oct("771")) {
    828. 

  828. 

  829.             umask(007);
    830. 

  830. 

  831.             # copy templates to the directory
    832. 

  832.             opendir TEMPLATEDIR, "${LedgerSMB::Sysconfig::templates}/." or $form->error("$templates : $!");
    833. 

  833.             @templates = grep /$form->{mastertemplates}-/, readdir TEMPLATEDIR;
    834. 

  834.             closedir TEMPLATEDIR;
    835. 

  835. 

  836.             foreach $file (@templates) {
    837. 

  837. 

  838.                 open(TEMP, "${LedgerSMB::Sysconfig::templates}/$file") or $form->error("$templates/$file : $!");
    839. 

  839. 

  840.                 $file =~ s/$form->{mastertemplates}-//;
    841. 

  841.                 open(NEW, ">$form->{templates}/$file") or $form->error("$form->{templates}/$file : $!");
    842. 

  842. 

  843.                 while ($line = <TEMP>) {
    844. 

  844.                     print NEW $line;
    845. 

  845.                 }
    846. 

  846. 

  847.                 close(TEMP);
    848. 

  848.                 close(NEW);
    849. 

  849.             }
    850. 

  850. 

  851.         } else {
    852. 

  852.             $form->error("$form->{templates} : $!");
    853. 

  853.         }
    854. 

  854.     }
    855. 

  855. 

  856.     $form->redirect($locale->text('User saved!'));
    857. 

  857. }
    858. 

  858. 

  859. 

  860. sub delete {
    861. 

  861. 

  862.     $form->{templates} = ($form->{templates}) ? "${LedgerSMB::Sysconfig::templates}/$form->{templates}" : "$templates/$form->{login}";
    863. 

  863. 

  864.     # scan %user for $templatedir
    865. 

  865.     foreach $login (keys %user) {
    866. 

  866.         last if ($found = ($form->{templates} eq $user{$login}));
    867. 

  867.     }
    868. 

  868. 

  869.     # if found keep directory otherwise delete
    870. 

  870.     if (!$found) {
    871. 

  871.         # delete it if there is a template directory
    872. 

  872.         $dir = "$form->{templates}";
    873. 

  873.         if (-d "$dir") {
    874. 

  874.             unlink <$dir/*>;
    875. 

  875.             rmdir "$dir";
    876. 

  876.         }
    877. 

  877.     }
    878. 

  878. 

  879.     my $dbh = ${LedgerSMB::Sysconfig::GLOBALDBH};   
    880. 

  880. 

  881.     #users_conf
    882. 

  882.     my $deleteUser = $dbh->prepare("DELETE FROM users_conf USING users WHERE users.username = ? and users.id = users_conf.id;");
    883. 

  883.     $deleteUser->execute($form->{login});
    884. 

  884. 

  885.     #and now users
    886. 

  886.     $deleteUser = $dbh->prepare("DELETE FROM users WHERE username = ?;");
    887. 

  887.     $deleteUser->execute($form->{login});
    888. 

  888. 

  889.     $form->redirect($locale->text('User deleted!'));
    890. 

  890. }
    891. 

  891. 

  892. 

  893. sub login_name {
    894. 

  894. 

  895.     my $login = shift;
    896. 

  896.     $login =~ s/\[\]//g;
    897. 

  897.     return ($login) ? $login : undef;
    898. 

  898. }
    899. 

  899. 

  900. 

  901. sub change_admin_password {
    902. 

  902. 

  903.     $form->{title} = qq|LedgerSMB |.$locale->text('Accounting')." ".$locale->text('Administration')." / ".$locale->text('Change Admin Password');
    904. 

  904. 

  905.     $form->{login} = "root login";
    906. 

  906.     $form->header;
    907. 

  907. 

  908.     print qq|
    909. 

  909.     <body class="admin">
    910. 

  910.         <form method="post" action="$form->{script}">
    911. 

  911.         <table>
    912. 

  912.             <tr class="listheading">
    913. 

  913.                 <th>|.$locale->text('Change Password').qq|</th>
    914. 

  914.             </tr>
    915. 

  915.             <tr size="5"></tr>
    916. 

  916.             <tr>
    917. 

  917.                 <td>
    918. 

  918.                     <table width="100%">
    919. 

  919.                         <tr>
    920. 

  920.                             <th align="right">|.$locale->text('Password').qq|</th>
    921. 

  921.                             <td><input type="password" name="new_password" /></td>
    922. 

  922.                         </tr>
    923. 

  923.                         <tr>
    924. 

  924.                             <th align="right">|.$locale->text('Confirm').qq|</th>
    925. 

  925.                             <td><input type="password" name="confirm_password" /></td>
    926. 

  926.                         </tr>
    927. 

  927.                     </table>
    928. 

  928.                 </td>
    929. 

  929.             </tr>
    930. 

  930.         </table>
    931. 

  931.         <br />
    932. 

  932.         <hr size="3" noshade />
    933. 

  933.         <input type="hidden" name="path" value="$form->{path}" />
    934. 

  934.         <input type="hidden" name="sessionid" value="$form->{sessionid}" />
    935. 

  935.         <p><button type="submit" class="submit" name="action" value="change_password">|.$locale->text('Change Password').qq|</button></p>
    936. 

  936.         </form>
    937. 

  937.     </body>
    938. 

  938.     </html>
    939. 

  939.     |;
    940. 

  940. 

  941. }
    942. 

  942. 

  943. 

  944. sub change_password {
    945. 

  945. 

  946.     $form->error($locale->text('Passwords do not match!')) if $form->{new_password} ne $form->{confirm_password};
    947. 

  947.     $root->{password} = $form->{new_password};
    948. 

  948.     $root->{'root login'} = 1;
    949. 

  949.     $root->save_member();
    950. 

  950.     $form->{callback} = "$form->{script}?action=list_users&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}";
    951. 

  951.     $form->redirect($locale->text('Password changed!'));
    952. 

  952. }
    953. 

  953. 

  954. sub check_password {
    955. 

  955. 

  956.     $root = LedgerSMB::User->new('admin');
    957. 

  957. 

  958.     if ($form->{password}) {
    959. 

  959. 

  960.         $form->{callback} .= "&amp;password=$form->{password}" if $form->{callback};
    961. 

  961. 

  962.         if ($root->{password} ne (Digest::MD5::md5_hex $form->{password}) ) {
    963. 

  963.             &getpassword;
    964. 

  964.             exit;
    965. 

  965.         }
    966. 

  966.         else{
    967. 

  967.             Session::session_create($root);
    968. 

  968.         }
    969. 

  969.     }
    970. 

  970.     else {
    971. 

  971. 

  972.         $ENV{HTTP_COOKIE} =~ s/;\s*/;/g;
    973. 

  973.         @cookies = split /;/, $ENV{HTTP_COOKIE};
    974. 

  974.         foreach (@cookies) {
    975. 

  975.             ($name,$value) = split /=/, $_, 2;
    976. 

  976.             $cookie{$name} = $value;
    977. 

  977.         }
    978. 

  978. 

  979.         if(!Session::session_check($cookie{"LedgerSMB"}, $root)){
    980. 

  980.             &getpassword(1);
    981. 

  981.             exit;
    982. 

  982.         }
    983. 

  983.     }
    984. 

  984. }
    985. 

  985. 

  986. 

  987. sub pg_database_administration {
    988. 

  988. 

  989.     $form->{dbdriver} = 'Pg';
    990. 

  990.     &dbselect_source;
    991. 

  991. }
    992. 

  992. 

  993. 

  994. sub pgpp_database_administration {
    995. 

  995. 

  996.     $form->{dbdriver} = 'PgPP';
    997. 

  997.     &dbselect_source;
    998. 

  998. 

  999. }
    1000. 

  1000. 

  1001. 

  1002. sub dbdriver_defaults {
    1003. 

  1003. 

  1004.     # load some defaults for the selected driver
    1005. 

  1005.     %driverdefaults = ( 'Pg' => { dbport => '',
    1006. 

  1006.                                   dbuser => 'ledger-smb',
    1007. 

  1007.                                   dbdefault => 'template1',
    1008. 

  1008.                                   dbhost => '',
    1009. 

  1009.                                   connectstring => $locale->text('Connect to')
    1010. 

  1010.                                 } );
    1011. 

  1011. 

  1012.     $driverdefaults{PgPP} = $driverdefaults{Pg};
    1013. 

  1013. 

  1014.     for (keys %{ $driverdefaults{Pg} }) { $form->{$_} = $driverdefaults{$form->{dbdriver}}{$_} }
    1015. 

  1015. 

  1016. }
    1017. 

  1017. 

  1018. 

  1019. sub dbselect_source {
    1020. 

  1020. 

  1021.     &dbdriver_defaults;
    1022. 

  1022. 

  1023.     $form->{title} = "LedgerSMB ".$locale->text('Accounting')." / ".$locale->text('Database Administration');
    1024. 

  1024. 

  1025.     $form->{login} = "root login";
    1026. 

  1026.     $form->header;
    1027. 

  1027. 

  1028.     #an insane amount of table nesting here, this should be cleaned up.
    1029. 

  1029.     print qq|
    1030. 

  1030.     <body class="admin">
    1031. 

  1031.     <center>
    1032. 

  1032.     <h2>$form->{title}</h2>
    1033. 

  1033.     <form method="post" action="$form->{script}" />
    1034. 

  1034.         <table>
    1035. 

  1035.             <tr>
    1036. 

  1036.                 <td>
    1037. 

  1037.                     <table>
    1038. 

  1038.                         <tr class="listheading">
    1039. 

  1039.                             <th colspan="4">|.$locale->text('Database').qq|</th>
    1040. 

  1040.                         </tr>
    1041. 

  1041.                         <tr>
    1042. 

  1042.                             <td>
    1043. 

  1043.                                 <table>
    1044. 

  1044.                                     <tr>
    1045. 

  1045.                                         <th align="right">|.$locale->text('Host').qq|</th>
    1046. 

  1046.                                         <td><input name="dbhost" size="25" value="$form->{dbhost}" /></td>
    1047. 

  1047.                                         <th align="right">|.$locale->text('Port').qq|</th>
    1048. 

  1048.                                         <td><input name="dbport" size="5" value="$form->{dbport}" /></td>
    1049. 

  1049.                                     </tr>
    1050. 

  1050.                                     <tr>
    1051. 

  1051.                                         <th align="right">|.$locale->text('User').qq|</th>
    1052. 

  1052.                                         <td><input name="dbuser" size="10" value="$form->{dbuser}" /></td>
    1053. 

  1053. <th align="right">|.$locale->text('Password').qq|</th>              
    1054. 

  1054. <td><input type="password" name="dbpasswd" size="10" /></td>
    1055. 

  1055.                                     </tr>
    1056. 

  1056.                                     <tr>
    1057. 

  1057.                                         <th align="right">$form->{connectstring}</th>
    1058. 

  1058.                                         <td colspan="3"><input name="dbdefault" size="10" value="$form->{dbdefault}" /></td>
    1059. 

  1059.                                     </tr>
    1060. 

  1060. <th align="right">|.$locale->text("Superuser").qq|</th>
    1061. 

  1061.  <td><input name="dbsuperuser" size="10" value="$form->{dbsuperuser}" /></td>
    1062. 

  1062. <th align="right">|.$locale->text('Password').qq|</th>              
    1063. 

  1063. <td><input type="password" name="dbsuperpasswd" size="10" /></td>
    1064. 

  1064. 

  1065.                                 </table>
    1066. 

  1066.                             </td>
    1067. 

  1067.                         </tr>
    1068. 

  1068.                     </table>
    1069. 

  1069.                 </td>
    1070. 

  1070.             </tr>
    1071. 

  1071.         </table>
    1072. 

  1072.     <input type="hidden" name="dbdriver" value="$form->{dbdriver}" />
    1073. 

  1073.     <input name="callback" type="hidden" value="$form->{script}?action=list_users&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}" />
    1074. 

  1074.     <input type="hidden" name="path" value="$form->{path}" />
    1075. 

  1075.     <input type="hidden" name="sessionid" value="$form->{sessionid}" />
    1076. 

  1076.     <br />
    1077. 

  1077.     <button type="submit" class="submit" name="action" value="create_dataset">|.$locale->text('Create Dataset').qq|</button>
    1078. 

  1078.     <button type="submit" class="submit" name="action" value="delete_dataset">|.$locale->text('Delete Dataset').qq|</button>
    1079. 

  1079.     </form>
    1080. 

  1080.     <p>|.$locale->text('This is a preliminary check for existing sources. Nothing will be created or deleted at this stage!')
    1081. 

  1081.     .qq|</p>
    1082. 

  1082.     </center>
    1083. 

  1083.     </body>
    1084. 

  1084.     </html>
    1085. 

  1085.     |;
    1086. 

  1086. }
    1087. 

  1087. 

  1088. 

  1089. sub continue {
    1090. 

  1090. 

  1091.     &{ $form->{nextsub} };
    1092. 

  1092. }
    1093. 

  1093. 

  1094. 

  1095. sub dbupdate {
    1096. 

  1096. 

  1097.     LedgerSMB::User->dbupdate(\%$form);
    1098. 

  1098.     $form->redirect($locale->text('Dataset updated!'));
    1099. 

  1099. }
    1100. 

  1100. 

  1101. 

  1102. sub create_dataset {
    1103. 

  1103. 

  1104.     @dbsources = sort LedgerSMB::User->dbsources(\%$form);
    1105. 

  1105. 

  1106.     opendir SQLDIR, "sql/." or $form->error($!);
    1107. 

  1107. 

  1108.     foreach $item (sort grep /-chart\.sql/, readdir SQLDIR) {
    1109. 

  1109.         next if ($item eq 'Default-chart.sql');
    1110. 

  1110.         $item =~ s/-chart\.sql//;
    1111. 

  1111.         push @charts, qq|<input name="chart" class="radio" type="radio" value="$item" />$item|;
    1112. 

  1112.     }
    1113. 

  1113. 

  1114.     closedir SQLDIR;
    1115. 

  1115. 

  1116.     # add Default at beginning
    1117. 

  1117.     unshift @charts, qq|<input name="chart" class="radio" type="radio" value="Default" checked />Default|;
    1118. 

  1118. 

  1119.     $selectencoding = qq|<option></option>
    1120. 

  1120.     <option value="SQL_ASCII">ASCII</option>
    1121. 

  1121.     <option value="EUC_JP">Japanese EUC</option>
    1122. 

  1122.     <option value="EUC_CN">Chinese EUC</option>
    1123. 

  1123.     <option value="EUC_KR">Korean EUC</option>
    1124. 

  1124.     <option value="JOHAB">Korean EUC (Hangle base)</option>
    1125. 

  1125.     <option value="EUC_TW">Taiwan EUC</option>
    1126. 

  1126.     <option value="UNICODE">Unicode (UTF-8)</option>
    1127. 

  1127.     <option value="MULE_INTERNAL">Mule internal type</option>
    1128. 

  1128.     <option value="LATIN1">ISO 8859-1/ECMA 94 (Latin alphabet no. 1)</option>
    1129. 

  1129.     <option value="LATIN2">ISO 8859-2/ECMA 94 (Latin alphabet no. 2)</option>
    1130. 

  1130.     <option value="LATIN3">ISO 8859-3/ECMA 94 (Latin alphabet no. 3)</option>
    1131. 

  1131.     <option value="LATIN4">ISO 8859-4/ECMA 94 (Latin alphabet no. 4)</option>
    1132. 

  1132.     <option value="LATIN5">ISO 8859-9/ECMA 128 (Latin alphabet no. 5)</option>
    1133. 

  1133.     <option value="LATIN6">ISO 8859-10/ECMA 144 (Latin alphabet no. 6)</option>
    1134. 

  1134.     <option value="LATIN7">ISO 8859-13 (Latin alphabet no. 7)</option>
    1135. 

  1135.     <option value="LATIN8">ISO 8859-14 (Latin alphabet no. 8)</option>
    1136. 

  1136.     <option value="LATIN9">ISO 8859-15 (Latin alphabet no. 9)</option>
    1137. 

  1137.     <option value="LATIN10">ISO 8859-16/ASRO SR 14111 (Latin alphabet no. 10)</option>
    1138. 

  1138.     <option value="ISO_8859_5">ISO 8859-5/ECMA 113 (Latin/Cyrillic)</option>
    1139. 

  1139.     <option value="ISO_8859_6">ISO 8859-6/ECMA 114 (Latin/Arabic)</option>
    1140. 

  1140.     <option value="ISO_8859_7">ISO 8859-7/ECMA 118 (Latin/Greek)</option>
    1141. 

  1141.     <option value="ISO_8859_8">ISO 8859-8/ECMA 121 (Latin/Hebrew)</option>
    1142. 

  1142.     <option value="KOI8">KOI8-R(U)</option>
    1143. 

  1143.     <option value="WIN">Windows CP1251</option>
    1144. 

  1144.     <option value="ALT">Windows CP866</option>
    1145. 

  1145.     <option value="WIN1256">Windows CP1256 (Arabic)</option>
    1146. 

  1146.     <option value="TCVN">Windows CP1258 (Vietnamese)</option>
    1147. 

  1147.     <option value="WIN874">Windows CP874 (Thai)</option>
    1148. 

  1148.     |;
    1149. 

  1149. 

  1150.     $form->{title} = "LedgerSMB ".$locale->text('Accounting')
    1151. 

  1151.                     ." ".$locale->text('Database Administration')
    1152. 

  1152.                     ." / ".$locale->text('Create Dataset');
    1153. 

  1153.     $form->{login} = "root login";
    1154. 

  1154.     $form->header;
    1155. 

  1155. 

  1156.     print qq|
    1157. 

  1157.     <body class="admin">
    1158. 

  1158.     <center>
    1159. 

  1159.     <h2>$form->{title}</h2>
    1160. 

  1160.     <form method="post" action="$form->{script}" />
    1161. 

  1161.     <table width="100%">
    1162. 

  1162.         <tr class="listheading">
    1163. 

  1163.             <th colspan="2">&nbsp;</th>
    1164. 

  1164.         </tr>
    1165. 

  1165.         <tr>
    1166. 

  1166.             <th align="right" nowrap="nowrap">|.$locale->text('Existing Datasets').qq|</th>
    1167. 

  1167.             <td>
    1168. 

  1168.     |;
    1169. 

  1169. 

  1170.     for (@dbsources) { print "[&nbsp;$_&nbsp;] " }
    1171. 

  1171. 

  1172.     print qq|
    1173. 

  1173.             </td>
    1174. 

  1174.         </tr>
    1175. 

  1175.         <tr>
    1176. 

  1176.             <th align="right" nowrap="nowrap">|.$locale->text('Create Dataset').qq|</th>
    1177. 

  1177.             <td><input name="db" /></td>
    1178. 

  1178.         </tr>
    1179. 

  1179.         <tr>
    1180. 

  1180.             <th align="right" nowrap="nowrap">|.$locale->text('Multibyte Encoding').qq|</th>
    1181. 

  1181.             <td><select name="encoding">$selectencoding</select></td>
    1182. 

  1182.         </tr>
    1183. 

  1183.         <tr>
    1184. 

  1184.             <th align="right" nowrap="nowrap">|.$locale->text('Create Chart of Accounts').qq|</th>
    1185. 

  1185.             <td>
    1186. 

  1186.                 <table>
    1187. 

  1187.     |;
    1188. 

  1188. 

  1189.     while (@charts) {
    1190. 

  1190.         print qq|   <tr>|;
    1191. 

  1191. 

  1192.         for (0 .. 2) { print "<td>$charts[$_]</td>\n" }
    1193. 

  1193. 

  1194.         print qq|   </tr>|;
    1195. 

  1195. 

  1196.         splice @charts, 0, 3;
    1197. 

  1197.     }
    1198. 

  1198. 

  1199.     print qq|   </table>
    1200. 

  1200.             </td>
    1201. 

  1201.         </tr>
    1202. 

  1202.         <tr>
    1203. 

  1203.             <td colspan="2">
    1204. 

  1204.                 <hr size="3" noshade />
    1205. 

  1205.             </td>
    1206. 

  1206.         </tr>
    1207. 

  1207.     </table>
    1208. 

  1208.     |;
    1209. 

  1209. 

  1210.     $form->hide_form(qw(dbdriver dbsuperuser dbsuperpasswd dbuser dbhost dbport dbpasswd dbdefault path sessionid));
    1211. 

  1211. 

  1212.     print qq|
    1213. 

  1213.     <input name="callback" type="hidden" value="$form->{script}?action=list_users&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}" />
    1214. 

  1214.     <input type="hidden" name="nextsub" value="dbcreate" />
    1215. 

  1215.     <br />
    1216. 

  1216.     <button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
    1217. 

  1217.     </form>
    1218. 

  1218.     </body>
    1219. 

  1219.     </html>
    1220. 

  1220.     |;
    1221. 

  1221. 

  1222. }
    1223. 

  1223. 

  1224. 

  1225. sub dbcreate {
    1226. 

  1226. 

  1227.     $form->isblank("db", $locale->text('Dataset missing!'));
    1228. 

  1228. 

  1229.     LedgerSMB::User->dbcreate(\%$form);
    1230. 

  1230. 

  1231.     $form->{title} = "LedgerSMB ".$locale->text('Accounting')
    1232. 

  1232.                     ." ".$locale->text('Database Administration')
    1233. 

  1233.                     ." / ".$locale->text('Create Dataset');
    1234. 

  1234. 

  1235.     $form->{login} = "root login";
    1236. 

  1236.     $form->header;
    1237. 

  1237. 

  1238.     print qq|
    1239. 

  1239.     <body class="admin">
    1240. 

  1240.     <center>
    1241. 

  1241.     <h2>$form->{title}</h2>
    1242. 

  1242.     <form method="post" action="$form->{script}">|
    1243. 

  1243.         .$locale->text('Dataset [_1] successfully created!', $form->{db})
    1244. 

  1244.         .qq|
    1245. 

  1245.         <input type="hidden" name="path" value="$form->{path}" />
    1246. 

  1246.         <input type="hidden" name="sessionid" value="$form->{sessionid}" />
    1247. 

  1247.         <input type="hidden" name="nextsub" value="list_users" />
    1248. 

  1248.         <p><button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button></p>
    1249. 

  1249.     </form>
    1250. 

  1250.     </center>
    1251. 

  1251.     </body>
    1252. 

  1252.     </html>
    1253. 

  1253.     |;
    1254. 

  1254. }
    1255. 

  1255. 

  1256. 

  1257. sub delete_dataset {
    1258. 

  1258. 

  1259.     if (@dbsources = LedgerSMB::User->dbsources_unused(\%$form)) {
    1260. 

  1260. 

  1261.         foreach $item (sort @dbsources) {
    1262. 

  1262.             $dbsources .= qq|<input name="db" class="radio" type="radio" value="$item" />&nbsp;$item |;
    1263. 

  1263.         }
    1264. 

  1264. 

  1265.     } else {
    1266. 

  1266.         $form->error($locale->text('Nothing to delete!'));
    1267. 

  1267.     }
    1268. 

  1268. 

  1269.     $form->{title} = "LedgerSMB ".$locale->text('Accounting')
    1270. 

  1270.                     ." ".$locale->text('Database Administration')
    1271. 

  1271.                     ." / ".$locale->text('Delete Dataset');
    1272. 

  1272. 

  1273.     $form->{login} = "root login";
    1274. 

  1274.     $form->header;
    1275. 

  1275. 

  1276.     print qq|
    1277. 

  1277.     <body class="admin">
    1278. 

  1278.     <h2>$form->{title}</h2>
    1279. 

  1279.     <form method="post" action="$form->{script}" />
    1280. 

  1280.     <input type="hidden" name="dbdriver" value="$form->{dbdriver}" />
    1281. 

  1281.     <input type="hidden" name="dbuser" value="$form->{dbuser}" />
    1282. 

  1282.     <input type="hidden" name="dbhost" value="$form->{dbhost}" />
    1283. 

  1283.     <input type="hidden" name="dbport" value="$form->{dbport}" />
    1284. 

  1284.     <input type="hidden" name="dbpasswd" value="$form->{dbpasswd}" />
    1285. 

  1285.     <input type="hidden" name="dbdefault" value="$form->{dbdefault}" />
    1286. 

  1286.     <input name=callback type="hidden" value="$form->{script}?action=list_users&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}">
    1287. 

  1287.     <input type="hidden" name="path" value="$form->{path}" />
    1288. 

  1288.     <input type="hidden" name="sessionid" value="$form->{sessionid}" />
    1289. 

  1289.     <input type="hidden" name="nextsub" value="dbdelete" />
    1290. 

  1290.     <table width="100%">
    1291. 

  1291.         <tr class="listheading">
    1292. 

  1292.             <th>|.$locale->text('The following Datasets are not in use and can be deleted').qq|</th>
    1293. 

  1293.         </tr>
    1294. 

  1294.         <tr>
    1295. 

  1295.             <td>
    1296. 

  1296.             $dbsources
    1297. 

  1297.             </td>
    1298. 

  1298.         </tr>
    1299. 

  1299.         <tr>
    1300. 

  1300.             <td>
    1301. 

  1301.                 <hr size="3" noshade />
    1302. 

  1302.                 <br />
    1303. 

  1303.                 <button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>
    1304. 

  1304.             </td>
    1305. 

  1305.         </tr>
    1306. 

  1306.     </table>
    1307. 

  1307.     </form>
    1308. 

  1308.     </body>
    1309. 

  1309.     </html>
    1310. 

  1310.     |;
    1311. 

  1311. 

  1312. }
    1313. 

  1313. 

  1314. 

  1315. sub dbdelete {
    1316. 

  1316. 

  1317.     if (!$form->{db}) {
    1318. 

  1318.         $form->error($locale->text('No Dataset selected!'));
    1319. 

  1319.     }
    1320. 

  1320. 

  1321.     LedgerSMB::User->dbdelete(\%$form);
    1322. 

  1322. 

  1323.     $form->{title} = "LedgerSMB ".$locale->text('Accounting')
    1324. 

  1324.                     ." ".$locale->text('Database Administration')
    1325. 

  1325.                     ." / ".$locale->text('Delete Dataset');
    1326. 

  1326. 

  1327.     $form->{login} = "root login";
    1328. 

  1328.     $form->header;
    1329. 

  1329. 

  1330.     print qq|
    1331. 

  1331.     <body class="admin">
    1332. 

  1332.     <center>
    1333. 

  1333.     <h2>$form->{title}</h2>
    1334. 

  1334.     $form->{db} |.$locale->text('successfully deleted!')
    1335. 

  1335.     .qq|
    1336. 

  1336.     <form method="post" action="$form->{script}" />
    1337. 

  1337.     <input type="hidden" name="path" value="$form->{path}" />
    1338. 

  1338.     <input type="hidden" name="sessionid" value="$form->{sessionid}" />
    1339. 

  1339.     <input type="hidden" name="nextsub" value="list_users" />
    1340. 

  1340.     <p><button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button></p>
    1341. 

  1341.     </form>
    1342. 

  1342.     </body>
    1343. 

  1343.     </html>
    1344. 

  1344.     |;
    1345. 

  1345. }
    1346. 

  1346. 

  1347. 

  1348. sub unlock_system {
    1349. 

  1349. 

  1350.     # This needs to be done with a db tool
    1351. 

  1351.     #   unlink "${LedgerSMB::Sysconfig::userspath}/nologin";
    1352. 

  1352.     $form->{callback} = "$form->{script}?action=list_users&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}";
    1353. 

  1353.     $form->redirect($locale->text('Lockfile removed!'));
    1354. 

  1354. }
    1355. 

  1355. 

  1356. 

  1357. sub lock_system {
    1358. 

  1358. 

  1359.     # This needs to be done with a db tool
    1360. 

  1360.     #open(FH, ">${LedgerSMB::Sysconfig::userspath}/nologin") or $form->error($locale->text('Cannot create Lock!'));
    1361. 

  1361.     #close(FH);
    1362. 

  1362.     $form->{callback} = "$form->{script}?action=list_users&amp;path=$form->{path}&amp;sessionid=$form->{sessionid}";
    1363. 

  1363.     $form->redirect($locale->text('Lockfile created!'));
    1364. 

  1364. }
    1365.
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-30 03:35:33 +0000