]> git.p6c8.net - devedit.git/blob - devedit.pl
Small cleanup
[devedit.git] / devedit.pl
1 #!C:/Programme/Perl/bin/perl.exe -w
2
3 #
4 # Dev-Editor 2.3.1
5 #
6 # Dev-Editor's main program
7 #
8 # Author: Patrick Canterino <patrick@patshaping.de>
9 # Last modified: 2005-04-09
10 #
11
12 use strict;
13 use CGI::Carp qw(fatalsToBrowser);
14
15 use vars qw($VERSION);
16 use lib 'modules';
17
18 use CGI;
19 use Config::DevEdit;
20
21 use Command;
22 use Output;
23 use Tool;
24
25 $VERSION = '2.3.1';
26
27 # Path to configuration file
28 # Change if necessary!
29
30 use constant CONFIGFILE => 'devedit.conf';
31
32 # Read the configuration file
33
34 my $config = read_config(CONFIGFILE);
35 error_template($config->{'templates'}->{'error'}); # Yes, I'm lazy...
36
37 # Check if the root directory exists
38
39 abort($config->{'errors'}->{'no_root_dir'}) unless(-d $config->{'fileroot'} && not -l $config->{'fileroot'});
40
41 # Check if we are able to access the root directory
42
43 abort($config->{'errors'}->{'no_root_access'}) unless(-r $config->{'fileroot'} && -x $config->{'fileroot'});
44
45 # Read the most important form data
46
47 my $cgi = new CGI;
48
49 my $command = $cgi->param('command') || 'show';
50 my $file = $cgi->param('file') || '/';
51 my $curdir = $cgi->param('curdir') || '';
52 my $newfile = $cgi->param('newfile') || '';
53
54 # Create physical and virtual path for the new file
55
56 my $new_physical = '';
57 my $new_virtual = '';
58
59 if($newfile ne '' && $newfile !~ /^\s+$/)
60 {
61 $curdir = upper_path($file) if($curdir eq '');
62 my $path = $curdir.'/'.$newfile;
63
64 # Extract file and directory name...
65
66 my $file = file_name($path);
67 my $dir = upper_path($path);
68
69 # ... check if the directory exists ...
70
71 my $temp_path = clean_path($config->{'fileroot'}.'/'.$dir);
72
73 unless(-d $temp_path && not -l $temp_path)
74 {
75 abort($config->{'errors'}->{'dir_not_exist'},'/');
76 }
77
78 # ... and check if the path is above the root directory
79
80 unless(($new_physical,$new_virtual) = check_path($config->{'fileroot'},$dir))
81 {
82 abort($config->{'errors'}->{'create_above_root'},'/');
83 }
84
85 # Check if we have enough permissions to create a file
86 # in this directory
87
88 unless(-r $new_physical && -w $new_physical && -x $new_physical)
89 {
90 abort($config->{'errors'}->{'dir_no_create'},'/',{DIR => $new_virtual});
91 }
92
93 # Create the physical and the virtual path
94
95 $new_physical = File::Spec->canonpath($new_physical.'/'.$file);
96 $new_virtual .= $file;
97 }
98
99 # This check has to be performed first or abs_path() will be confused
100
101 my $temp_path = clean_path($config->{'fileroot'}.'/'.$file);
102
103 if(-e $temp_path || -l $temp_path)
104 {
105 if(my ($physical,$virtual) = check_path($config->{'fileroot'},$file))
106 {
107 # Create a hash containing data submitted by the user
108 # (some other necessary information are also included)
109
110 my %data = (physical => $physical,
111 virtual => $virtual,
112 new_physical => $new_physical,
113 new_virtual => $new_virtual,
114 cgi => $cgi,
115 version => $VERSION,
116 configfile => CONFIGFILE);
117
118 # Execute the command...
119
120 my $output = exec_command($command,\%data,$config);
121
122 # ... and show its output
123
124 print $$output;
125 }
126 else
127 {
128 abort($config->{'errors'}->{'above_root'},'/');
129 }
130 }
131 else
132 {
133 abort($config->{'errors'}->{'not_found'},'/');
134 }
135
136 #
137 ### End ###

patrick-canterino.de