initial commit
[drupal_crud_module_creator.git] / crud.php
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
<?php
 
extract ($_POST);
$module_basename = strtolower (str_replace (" ", "_", $module_name));
 
if ( $_GET['do'] == "schema" ) {
        if ( $module_name && $module_table ) {
                ob_start ();
                include ("tpl/crud.install.php");
                $crud_install = ob_get_contents();
                ob_end_clean();
                preg_match_all ("|\_schema\(\)\{(.*)return|isU", $crud_install, $schema);
                echo $schema[1][0];
                exit ();
        }
} else {
        ob_start ();
        include ("tpl/crud.info.php");
        $crud_info = ob_get_contents();
        ob_end_clean();
 
        ob_start ();
        include ("tpl/crud.install.php");
        $crud_install = ob_get_contents();
        ob_end_clean();
 
        ob_start ();
        include ("tpl/crud.module.php");
        $crud_module = ob_get_contents();
        ob_end_clean();
 
 
        $file = tempnam("tmp", "zip");
        $zip = new ZipArchive();
        $zip->open($file, ZipArchive::OVERWRITE);
        $zip->addFromString($module_basename."/images/active.png", file_get_contents("tpl/images/active.png"));
        $zip->addFromString($module_basename."/images/inactive.png", file_get_contents("tpl/images/inactive.png"));
        $zip->addFromString($module_basename."/".$module_basename.".info", $crud_info);
        $zip->addFromString($module_basename."/".$module_basename.".install", $crud_install);
        $zip->addFromString($module_basename."/".$module_basename.".module", $crud_module);
        $zip->close();
 
        // Stream the file to the client
        header("Content-Type: application/zip");
        header("Content-Length: " . filesize($file));
        header("Content-Disposition: attachment; filename=\"".$module_name.".zip\"");
        readfile($file);
 
        unlink($file);
}
 
?>
comments