in some php versions touch will give an error, error output supressed by @
[openemr.git] / interface / forms_admin / forms_admin.php
blob1f1cbd8c50205c0423bee4c82206b3e1fa7c80b1
1 <?
2 //INCLUDES, DO ANY ACTIONS, THEN GET OUR DATA
3 include_once("../globals.php");
4 include_once("$srcdir/registry.inc");
5 include_once("$srcdir/sql.inc");
6 if ($_GET['method'] == "enable"){
7 updateRegistered ( $_GET['id'], "state=1" );
9 elseif ($_GET['method'] == "disable"){
10 updateRegistered ( $_GET['id'], "state=0" );
12 elseif ($_GET['method'] == "install_db"){
13 $dir = getRegistryEntry ( $_GET['id'], "directory" );
14 if (installSQL ("$srcdir/../interface/forms/{$dir['directory']}"))
15 updateRegistered ( $_GET['id'], "sql_run=1" );
16 else
17 $err = "ERR: could not open table.sql, broken form?";
19 elseif ($_GET['method'] == "register"){
20 registerForm ( $_GET['name'] ) or $err="err while registering form!";
22 $bigdata = getRegistered("%") or $bigdata = false;
25 //START OUT OUR PAGE....
27 <html>
28 <head>
29 <link rel=stylesheet href="<?echo $css_header;?>" type="text/css">
30 </head>
31 <body <?echo $top_bg_line;?> topmargin=0 rightmargin=0 leftmargin=2 bottommargin=0 marginwidth=2 marginheight=0>
32 <span class="title">Forms Administration</span>
33 <br><br>
36 <?php //ERROR REPORTING
37 if ($err)
38 echo "<span class=bold>$err</span><br><br>\n";
42 <?php //REGISTERED SECTION ?>
43 <span class=bold>Registered</span><br>
44 <table border=0 cellpadding=1 cellspacing=2 width="500">
45 <?php
46 $color="#CCCCCC";
47 if ($bigdata != false)
48 foreach($bigdata as $registry)
51 <tr>
52 <td bgcolor="<?=$color?>" width="2%">
53 <span class=text><?=$registry['id'];?></span>
54 </td>
55 <td bgcolor="<?=$color?>" width="30%">
56 <span class=bold><?=$registry['name'];?></span>
57 </td>
58 <?php
59 if ($registry['sql_run'] == 0)
60 echo "<td bgcolor='$color' width='10%'><span class='text'>registered</span>";
61 elseif ($registry['state'] == "0")
62 echo "<td bgcolor='#FFCCCC' width='10%'><a class=link_submit href='./forms_admin.php?id={$registry['id']}&method=enable' target='Main'>disabled</a>";
63 else
64 echo "<td bgcolor='#CCFFCC' width='10%'><a class=link_submit href='./forms_admin.php?id={$registry['id']}&method=disable' target='Main'>enabled</a>";
65 ?></td>
66 <td bgcolor="<?=$color?>" width="10%">
67 <span class=text><?php
69 if ($registry['unpackaged'])
70 echo "PHP extracted";
71 else
72 echo "PHP compressed";
74 ?></span>
75 </td>
76 <td bgcolor="<?=$color?>" width="10%">
77 <?php
78 if ($registry['sql_run'])
79 echo "<span class=text>DB installed</span>";
80 else
81 echo "<a class=link_submit href='./forms_admin.php?id={$registry['id']}&method=install_db' target='Main'>install DB</a>";
82 ?>
83 </td>
84 </tr>
85 <?php
86 if ($color=="#CCCCCC")
87 $color="#999999";
88 else
89 $color="#CCCCCC";
90 } //end of foreach
92 </table>
93 <hr>
96 <?php //UNREGISTERED SECTION ?>
97 <span class=bold>Unregistered</span><br>
98 <table border=0 cellpadding=1 cellspacing=2 width="500">
99 <?php
100 $dpath = "$srcdir/../interface/forms/";
101 $dp = opendir($dpath);
102 $color="#CCCCCC";
103 for ($i=0; false != ($fname = readdir($dp)); $i++)
104 if ($fname != "." && $fname != ".." && $fname != "CVS" && (is_dir($dpath.$fname) || stristr($fname, ".tar.gz") || stristr($fname, ".tar") || stristr($fname, ".zip") || stristr($fname, ".gz")))
105 $inDir[$i] = $fname;
107 if ($bigdata != false)
108 foreach ( $bigdata as $registry )
109 if ( $key = array_search($registry['directory'], $inDir) )
110 unset($inDir[$key]);
112 foreach ( $inDir as $fname )
114 if (stristr($fname, ".tar.gz") || stristr($fname, ".tar") || stristr($fname, ".zip") || stristr($fname, ".gz"))
115 $phpState = "PHP compressed";
116 else
117 $phpState = "PHP extracted";
119 <tr>
120 <td bgcolor="<?=$color?>" width="1%">
121 <span class=text> </span>
122 </td>
123 <td bgcolor="<?=$color?>" width="20%">
124 <span class=bold><?=$fname?></span>
125 </td>
126 <td bgcolor="<?=$color?>" width="10%"><?php
127 if ($phpState == "PHP extracted")
128 echo '<a class=link_submit href="./forms_admin.php?name='.urlencode($fname).'&method=register" target=Main>register</a>';
129 else
130 echo '<span class=text>n/a</span>';
131 ?></td>
132 <td bgcolor="<?=$color?>" width="20%">
133 <span class=text><?=$phpState?></span>
134 </td>
135 <td bgcolor="<?=$color?>" width="10%">
136 <span class=text>n/a</span>
137 </td>
138 </tr>
139 <?php
140 if ($color=="#CCCCCC")
141 $color="#999999";
142 else
143 $color="#CCCCCC";
144 flush();
145 }//end of foreach
147 </table>
149 </body>
150 </html>