Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 86 lines (80 sloc) 1.459 kB
b31a690 @jonjensen Move DEV_4_7_0 development branch to repository trunk.
jonjensen authored
1 AutoVariable <<EOF
2 DefaultShipping
3 DescriptionField
4 ImageDir
5 ImageDirSecure
6 MailOrderTo
7 PriceField
8 ProductFiles
9 ProductDir
10 SecureURL
11 VendURL
12 EOF
13
14 ifdef @UI
14156fd @perusionmike Modified catalog_after.cfg so that default is default profile.
perusionmike authored
15 UserDB ui database access
16 UserDB ui crypt 1
d628b6e @perusionmike Major changes to access manager. Means modifying nearly every file
perusionmike authored
17 UserDB ui time_field last_login
14156fd @perusionmike Modified catalog_after.cfg so that default is default profile.
perusionmike authored
18 UserDB ui admin 1
19 UserDB default admin 0
b31a690 @jonjensen Move DEV_4_7_0 development branch to repository trunk.
jonjensen authored
20
21 #AdminSub <<EOR
22 #add_gpg_key
23 #backup_database
24 #backup_file
25 #check_upload
26 #db_columns
27 #db_hash
28 #directive_value
29 #dump_session
30 #export_database
31 #file_navigator
32 #global_value
33 #grep_mm
34 #if_mm
35 #import_fields
36 #list_databases
37 #list_glob
38 #list_keys
39 #list_pages
40 #mm_value
41 #read_shipping
42 #read_ui_template
43 #regenerate
44 #rotate_file
45 #row_edit
46 #substitute_file
47 #uneval
48 #unlink_file
49 #version
50 #widget
51 #with
52 #write_relative_file
53 #write_shipping
54 #EOR
55
efe1bb1 @perusionmike The whirlwind swept through. 8-\
perusionmike authored
56 ParseVariables Yes
57
58 ActionMap ui_download <<EOR
59 sub {
60 my $status;
61 $CGI->{mv_nextpage} =~ s:^ui_download/::;
62 $CGI->{mv_nextpage} .= $Session->{extension};
63 if($Tag->if_mm('files', $CGI->{mv_nextpage}) ) {
b31a690 @jonjensen Move DEV_4_7_0 development branch to repository trunk.
jonjensen authored
64 # Take care of MSIE brain damage
65 if($Session->{browser} =~ /msie/i) {
66 $Document->header("Content-type: application/x-foolmsie");
67 }
68 else {
69 $Document->header("Content-type: application/octet-stream");
70 }
efe1bb1 @perusionmike The whirlwind swept through. 8-\
perusionmike authored
71 $Document->hot(1);
72 HTML ( $Tag->file($CGI->{mv_nextpage}) );
73 $status = 0;
74 }
75 else {
7587e18 @jdigory Encode UI error message to eliminate XSS
jdigory authored
76 my $file = $Tag->filter('encode_entities', $CGI->{mv_nextpage});
77 $Scratch->{ui_error} = "Not authorized for file $file";
efe1bb1 @perusionmike The whirlwind swept through. 8-\
perusionmike authored
78 $CGI->{mv_nextpage} = '__UI_BASE__/error';
79 $status = 1;
80 }
81 return $status;
82 }
83 EOR
ed44c7c @perusionmike Added new menu variables to catalog_before.cfg, fits new U.
perusionmike authored
84
b31a690 @jonjensen Move DEV_4_7_0 development branch to repository trunk.
jonjensen authored
85 endif
Something went wrong with that request. Please try again.