File: openme.php

package info (click to toggle)
python-ck 1.9.4-1.1
  • links: PTS
  • area: main
  • in suites: bookworm, bullseye
  • size: 1,004 kB
  • sloc: python: 6,505; php: 344; sh: 34; makefile: 3
file content (170 lines) | stat: -rw-r--r-- 3,571 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
<?php

/*

#
# Part of OpenME interface to connect PHP (web requests) to CK
#
# See CK LICENSE.txt for licensing details
# See CK COPYRIGHT.txt for copyright details
#
# Developer: Grigori Fursin, 2014-2015
#

*/

function openme_web_to_array($web, $prefix, $remove=true)
{
  if ($prefix=="")
    $r=$web;
  else
    $r=array();
    foreach ($web as $key => $value)
      if ($prefix==substr($key, 0, strlen($prefix)))
      {
        if ($remove) $key=substr($key,strlen($prefix));
        $r[$key]=$value;
      }
  return $r; 
}

function openme_web_file_to_array($web)
{
  $r=array();
  foreach ($web as $key => $value)
  {
    if (array_key_exists('tmp_name', $value))
    {
       $r[$key.'_uploaded']=$value['tmp_name'];
    }
  }
  return $r; 
}

function openme_web_err($cfg, $tp, $err, $str)
{
  if ($tp=='json')
  {
    $a=array('return' => strval($err), 'error' => $str);
    $s=json_encode($a);
  }
  else if ($tp=='con')
  {
    $s=$str;
  }
  else
  {
    $tp='html'; 
    $s='<html><body><pre>'.$str.'</pre></html></body>';
  }

  return openme_web_out($cfg, $tp, $s, '');
}

function openme_web_out($cfg, $tp, $str, $filename)
{
  if ($tp=='' || $tp=='web')
     $tp='html';

  $tpx1=$cfg['content_types'];
  if (!array_key_exists($tp, $tpx1))
     $tp='unknown';

  $tpx=$cfg['content_types'][$tp];

  foreach ($tpx as $key => $value) 
  {
    $x=$key.': '.$value;
    $y=str_replace('$#filename#$',$filename, $x);
    header($y); 
  }

  print $str;

  return;
}

function openme_ck_access($i, $output=true)
{
 # Convert to json and call CK
 # FGG: in the future we may want to connect through socket

 # Get action
 if (!array_key_exists('action', $i))
    return array("return"=>1,"error"=>"action is not defined");

 $action=$i["action"];
 unset($i["cm_action"]);

 # Check that no special characters, otherwise can run any command from CMD
 if (preg_match('/[^A-Za-z_\-0-9]/i', $action))
    return array("return"=>1,"error"=>"action contains illegal characters");

 # Decode dict to json and save to temp file
 $str=json_encode($i);
 $ftmp=tempnam("", "ck-");
 $f=fopen($ftmp, "w");
  fwrite($f, $str);
 fclose($f);

 # Prepare call to CK
 $ckr=getenv("CK_ROOT"); 
 if ($ckr=="") $ckr=getcwd();
 $ck=$ckr . '/bin/ck';
 if (!file_exists($ck)) $ck='ck';

 $cmd=$ck." ".$action." @".$ftmp;

 #Add cmd if Windows (FGG:TODO maybe can be done cleaner?)
 if (substr(strtoupper(PHP_OS),0,3)=="WIN")
    $cmd="cmd /c ".$cmd;

 #FGG: important note for Windows: stderr pipe should be "a" not "w"
 #     see http://www.php.net/manual/en/function.proc-open.php   Luceo 28-Mar-2010 07:39
 $tmpfname = tempnam("", "ck-err-");
 $descriptorspec = array(0 => array("pipe", "r"), 1 => array("pipe", "w"), 2 => array("file", $tmpfname, "w"));

 $process = proc_open($cmd, $descriptorspec, $pipes, NULL, NULL);

 $tout='';
 $terr='';
 $rv=0;
 if (is_resource($process)) 
 {
    fclose($pipes[0]);

    $tout=stream_get_contents($pipes[1]);
    fclose($pipes[1]);

    $rv = proc_close($process);
  }

  # Read and delete temporal file with error output
  $terr=file_get_contents($tmpfname);
  unlink($tmpfname);

  if ($output)
  {
    echo $tout;
    echo $terr;
  }

  # Delete temporal input file
  if (file_exists($ftmp)) 
     unlink($ftmp);

  $r=array("return"=>$rv, "stdout"=>$tout, "stderr"=>$terr, "std"=>$tout.$terr);

  if ($rv>0)
    $r["error"]=$tout.$terr;

  return $r;
}

function urlsafe_b64decode($s) 
{
# return str_replace(array('-','_','.'), array('+','/','='), $s);
 return base64_decode(str_replace(array('-','_'), array('+','/'), $s));
}

?>