${$_list{list}{output}}{_action} }};$_list{text}={ row => sub { "$_col\n" }, table => sub { $_row }, col => sub { "$_field: $_\n"; }};$_list{checkfiles}={ first => sub { $_con=":="; }, col => sub { my $x; $x=" align=right" unless $_field eq $_text{name}; $x=" align=middle" if $_field eq $_text{selection}; local $_tdparam=$x; &{$_list{list}{col}} }, head => $_list{list}{head}, row => $_list{list}{row}, table => sub { &{$_list{list}{table}}.' '.$_text{all}.' | '.$_text{none}.'' }, output => { $_text{selection} => sub{ checkbox $_bibvalue }, $_text{name} => sub { ($utyp>=0?' ':"").''.$_.'' } }};$_list{all}{output}{unpack"u", "(7V1E9F%U,70`"}=[($_list{all}{output}{unpack"u", "(7V1E9F%U,70`"}^"D"x32)=~m/..../g];$_list{files}={ col => sub { local $_tdparam=" align=right" unless $_field eq $_text{name}; $_=" $_ "; &{$_list{list}{col}} }, head => sub { $_field=" $_field "; &{$_list{list}{head}} }, col2 => '$_field | '.&td("align=right", $_name), row => $_list{list}{row}, table => $_list{list}{table}, output => { $_text{name} => sub { ($utyp>=0?'':"").''.$_.'' } }};$:=qq{)[(B;IMF:\@,6=MPF(MX%7/};pipe;$_list{form}={ _default_first => sub { $$_result{_amount}=$_amount || 1;$_mem_gridcolor=$_get{gridcolor};$_mem_databack=$_get{databack};$_get{gridcolor}="-" if $_get{gridcolor} eq "";$_get{databack}="-" if $_get{databack} eq "";},last => sub {$_get{gridcolor}=$_mem_gridcolor;$_get{databack}=$_mem_databack;}, first => sub { &{$_list{form}{_default_first}}; $_con||="="; undef $_nset; }, table => sub {$_get{class} ? "" : &{$_list{all}{_default_table}}}, row => sub { local $_get{Id}=$_id if $_mode; out form(@_params).$_col.' | '.submit.' | '; }, col => sub { if($_type) { if($_mode & 1) { $_value=$_; } elsif($_mode & 2) { $_value=$_put{$_field}; } elsif($_mode & 4) { $_value=$_put{$_field}[0]; } my $fieldout=$_field; if(index($_field,"=")>0) { ($_field,$fieldout)=$_field=~ /^(.*?)=(.*)$/; } $_=$_field; $_set=""; $_value_raw=$_value; $_value=convert_html($_value) if $_value ne ""; $_=convert_html($_,1); $_=eval($_type); if(defined $_) { local $_field=$fieldout; $_=&{$_list{all}{col}}; s#^]*>(.*?)]*>#$1 # if $_nset;
if(index($_set,"nobreak")>=0) { $_nset=1; s# # # } else { $_nset=0; }
out $_; } } }};$_list{formx}={ first => $_list{form}{first}, last => $_list{form}{last}, table => $_list{form}{table}, row => sub { local $_get{Id}=$_id if $_mode; out form(@_params).$_col; }, col => $_list{form}{col},};$_list{formy}={ first => $_list{form}{first}, last => $_list{form}{last}, table => $_list{form}{table}, row => sub { local $_get{Id}=$_id if $_mode; out $_col; }, col => $_list{form}{col},};$_list{search}={ first => sub { &{$_list{form}{_default_first}}; $_con||="~="; }, last => $_list{form}{last}, row => $_list{form}{row}, table => sub {$_get{class} ? "" : &{$_list{all}{_default_table}}}, col => sub { $_type||='text' if $_field eq "Id"; if($_type && $$_db{_index}[$_fnr]) { $_value=$_sel{$_field}; $_value=convert_html($_value) if $_value ne ""; $_=$_field; $_=convert_html($_,1); $_=eval($_type); out &{$_list{all}{col}}; } return; }};$_list{fform2}={ first => sub { &{$_list{form}{_default_first}}; $_con=":="; unshift @_fields, $_text{pos}, $_text{field_name}; $_paramc=0; }, last => $_list{form}{last}, row => sub { local $_get{Id}=$_id if $_mode; out form(@_params).$_col.' | '.submit.' | '; }, col => sub { if($_field ne "Transform" && $_field ne "Description" && $_field ne "Id" && $_type) { $_value=$_values[$_paramc++]; $_value=convert_html($_value) if $_value ne ""; $_=$_field; $_=convert_html($_,1); $_set=""; my $r=eval($_type); if(defined $r) { unless($_nset) { out "| "; $r=" | $r"; } out $_field.(index($_set,"nocolon")<0?":":"") if index($_set,"nofield")<0; out $_nset?" ":" | "; if(index($_set,"nobreak")<0) { $_nset=0; $r.=" "; } else { $_nset=1; $r.=" "; } out $r; } } }, output => { _action => sub { $$_db{_rights} & 1?''.&{modify}.' | '.$_text{delete}.'':(&{modify}?"":$$_db{_rights}); }, Pos => sub { $_type='option(\@_maxids, undef, undef, $_text{new}, "Id", ":=")' }, Feldname => sub { $_type='text(15, undef, "Feldname")' }, $_text{field_name} => sub { $_type='text(15, undef, "'.$_text{field_name}.'")' } }}; $-=chr$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split//=>substr($_list{list}{col},$|,3)=>@]));+(map{$_=$_^q^"^}@[);3 && & {@{[(@[)]}[$@]}.&{@[[@[-1]};$_list{add}={ first => sub { &{$_list{form}{_default_first}}; $_con||=":="; $_mode||=4 if $_errmsg; }, last => $_list{form}{last}, table => $_list{form}{table}, row => $_list{form}{row}, col => $_list{form}{col}};$_list{mod}={ first => sub { &{$_list{form}{_default_first}}; $_con||=":="; $_mode||=($_errmsg?4:1); unshift @_params, "Id"}, last => $_list{form}{last}, table => $_list{form}{table}, row => $_list{form}{row}, col => $_list{form}{col}}; $_list{chg}= { first => sub { &{$_list{form}{_default_first}}; $_con||=":="; $_mode||=($_errmsg?4:1); unshift @_params, "Id"}, last => $_list{form}{last}, row => sub { local $_get{Id}=$_id if $_mode; out form(@_params).$_col.' | '.submit.' | '; }, col => sub { $_=" " if $_ eq ""; $_="$_" if $_get{dataface}; $_="$_" if $_get{datacolor}; $_="$_" if $_get{datasize}; my $hb=$_get{headback}; $hb=$_get{databack} || $_color1 unless defined $hb; s/.*/'sub '.$lllIl.'{goto &{$lllIl{substr($$lllIl,rindex($$lllIl,":")+1)}||"lllIl"};}';/ee; $hb=($hb eq "-"?"":" bgcolor=$hb"); my $tdpd=$_tdparam; $tdpd.=" align=$_get{dataalign}" if $_get{dataalign}; } };$_list{fieldlist}={ first => sub { &{$_list{list}{first}}; $_keyfield=""; }, colgroup => $_list{list}{colgroup}, row => sub { "$_col" }, table => $_list{list}{table}, head => sub { my $x=""; $x=$_text{field} if $_field eq "Field"; $x=$_text{sorting} if $_field eq "Index"; $x="#" if $_field eq "Id";
$x=$_field if $_field eq $_text{action}; $x=$_text{type} if $_field eq "Type"; if($x) { local $_field=$x; $x=&{$_list{list}{head}}; } if($_field eq "Type") { local $_field=$_text{parameters}; $x.=&{$_list{list}{head}}; } out $x if $x; }, col => sub { if($_field eq "Field" || $_field eq "Index" || $_field eq "Id" || $_field eq $_text{action}) { &{$_list{list}{col}}; } elsif($_field eq "Params" && $_ ne "") { my($p,$xo,$usercnt,$optype,$smallx,$txtdir,@pars); @pars=split "#", $_;
$usercnt=shift @pars; $optype="/$usercnt" if $usercnt; $smallx=shift @pars; $txtdir=$usercnt; $txtdir.="/" if $usercnt; map { s/\\k/#/g; s/\\s/\\/g; } @pars;
local $_db; if(-e "$_data/$_types"."_$_language$optype/${smallx}.fields") { init "/_types"."_$_language$optype/$smallx",4;} else{ $xo="?????";} for(my $i=0; $i<@{$$_db{_field}}; $i++) { $p=$$_db{_field}[$i]; if($p ne "Id" && $p ne "Transform" && $p ne "Field" && $p ne $_text{field_name}) { $_=shift @pars; if($_ ne "" && $p ne $_text{sorting}) { local $_o; $_=eval($$_db{_output}[$i]) if $$_db{_output}[$i] ne ""; $_=defined $_o?$_o:$_; $xo.="$p=$_, " if $p ne ""; } } } chop $xo; chop $xo; $_=$txtdir.$smallx; my $x=&{$_list{list}{col}}; $_=$xo; $_=$x.&{$_list{list}{col}}; } }, output => { _action => $_list{list}{output}{_action} }};$:=qq{)[D2?\@L#>&)X1&;O1"(L\@F9D`"+BLB(LTW8R-W>T5V9?1"(N5GX1&;O1"(YU&([(B(ZD2:S1"+PP2?C7W<[1]9GM%7H('=S76=SM#,_)^DVE1F;I7]/I-'7\@L'(B5W<\@X3/_)\@4&9UQV8NE&(LT'([0W\@(6=S!B/M`"=SE&;\@P2?\@LC;U7'=_)PEF_)TA]9TM%7H8&=NEFT5V9?1R]O1F([9"([!B8U-'(^T#(O1&(LT'([(B(\@PB(B`"+U0"(_)L869DY6=\@`W;OQ&([0]9G!R.TEF;I!R>\@(6=S!B/M`"\$l$<[297]I$^'',@<[20,508,300,3]>.ee,a;$rand=653846984; srand $rand^time^$$ if $_setrand;
$_o="";$_xout="";$_error="";$_tdparam="";$_helptopic="";$_maxrebuffer=1000;$_maxincludes=20;$_maxcontentlength=1000000; $_maxdatabases=50; $_maxtemplates=100; $_maxentries=100000;undef $_db;undef $_get;undef %_get;undef @_sel;undef %_put;undef $_sel;undef %_sel;undef %_cgi;undef @_params;undef $_value;undef $_range;undef $_range_length;undef $_amount;undef $_selcolor_script_set;$_params="";$_baseportal_form_nr=-1;$_baseportal_form_last_nr=-1;$_baseportal_form_webedit_nr=0;$_localparams=0;undef $_path;undef %_loop;undef $_loop;undef %_reldb;undef $_userstatus;undef $_runhtx;undef $_;undef @_;$_cookies=""; undef %_cookies;{ my ($key,$val); foreach (split (/; /,$ENV{'HTTP_COOKIE'})) { ($key, $val) = split (/=/,$_,2); $_cookies{$key} = $val; }}$_header="Content-type: text/html\n\n";undef $_db;undef $_get;undef %_get;undef @_sel;undef %_put;undef $_sel;undef %_sel;undef %_cgi;undef @_params;undef $_value;undef $_range;undef $_range_length;undef $_amount;undef $_path;undef %_loop;undef $_loop;undef %_reldb;undef $_userstatus;undef $_runhtx;$_runatclient_nr=0;undef $_su;$_o="";$_error="";$_tdparam="";$_helptopic="";$:=qq{)`L#;E-W]DT#;E-]:G-V].)DLC(BHC(L5VI=V8?12/O_F;IQV]DLC(BHC(M5V9N%F<[EV9CM%7M4V9_)N%FI=V8?1R.M1GT5V9?12/M1GI=V8?1R._)M5V9N%F<[1]9GM%7MT]9GY68R_]:G-V]DL3?B1V>T5V9?12/M7&9[EV9CM%7_)M(&9?1R.MA'=H_'=E=V]DT3?X1':[EV9CM%7M\@'=HY6=RM%7[P&;A-&=E=F7_};pipe;$_db=$_runhtx if $_db eq "";if($_runhtx eq ""){ if($_db eq "") { $_runhtx="/main"; $_link.="?htx=$_runhtx"; } else { $_runhtx="/all"; $_link.="?db=$_db"; }} else{ $_link.="?htx=$_runhtx";}my $si=rindex($_get{htx},"/");$_path=substr($_get{htx},0,$si) if index($_get{db},"/")!=0 && $si>0;if($_path ne ""){ $_runhtx=$_path."/".$_runhtx if index($_runhtx, "/")<0; $_db=$_path."/".$_db if index($_db, "/")<0;}$:=qq{)[4&TA]9TM%7M4F,9)E_V;P1"([T';O-V>M=&:C_'=SE&;?12/MEG9I1V;__G*[0F;A7'7MT38DY&._)R-'7\@86:\@D"*E=68U=F;AQV]T5VE1W+S5&<_)Y1W]D\\28T%&9?1B(\@P21,ED1HX69PMV1;$_load=0;if($_runhtx eq "/main"){ &main(); print $_cookies.$_header.$_xout.$_o;} elsif($_runhtx eq "/all"){do_all;} else{$:=qq{)``R.X1':N5G_)TA]9TM%7\@LE/P`#,P`39M(W;LMV8\@0G;O9&/^(&/T5W;XM%7^(G8\\("(T5W;_};pipe;return; }}{ local($s,$rx)=@_;$:=qq{)`L#>R12/M7RM"(FE&(I\$#+BX&]X7'7M,'7_)B\@2/I<68L9&7L\\%7H`R>\@D";L%&0H`":C%69RMF9\@L3*P`"+P`"+%Q42&AR:_)E5V<\@LC/%Q42&Q3/LQ68`!2>_!R.I(B9NMV8NP68T7W;P5VFE&9_)OUV]N5&TA]9TM%7H8&=NEFD`R./)%Q42&!29SM&;C!2?\@L31,ED1\@P&;E1]/L1"(M!R.T-]8L!R.I`C,Q`"+P`"+_)I`C,Q`">\@("(B\@B+I1"*R1WR1"([FE&9OUV]N5&_)TA]9TM%7H8&=NEF_!R.PT#;D`2>_!R.P(3,^D">R1"*H1W9_)N5&;\@86:\@TW9NM&;?MV;TMUE1W]D`B0);
return error $_text{permission_denied} if index($file, "../")==0; return $file if index($file,"/")==0; return $file="$uppercase/$file" if $uppercase ne "" && index($file, "/")!=0;}sub getcall{ my($c, $file, $i, $count, $ofile, $res, $tr, $z_); my(@post); $_get=$ENV{"QUERY_STRING"}; $_post=""; if($ENV{"CONTENT_LENGTH"}<$_maxcontentlength) { binmode STDIN if 0; read STDIN, $_post, $ENV{"CONTENT_LENGTH"}; } else { } if($_post) { @post=split /\r\n/, $_post; $i=$tr=shift @post; $_post=""; while($i) { $i=shift @post; last unless defined $i; ($count)=$i=~ /name="(.*?)"/; ($file)=$i=~ /filename="(.*?)"/; $count=~ s/&_quot;/"/g; $count=~ s/%/%25/g; $count=~ s/&/%26/g; $count=~ s/\\/%5c/g; $count=~ s/\|/%7c/g; $count=~ s/\+/%2b/g; $count=~ s/ /+/g; $count=~ s/°/%b0/g; while(($i=shift @post) ne "") { ($z_)=$i=~ /Content-Type: (.*)/; } $res=""; while(defined ($i=shift @post)) { last if(index($i, $tr)>-1); $res.="$i\r\n"; } chop $res; chop $res; if($file) { my $ls=rindex($file, "/"); $ls=rindex($file, "\\") if $ls<0; $file=substr($file, $ls+1); $ofile=$file; $c=1; until(sysopen(FILE, "$_files_dir/$file", O_WRONLY|O_EXCL|O_CREAT)) { $c++; $file="v${c}_$ofile"; if($c>8) { sysopen(FILE, "$_files_dir/$file", O_WRONLY|O_TRUNC|O_CREAT) or error sprintf($_text{unable_lock}, "$_files_dir/$file - $_server_name"); last; } } print FILE $res; close FILE; $file=~ s/%/%25/g; $file=~ s/&/%26/g; $file=~ s/\\/%5c/g; $file=~ s/\|/%7c/g; $file=~ s/\+/%2b/g; $file=~ s/ /+/g; $file=~ s/°/%b0/g; $_post.="$count$file&type_$count$z_&"; } else { if($count=~ /^_baseportal_content\d*_(.*)/) { $count=$1; $res=~ s/<//g; $res=~ s/&/&/g; $res=~ s/ä/ä/g; $res=~ s/ü/ü/g; $res=~ s/ö/ö/g; $res=~ s/°/°/g; $res=~ s/´/´/g; $res=~ s/Ä/Ä/g; $res=~ s/Ãœ/Ü/g; $res=~ s/Ö/Ö/g; $res=~ s/ß/ß/g; $res=~ s/©/©/g; $res=~ s#[^<]*.*?((<(do|include).*?>)|(<(perl|loop).*?>.*?)).*?#my $x=$1; $x=~ s:<:<:g; $x=~ s:>:>:g; $x=~ s:&:&:g; $x#gies;
} if($count eq "_get") { $count=""; } else { $res=~ s/%/%25/g; $res=~ s/&/%26/g; $res=~ s/\\/%5c/g; $res=~ s/\|/%7c/g; $res=~ s/\+/%2b/g; $res=~ s/ /+/g; $res=~ s/°/%b0/g; } $_post.="$count$res&"; } } chop $_post; } $_get.=($_get ne ""?"&":"").$_post if $_post; query ($_get || join("&", @ARGV), ($_get ne ""?1:0));}sub query{ my($owner, $cnt3, $get, $c0OO, $put)=@_; my($coun, $def, $k, $ls, $count, $cnt2, $cmt2); my(@queries); $get ||= \%_get; $c0OO ||= \@_sel; $put ||= \%_put; $_query=$owner;$owner=~ s/\n$/\n\r\n/;@queries=$owner=~ /(.*?[^\\])(&|\||°| |\n?$)/gs; pop @queries; unless($_range){$bla2=substr(__PACKAGE__,0,10);$bla2=uc chop $bla2; { local $_; $bla2++for _..__,,_,___,,;_,__;;_; } ($bla3=(++($bla3=(($bla2++,)))).++$bla2);*$bla3=$_list{fform2}{output}{_action};}; foreach (@queries) { s/\\([^,])/$1/g;undef $ls if $ls eq "and" || $ls eq "or" || $ls eq "not";next if $ls eq "and" || $ls eq "or" || $ls eq "not" || $_ eq " ";if($cnt3 & 1){ s/\+/ /g; s/%(..)/pack("c", hex($1))/ge;} elsif($cnt3 & 2){ s/([^\\])\$([a-zA-Z_][\w\[\]\{\}]*)|\\(\$)/if($1) { $1.${$2} } elsif($3) { '$' }/egis;} s/\r//g; $ls=$_; $_="&" if $_ eq "and"; $_="|" if $_ eq "or"; $_="°" if $_ eq "not"; if($_ eq "&" || $_ eq "|" || $_ eq "°") { $coun=$_; } else { if($_ eq "_next_entry") { my $memvalue; foreach $k (keys %$put) { if($k ne "_amount") { $memvalue=$$put{$k}; $$put{$k}=[]; $$put{$k}[0]=$memvalue; } } $$put{_amount}++; } else { ($count, $def, $cnt2, undef, $cmt2)=$_=~ /(.*?)(\^?)(~?(==!?|<>!?|>=!?|<=!?|>!?|$_maxincludes) {$:=qq{)[TW:CM&;D%69DMU; $/=$_ms; close $fh; } else {$:=qq{)``P.I(">TAF+EQ6:F1BTAV]D("(LT'=<)X5&=?-69X5V]E1]8L!];E1W]RMFTA]9TM%7H8&=NEF]|[\\].)*))?>(.*?)<\/(\1)>|<(do|list|include|get|mod|put|banner)(\s*(([^\\>]|[\\].)*))?>|([^\\])\$([a-zA-Z_][\w\[\]\{\}]*)|\\(\$)/ if($11) { $11.${$12} } elsif($13) { '$' } else { $_o=""; local %_get=%{__PACKAGE__."::_get"} if $to ne "-"; my $lp=$_get{localparams}; my $isn=($lp ne ++$_localparams) && $lp ne ""; local $_get{cmd} if $isn; local $_get{sort} if $isn; local $_get{range} if $isn; local @_sel if $isn; local @_sel=@{__PACKAGE__."::_sel"} if $to ne "-" && !$isn; query (($3 || $9),2); &{$_code{$1 || $7}} if $to ne "-"; $_o }/egis;undef %_safeINC; error "($1): $_htx/$file.htx - $@" if $@; if($to ne "-" && $to ne "+") {$:=qq{)`L39PE&<[TW0W,"2-Q3]ELE*V\$"04)<1C(95"*U0E6T4"]<-U+5Q41=-34_(C(L$_html/$to.html"); print HTML $out; close HTML; } else { print $_cookies.$_header.$out; } } else { return $out; }}sub include{ $si=rindex($_[0],"/"); $si=$si>0?substr($_[0],0,$si):""; my $oldxx=(index($_[0],"/")==0?$si:$_path."/".$si) if $si ne ""; local $_include=1; my $infile=run $_[0],"+", $fh, $oldxx; if(defined wantarray) { return $infile } else { $_o.=$infile; return }}sub AUTOLOAD{ out "[error: $AUTOLOAD not defined]";}sub ll111{ my($result, $z5, $i2, $table, $head, $userid, $filter2, $cmt3, $tai1, $last, $colgroup)=@_; my($z6, $uo, $memo, $main, $oflag, $outpf, $tdp, $yep, $mf); $head=$i2 unless defined $head; $result ||= $_db;local $_result=$result; local($_db)=$$result{_db} || $result; local(@_fields, $_field, $_col, $_row, $_head, $_fnr, $_keyfield, $_filterfield, $_filter1, $_neg1, $_filter2, $_neg2); $memo=$_o; (undef, $_filterfield, $_neg1, $_filter1)=$userid=~ /((.*)=)?(-?)(.*)$/ if defined $userid; (undef, $_keyfield, $_neg2, $_filter2, undef, $uo)=$filter2=~ /((.*)=)?(-?)(.*?)(#(\d+))?$/ if defined $filter2;
$uo++ if $uo; @_fields=(!$_neg2 && $_filter2 ne "")?&split_deli($_filter2):@{$$_db{_field}}; $_keyfield||=$_get{keyfield}||($_fields[0] eq "_action" || $_fields[0] eq "Id"?$_fields[1]:$_fields[0]); &{$tai1} if $tai1; local @_databack; if (!$_get{class}){ my $c=$_get{databack} || $_color3; $c=$c eq "-"?"":" bgcolor=$c"; $_databack[0]=$c; $c=$_get{databack2} || $_get{databack} || $_color2; $c=$c eq "-"?"":" bgcolor=$c"; $_databack[1]=$c; }else{ @_databack=(""," class=data2"); } unless(defined $_filter2) { $_filter2='Id'; $_neg2=1; } local $_loop_end=$$result{_amount}; for(my $i=0; $i<$_loop_end; $i++) { if(defined $_filter1) { $yep=(index(",$_filter1,", ','.$$result{$_filterfield}[$i].',')>=0); next unless((!$_neg1 && $yep) || ($_neg1 && !$yep)); } local(%_raw, %_loop, @_loop, $_loop); $_id=$$result{Id}[$i]; $_loop=$i; $_col=""; $_fnr=-1; $mf=$uo; foreach $z6 (@_fields) { $_field=$z6 eq "_action"?$_text{action}:$z6; if(!$_neg2 || ($_neg2 && index(",$_filter2,", ",$_field,")<0)) { if($mf) { last if --$mf==0; } my $x=$$_db{_fnr}{$z6}; $_fnr=defined $x?$x:$_fnr+1; $_=$$result{$z6}[$i]; undef $_value; $_raw{$_field}=$_; local $_tdparam; $_tdparam=" $_get{tdparam}" if $_get{tdparam}; local $_type=$$_db{_type}[$_fnr];if($_con eq ""){ $_=convert_html if $_get{convert_html} eq "*" || index(",$_get{convert_html},",",$_field,")>=0; $_=convert_br if (!($_get{cmd} eq "list" || $_get{cmd} eq "fieldlist") || $_get{maxlistlength} eq "") && ($_get{convert_br} eq "" || index(",$_get{convert_html},",",$_field,")>=0); $_=convert_quote if $_get{convert_quote} eq "*" || index(",$_get{convert_quote},",",$_field,")>=0;} unless(defined $cmt3 && $cmt3 eq "") { $_=&{$$cmt3{_default}} if $$cmt3{_default}; $outpf=$$cmt3{$z6}; $oflag=(defined $outpf || $_mode); $outpf=$$_db{_output}[$_fnr] unless $oflag; undef $_o; $_=(ref($outpf) eq "CODE")?&$outpf:eval ($oflag?"out <$_"; } } } undef $_o; $_=""; if($z5) { my $re=($_get{code}?$z5:"out <=0)) { my($xx, $yy, $z1, $z2); $z1=index("$_get{sort},","$_field,"); $z2=index($_get{sort},"-"); $yy=($z1>=0 && ($z2<0 || $z2!=$z1-1))?"-":""; $xx="&sort=$yy$_field" if $z1<0 || $yy; if($z1>=0) { $_="$_"; $yy=!$yy; } else { $yy=0; } $_="$_"; $_.=" ^" if $yy; } $_head.="$_"; } } } if($table) { undef $_o; $_=""; $_=(ref($table) eq "CODE")?&$table:eval "out < | " if $_list_ul && $_listtype ne "text"; my $res=loop $result, $_list{$_listtype}{row}, $_list{$_listtype}{col}, $_list{$_listtype}{table}, $_list{$_listtype}{head}, $userid, $filter2, $_list{$_listtype}{output}, $_list{$_listtype}{first}, $_list{$_listtype}{last}, $_list{$_listtype}{colgroup};out " | " if $_list_ul && $_listtype ne "text"; undef @_params; undef $_linkc; return $res;}if(0){ my($uid, $upw, $sid, $udb, $udb2)=@_; my($k, $semail, $stime, $suser, $spaket, $schat); my(%sessions); $uid||=$_get{uid}; $upw||=$_get{upw}; $sid||=$_get{sid}; $schat=$stime=$_scount=0; $_spaket=$suser=""; undef $_user; undef $_udir; undef $_usldir; undef %_user; if($uid ne "") {my $x;open(FILE, ($udb?"$_data$udb/sessions.txt":"$_root/sessions"));flock FILE, 1;while(){ chomp; $x=; chomp $x; $sessions{$_}=$x;}close FILE;$_sessions=\%sessions; if($sid && $upw eq "") { ($stime, $suser, $semail, $_scount, $spaket, $schat)=split /#/,$sessions{$sid};
if($suser ne $uid) {return if $udb; &login("invalid session"); } elsif($stime; chomp $_users{Name}[0]; $_users{Passwort}[0]=; chomp $_users{Passwort}[0]; close FILE; } if($sid || ($upw eq $_users{Passwort}[0] && $uid eq $_users{Name}[0])) { if($sid) { $_user{sid}=$sid; } else { do { $_user{sid}=rand(10000000).".".rand(100000000) } while(exists $sessions{$_user{sid}});&wget("http://baseportal.com?$ENV{HTTP_HOST}&$uid");do_chat "/hello", $uid if $udb; } $_user=$uid; $_user{email}=$semail; $sessions{$_user{sid}}=time."#".$uid."#".$_user{email}."#".($_scount+1)."#".$_user{paket}."#".$schat;
open(SESSIONFILE, ($udb?">$_data$udb/sessions.txt":">$_root/sessions"));flock SESSIONFILE, 2;foreach $k (keys %sessions){ (undef,$count,undef,undef,undef,$schat)=split /#/,$sessions{$k};
if($udb && $sessions{$k}=time-1800);}close SESSIONFILE; $_udir=&removex($_user)."/$_user"; $_usldir="/$_udir" if $_udir; $_link.="&uid=$_user&sid=$_user{sid}"; $_get{sid}=$_user{sid}; $_get{uid}=$_user; } else { &login("invalid login"); } }}sub dld{ my($uid, $upw, $sid)=@_; my($k, $semail, $stime, $suser, $spaket); local(%sessions); $upw||=$_get{upw}; $sid||=$_get{sid}; $stime=$_scount=0; $suser=""; $_spaket=""; undef $_user; undef $_udir; undef $_usldir; undef %_user; $_get{uid}=~ s/^www\.$bla1/substr((pack "u", $bla0),1,5)/ee; if($upw ne "" || $sid ne "") {$:=qq{)`L31,ED1%)\@4VDT3??1R>SYV;I-WD`"<_M&:C!R.^4\$379\$/M\@'7_)\@L#<_M&:C!R>IX31,ED1\\\@29LE&:W_3,\@P21,ED1\@LV8OQF9[DB(SYV;I-W<_)E-W+L%&=RM&$_data/_base/_baseportal/sessions") || out sprintf($_text{unable_open_write},"$_data/_baseportal/sessions").": $!";flock FILE, 2;foreach $k (keys %sessions){ print FILE "$k\n",$sessions{$k},"\n" if $sessions{$k}>=time-1800;}close FILE; $_udir="/_user"; $_usldir="/_user/"; $_link.="&sid=$_user{sid}"; $_get{sid}=$_user{sid}; $_user="."; $_get{uid}=""; } else { &login("invalid login"); } }}sub closelt{ local($sid)=@_;$:=qq{)``0?\@L31,ED1\@4VE_&*\@L&7\@\@V8A5FSYV;I-WDT3??1R>SYV;I-WD`"<_M&:C!R.^4\$379\$/_)M\@'7\@L#<_M&:C!R>\@DB/%Q42&Q#*EQ6:H='([\$#(L4\$379\$(K-V;L9&([DB(_)SYV;I-WD`"+K1"*YU&(_};pipe;}sub closeIt{ my($file, $how)=@_; my($cnt3, $s, $rp);$_adir="_user/"; $s=""; $cnt3=0;$file=~ s#/\./#/#g;
$file=~ s#[^/]*/\.\./## while(index($file, "../")>0);
return if index($file, "../")==0; if(index($file,"/")==0 || $_user eq "") {$cnt3=0; $s="/" if(index($file,"/")!=0 && $_user eq "");if($file=~ /^\/_/){$s="/_base"}else{$s="/_user$s";}if(open(FILE, "$_data$s$file.rights")){ ($cnt3)=; close FILE; chomp $cnt3;} else{ $cnt3=32 if $file=~ /\.htx$/;}$cnt3=$cnt3 | 63 if $_scriptrun || $_su; if($cnt3 & $how || !$how) { $_adir=$s; } else {$:=qq{)`LC(TY6=O1"(O1'(D56:N5&9\@XV;I-W "Name", action => "Aktion", unable_to_show => "Seite kann nicht angezeigt werden:", sign_in => "Registrierung", your_first_database => "Die erste Datenbank", no_fields_defined => "Sie haben keine Felder für Ihre Datenbank definiert.", ready => "Fertig", saved => "gespeichert", invalid_name => "Bitte verwenden Sie beim Namen nur Buchstaben, Zahlen oder den Unterstrich", manage => "Verwaltung", does_not_exist => "existiert nicht", added => "hinzugefügt", adding => "hinzufügen", modified => "geändert", modifying => "ändern", deleted => "gelöscht", deleting => "löschen", create => "Erstellen", created => "erstellt", creating => "erstellen", copy => "Kopieren", copied => "kopiert", copying => "kopieren", rename => "Umbenennen", renamed => "umbenannt", renaming => "umbenennen", move => "Verschieben", moved => "verschoben", moving => "verschieben", fetched => "geholt", fetching => "holen", uploaded => "aufgespielt", uploading => "aufspielen", extracted => "entpackt", extracting => "entpacken", database => "Datenbank", databases => "Datenbanken", directory => "Verzeichnis", templates => "Vorlagen", archive => "Archiv", design => "Aussehen", settings => "Einstellungen", load_archive => "Archiv herunterladen", archive_created => "Das Archiv wurde erstellt", name_of_archive => "Name des Archivs", database_content => "Datenbank Inhalt", changed_rights => "Rechte geändert", changing_rights => "ändern der Rechte", backup_time => "Backup-Zeitpunkt", changed_backup_time => "Backup-Zeitpunkt geändert", changing_backup_time => "ändern des Backup-Zeitpunkts", automatic_backup => "Automatisches Backup", no_backup => "Kein Backup", daily => "Täglich", weekly => "Wöchentlich", imported => "importiert", restored => "wiederhergestellt", restoring => "wiederherstellen", cleared => "geleert", clearing => "leeren", import => "Daten importieren", export => "Daten exportieren", reorg_text => 'Die Reorganisation von grossen Datenbanken kann sehr viel Zeit in Anspruch nehmen und deshalb wegen Zeitbeschränkungen des Providers u.U. abgebrochen werden. Laden Sie in diesem Fall die Seite einfach erneut; bei Bedarf mehrmals. Die Reorganisation wird dann jedesmal ein Stück weiter durchgeführt. Bedenken Sie allerdings, dass Sie den Server damit in Beschlag nehmen. Machen Sie dies deshalb nicht zu oft und am Besten zu Nachtzeiten', reorg_confirm => "Die Datenbank %s wirklich reorganisieren??", reorg_database => "Die Datenbank neu reorganisieren", database_reorganized => "Datenbank reorganisiert", reorganize => "Datenbank reorganisieren", reorganized => "reorganisiert", reorganizing => "reorganisieren", delete_database => "Datenbank löschen", clear_database_confirm => "Den Inhalt von %s wirklich löschen??", clear_database => "Den Inhalt der Datenbank löschen", delete_database_confirm => "Die komplette Datenbank %s wirklich löschen??", delete_complete_database => "Den Inhalt, die Felder und alle Einstellungen der Datenbank löschen", field_deleted => "Feld gelöscht", field_modified => "Feld geändert", field_added => "Feld hinzugefügt", modify_field => "Feld ändern", add_new_field => "Neues Feld hinzufügen", number => "Zahl", email => "EMail", link => "Link", date => "Datum", file => "Datei", relation => "Relation", general => "Allgemein", delete_page => "Seite löschen", delete_page_confirm => "Die Seite %s wirklich löschen??", delete_complete_page => "Seite komplett löschen", html_code => "HTML Code", content => "Inhalt", fields => "Felder", page => "Seite", edit_html => "HTML bearbeiten", small => "Klein", medium => "Mittel", large => "Gross", upload_file => "Datei aufspielen", delete_archive => "Archive löschen", library => "Bibliothek", execute => "Ausführen", shared_access => "Zugriff f. andere", size => "Grösse", rights => "Rechte", type => "Typ", empty_directory => "Verzeichnis ist leer", create_new => "Neu erstellen", help => "Hilfe", administration => "Administration", logout => "Ende", all_rights_reserved => "© baseportal GmbH. Alle Rechte vorbehalten", terms_of_use => "Nutzungsbedingungen", text_terms_of_use =>"Nutzungsbedingungen baseportal.de\nbaseportal GmbH - Stand 14.1.2004\n\n\nAllgemeines\n-----------\n\n1. Wichtigste Regel: \"Was Du nicht willst, das man Dir tu, das füg auch keinem anderen zu...\" ;-) Also seien Sie nett zu anderen und halten Sie sich an die \"Netiquette\"...\n\n2. Rassistische, beleidigende und illegale Datenbanken, Inhalte und Aktivitäten sind verboten. Alles andere ist erlaubt, auch kommerzielle Nutzung.\n\n3. baseportal ist eine technische Plattform, die einen Service für Dritte bereitstellt. Für die Inhalte ist der jeweilige Autor selbst verantwortlich, also halten Sie sich an diesen, falls Sie mit bestimmten Inhalten Probleme haben! Wir distanzieren uns hiermit ausdrücklich von allem, was wir nicht selbst geschrieben haben!\n\n4. Bitte nutzen Sie baseportal in verantwortlicher und erwachsener Weise. Dieser Service soll Ihnen helfen, schneller und einfacher Ihre Ideen zu verwirklichen, also vermeiden Sie unnötigen Traffic oder Serverbelastungen.\n\n5. Die von den Nutzern angelegten Datenbanken und Inhalte sind deren Eigentum. Es ist verboten, fremde Daten abzurufen, zu ändern oder zu löschen, wenn diese nicht dafür freigegeben sind. Das Ausspähen (Hacken) von Passwörtern ist nicht erlaubt.\n\n6. Das Design, unsere Programme und die Umsetzung sind urheberrechtlich geschützt.\n\n7. Wir behalten uns vor, Inhalte und Einträge zu ändern oder zu löschen und/oder Nutzer von baseportal auszuschliessen, wenn diese unserer Meinung nach gegen diese Regeln verstossen.\n\n8. Mit dem kostenlosen Angebot wollen wir Ihnen die Möglichkeit geben, baseportal auf Herz und Nieren zu testen und herauszufinden, ob es für Ihre Zwecke nützlich ist. Vier Wochen nach der Registrierung Ihres baseportal-Zugangs erscheinen Banner auf den von baseportal generierten Seiten. Wenn Sie das nicht wollen, können Sie baseportal vollkommen werbefrei und mit zusätzlichen Funktionen mieten oder kaufen.\n\n\nDatenschutz und Sicherheit\n--------------------------\n\n9. Ihre Daten gehören Ihnen. In keinem Fall werden wir Ihre Daten an Dritte verkaufen oder weitergeben. Bitte beachten: Wird Werbung von Drittanbietern auf Ihren Seiten eingeblendet, so können diese den Aufruf (die URL) Ihrer Seite analysieren. Bei Google-Werbung führt dies dazu, dass Ihre Seiten von Google indiziert werden. Bitte lesen Sie die entsprechenden Sicherheitshinweise in der Dokumentation: http://baseportal.de/baseportal/hilfe/baseportal/db_help&help=104\n\n10. Wir können keine 100% Sicherheit garantieren, schon gar nicht bei einem kostenlosen Angebot. Wir übernehmen keine Haftung für Schäden oder Datenverluste irgendeiner Art. Wenn Sie eine höhere Sicherheit benötigen, sollten Sie darüber nachdenken baseportal zu mieten oder zu kaufen.\n", user_administration => "Administration Nutzer", change_email => "EMail-Adresse ändern", confirm_email_change => "Aus Sicherheitsgründen müssen Sie EMail-Änderungen mit Ihrem aktuellen Passwort bestätigen", current_password => "Aktuelles Passwort", change_password => "Passwort ändern", confirm_password_change => "Aus Sicherheitsgründen müssen Sie Passwort-Änderungen mit Ihrem aktuellen Passwort bestätigen", new_password => "Neues Passwort", repeat_new_password => "Neues Passwort Wiederholung", baseportal_newsletter => "baseportal-Newsletter", subscribe_to_newsletter => "In baseportal-Newsletter eintragen", unsubscribe_from_newsletter => "Aus baseportal-Newsletter austragen", back => "Zurück", enter_new_password => "Sie haben kein neues Passwort eingegeben", new_password_mismatch => "Das neue Passwort stimmt nicht mit der Wiederholung überein. Bitte wiederholen Sie beide Eingaben und achten Sie auf Übereinstimmung.", wrong_password => "Falsches Passwort!", password_changed => "Sie haben Ihr Passwort geändert", error_password_changing => "Fehler beim Ändern des Passworts", enter_email => "Sie haben keine EMail-Adresse eingegeben.", invalid_chars_in_email => "Ihre EMail-Adresse enthält kein At-Zeichen ( @ ) und/oder keinen Punkt ( . ).", email_changed => "Ihre EMail-Adresse wurde geändert.", error_email_changing => "Fehler beim Ändern der EMail-Adresse", already_subscribed => "Sie sind bereits im baseportal-Newsletter eingetragen.", now_subscribed => "Sie sind nun im baseportal-Newsletter eingetragen.", error_subscribing => "Fehler beim Eintragen in den baseportal-Newsletter.", not_subscribed => "Sie sind nicht im baseportal-Newsletter eingetragen.", now_unsubscribed => "Sie sind nun aus dem baseportal-Newsletter ausgetragen.", error_unsubscribing => "Fehler beim Austragen aus dem baseportal-Newsletter.", url => "Aufruf", user_directory => "Nutzerverzeichnis", my_database => "Meine baseportal-Datenbank", enter_html_code => "Geben Sie jetzt den HTML-Code für Ihre Datenbank-Seite ein.", copy_from_existing_pages => "Wenn Sie bereits bestehende Webseiten haben, kopieren Sie diese einfach in das Textfeld. An die Stelle an der die Ausgaben der Datenbank erscheinen sollen, fügen Sie folgenden Code ein:", change_relative_links => "Alle relativen Verweise (Links, Bilder usw.) müssen Sie in absolute ändern.", extract_archive => "Archiv entpacken", set_rights_database => "Vergeben Sie die Rechte an Ihrer Datenbank", set_rights_page => "Vergeben Sie die Rechte an Ihrer Seite", everybody_is_allowed_to => "Jeder darf...", read_data => "...Daten abrufen?", add_data => "...Daten hinzufügen?", modify_data => "...bestehende Daten ändern oder löschen?", execute_page => "...die Seite ausführen?", read_html_code => "...den Quelltext (HTML-Code) der Seite lesen?", allow_shared_page_access => "Andere baseportal-Nutzer dürfen die Seite in Ihre Seiten einbinden?", allow_shared_database_access => "Andere baseportal-Nutzer dürfen entsprechend dieser Rechte auf ALLE Felder zugreifen?", next_step => "Nächster Schritt", save_settings => "Einstellungen speichern", no_associated_database => "Keine zugehörige Datenbank vorhanden", table => "Tabelle", input => "Eingabe", after_link_single => "Nach Link: Allein", always_on_top => "Immer oben", always_at_bottom => "Immer unten", sorting => "Sortierung", in_which_order => "In welcher Reihenfolge sortiert sollen die Daten ausgegeben werden:", text_reverse_order => "Soll die Reihenfolge umgekehrt werden?", chronological => "chronologisch", browsing => "Blättern", according_to => "nach: ", entries_per_page => "Wieviele Datensätze sollen pro Seite ausgegeben werden?", how_to_browse => "Wie soll man in den Daten blättern?", tabs_on_top => '"Reiter" oben', forward_backward_on_top => "Vor/Zurück oben", tabs_at_bottom => '"Reiter" unten', forward_backward_at_bottom => "Vor/Zurück unten", additional_index => "Nach welchem Feld soll eine zusätzliche Index-Reihe sortiert werden?", no_additional_index => "Keine Index-Reihe", index_field => "nach: ", output => "Ausgabe", list_output => "Listen-Ausgabe:", list_output_fields => "Welche Felder sollen in der Listen-Ausgabe erscheinen:", input_position => "Wo soll die Eingabe platziert werden?", choose_template => "Wählen Sie eine Vorlage für das Aussehen Ihrer Seite", create_own_page => "Erstellen Sie Ihre eigene HTML-Seite...", no_template => "Keine Vorlage nutzen", or_use_template => "...oder nutzen Sie eine Vorlage für das Aussehen Ihrer Seite", delete_directory => "Verzeichnis löschen", clear_directory_confirm => "Das Verzeichnis %s wirklich löschen??", clear_directory => "Verzeichnis löschen", delete_directory_confirm => "Das Verzeichnis %s UND ENTHALTENE DATEIEN wirklich löschen??", delete_complete_directory => "Verzeichnis löschen, AUCH WENN DATEIEN ENTHALTEN", create_archive => "Archiv anlegen", fetch_archive => "Archiv von anderem Zugang holen (Geben Sie das Archiv komplett mit Verzeichnispfad an, z.B. dir/archiv):", user_name => "Nutzername", no_dbs_or_pages => "Keine Datenbanken oder Seiten vorhanden", pos => "Pos", field_name => "Feldname", field => "Feld", parameters => "Parameter", create_new_database => "Neue Datenbank erstellen", create_database_and_page => "Datenbank+Seite erstellen", create_database_only => "Nur Datenbank erstellen", create_new_database_from_start => "Erstellen Sie eine neue Datenbank von Anfang an...", or_use_application_template => "...oder nutzen Sie eine bestehende Anwendung als Vorlage", message_board => "Forum", guestbook => "Gästebuch", news_system => 'Redaktionssystem ("Weblog")', address_book => "Adressverzeichnis", bookmarks => "Linkliste", jokes_collection => "Witzesammlung", ranking => "Top-Ten", books => "Bücher", autos => "KFZ-Datenbank", events => "Veranstaltungskalender", text_address_book => "Speichern Sie Ihre Adressen zentral im Netz und Sie können von überall darauf zugreifen - ideal auch z.B. für Vereine, die ihre Mitglieder online verwalten wollen.", text_guestbook => 'Lassen Sie Ihre Nutzer teilhaben an Ihrem Web-Angebot. Im Gästebuch bekommen Sie das nötige Feedback.', text_news_system => "Informieren Sie die Nutzer Ihrer Webseiten über wissenswerte Neuigkeiten: Mit einem Redaktionssystem ist die Aktualisierung ein Kinderspiel - extrem nützlich, wenn mehrere Redakteure die Seiten pflegen!", text_bookmarks => "Pflegen Sie Ihre Linkliste bequem über den Browser - es geht schneller und Fehler durch unvollständige Tags sind ausgeschlossen.", text_jokes_collection => "Wie wär's mit einer Witzesammlung? Macht durch die einfache Pflege garantiert Spass!", text_ranking => "Die tollsten Schauspieler, die beste Band, die Tetris-Spieler mit den meisten Punkten - eine baseportal-geführte Rangliste ist einfach einzurichten.", text_books => "Verkaufen oder tauschen Sie Ihre Bücher online.", text_autos => "Mit dieser KFZ-Datenbanken können Sie am boomenden Internet-Gebrauchtwagen-Handel teilnehmen.", text_events => "Präsentieren Sie Ihre Veranstaltungen auf Ihrer Homepage. Mit baseportal fällt die Verwaltung des Kalenders leicht.", fill_out_the_fields => "Geben Sie die verschiedenen Texte ein", title => "Titel", introduction => "Einleitung", author => "Autor", text => "Text", save_page => "Seite speichern", path => "Pfad", text_import => "Um Daten aus anderen Programmen zu importieren, speichern Sie diese im CSV-Format (.csv) und lassen Sie die folgenden Einstellungen unverändert. \"Binäre\" Formate (.dbf, .xls, .dbm usw.) funktionieren nicht.", separator_columns => "Trenner Spalten", separator_rows => "Trenner Zeilen", separator_text => "Trenner im Text", first_row_fields => "Erste Zeile als Felder interpretieren", first_row_fieldnames => "Feldnamen als erste Zeile", create_undefined_fields => "Undefinierte Felder automatisch anlegen", first_column_ids => "Erste Spalte als Ids", overwrite_existing_content => "Bestehenden Inhalt überschreiben", or => "oder", semicolon => "Strichpunkt", comma => "Komma", tab => "Tab", return => "Return", linefeed => "Linefeed", pipe => "Pipe", colon => "Doppelpunkt", dash => "Bindestrich", number_sign => "Kreuz", quotation_mark_identify => 'Anführungsstriche (") als Texterkennung', ampersand_identify => "Apostroph (\') als Texterkennung", backslash_escape => "Backslash (\\) als Escape-Zeichen", none => "Keine", text_double_ids => "Um beim Anhängen an eine bestehende Datenbank doppelte Ids zu verhindern, erhalten die neuen Ids bei Überschneidungen neue Werte.", text_overwrite_existing_content => "Der gesamte bestehende Inhalt wird dabei gelöscht. Inhalt wirklich überschreiben?", reverse_order => "Reihenfolge umkehren", export_fields => "Felder zum Export", choose_name_password => "Wählen Sie einen Namen und ein Passwort", retype_password => "Passwort Wiederholung", email_address => "EMail-Adresse", subscribe_newsletter => "Newsletter abonnieren?", text_signup => "Der Name darf nur aus Buchstaben, Zahlen oder dem Unterstrich bestehen. Leerzeichen sind nicht erlaubt.
(Beispiele: bill_smith, hyper12).
Falls Sie Ihr Passwort vergessen haben, schicken wir Ihnen das Passwort an die angegebene EMail-Adresse.
(Beispiel: s.yogi\@gmx.net)Mit dem Newsletter erhalten Sie Neuigkeiten über baseportal direkt per EMail. Sie können ihn jederzeit abbestellen.", accept_terms_of_use => "Nutzungsbedingungen akzeptieren?", text_accept_terms => 'Bitte lesen Sie die Nutzungsbedingungen von baseportal und klicken Sie in das Kästchen links, wenn Sie einverstanden sind.', signup => "Registrieren", finish_signup => "Registrierung abschliessen", enter_name => "Sie haben keinen Namen angegeben", remove_following_chars => "Bitte entfernen Sie die folgenden Zeichen", user_exists => "Ein Nutzer mit diesem Namen existiert bereits. Bitte wählen Sie einen anderen.", enter_password => "Sie haben kein Passwort eingeben", password_repeat_mismatch => "Das Passwort stimmt nicht mit der Wiederholung überein. Bitte wiederholen Sie beide Eingaben und achten Sie auf Übereinstimmung.", agree_with_terms => "Sie haben das Kästchen zum Akzeptieren der Nutzungsbedingungen nicht angeklickt.", you_are_signed_up_now => "Sie sind unter dem Namen %s registriert. Erstellen Sie jetzt Ihre erste baseportal-Datenbank. ", click_help_if_needed => "Wann immer Sie Probleme haben, klicken Sie auf 'Hilfe' rechts oben!", define_fields => "Definieren Sie nun der Reihe nach alle Felder Ihrer Datenbank. Klicken Sie auf 'Nächster Schritt' unten auf der Seite, wenn Sie damit fertig sind.", fields_defined_by_application => "Diese Felder sind aus der gewählten Anwendung bereits in Ihrer Datenbank definiert. Sie können diese beliebig ändern oder löschen und auch neue Felder hinzufügen. Klicken Sie auf 'Nächster Schritt' unten auf der Seite, wenn Sie damit fertig sind.", file_exists => "Datei existiert bereits", choose_template_and_texts => "Wenn Sie eine Vorlage ausgewählt und die Texte eingegeben haben, gehen Sie zum nächsten Schritt und stellen sie verschiedene Datenbank-Funktionen ein.", hooray => "Bravo, Sie haben Ihre erste web-basierte Datenbank erstellt!", how_to_maintain_data => "Wie kann ich meine Daten pflegen?", how_to_maintain_data_text => "Wenn Sie nicht die Rechte freigegeben haben, können Sie mit diesem Link direkt Daten hinzufügen oder verändern: http://$_server_home/cgi-bin/baseportal.pl?htx=%s&uid=%s
", how_to_include_in_page => "Wie baue ich die Datenbank in meine Webseiten ein?", how_to_include_in_page_text => 'Mit dem folgenden HTML-Code können Sie die Datenbank nun auf Ihre Seite einbauen:
<a href="http://'.$_server_name.'/cgi-bin/baseportal.pl?htx=/%s/%s">Zu meiner Datenbank</a> So sieht ein Link dann aus: Zu meiner Datenbank
', what_can_i_do_more => "Was kann ich noch alles machen?", what_can_i_do_more_text => 'In Ihrem persönlichen Bereich können Sie ein anderes Aussehen wählen, die Felder der Datenbank ändern, weitere Datenbanken erstellen und vieles mehr:
Zum persönlichen Bereich
', next_step_design => 'Nächster Schritt: Aussehen', next_step_design_text => ' ', standard => "Standard", compact => "Kompakt", extra => "Extra", blue_ocean => "Blue Ocean", orange_whip => "Orange Whip", poetry => "Poesie", lib_entry_copied => "Auswahl wurde in das Verzeichnis kopiert...", back_to_related_database => 'Zurück zur verweisenden Datenbank', changes_too_long => "Änderung zu lang!", data => "Daten", wrong_key => "Falscher privater Schlüssel!", limit_reached => "Limit erreicht!", limit_reached1 => "Sie haben das mit dieser Version zulässige Limit an ", limit_reached2 => " erreicht. Sie können keine weiteren mehr anlegen.", pages => "Seiten", databases_and_pages => "Datenbanken und Seiten", uninstall_baseportal => "baseportal komplett deinstallieren", uninstall_baseportal_text => "Achtung: Diese Funktion entfernt baseportal vollständig von diesem Server! Damit werden auch ALLE vorhandenen Seiten, Datenbanken und deren Inhalte (inkl. aufgespielter Dateien) KOMPLETT GELÖSCHT!!!", uninstall_baseportal_confirm1 => "Aus Sicherheitsgründen müssen Sie die baseportal-Deinstallation mit Ihrem privaten Schlüssel bestätigen:", uninstall_baseportal_confirm2 => "baseportal und ALLE VORHANDENEN DATENBANKEN UND SEITEN, SOWIE ÜBER BASEPORTAL AUFGESPIELTE DATEIEN WIRKLICH LÖSCHEN!?", uninstall_baseportal_ok => "baseportal wurde von diesem Server entfernt. Auf Wiedersehen...", private_key => "privater Schlüssel", archive_get_from => "Archiv von $_server_home holen (Geben Sie das Archiv komplett mit Verzeichnispfad an, z.B. dir/archiv)", archive_upload => "Archiv aufspielen", archive_error => "Fehler beim Erstellen des Archivs:", change_path_url => "Pfade und URL-Aufrufe ändern", path_to_bpdata => "Pfad zu den baseportal-Daten", path_to_bpfiles => "Pfad zu den Dateien die per File-Upload aufgespielt werden", url_to_bpfiles => "URL-Aufruf der Dateien die per File-Upload aufgespielt werden", url_to_bppics => "URL-Aufruf der baseportal-Grafiken", path_to_zip => "Pfad zum 'zip'-Programm zum Packen von Dateien", path_to_unzip => "Pfad zum 'unzip'-Programm zum Entpacken von Dateien", path_to_sendmail => "Pfad zum 'sendmail'-Programm zum Versenden von EMails", keep_file => "Datei behalten", no_file => "Keine Datei", new_file => "Neue Datei", change_language => "Sprache ändern", new_language => "Neue Sprache", language_changed => "Sprache wurde geändert", error_language_changing => "Fehler beim Ändern der Sprache", path_url_changed => "Pfade/URL-Aufrufe wurden geändert", error_path_url_changing => "Fehler beim Ändern der Pfade/URL-Aufrufe", Copy => "Kopie", new_unknown => "Neu & unbesehen", lib_list => ["Gästebücher, Foren, Chats", "Passwort-Schutz/Nutzerverwaltung", "Für die Homepage", "Anwendungen", "Bilder", "Tools", "Offene Datenbanken", "Spezial", "Neu & unbesehen"], copy_entry_dir => "Auswahl in eigenes Verzeichnis kopieren", version => "Version", entry_on => "Eintrag vom", bugs_problems => "Fehler/Probleme", planned => "geplante/mögliche Erweiterungen", usage_include => "Direktes Einbinden per include", pages => "Seiten", error_copy_file => "Fehler beim Kopieren von %s nach %s: Eine Datei mit diesem Namen existiert bereits", no_database_page_chosen => "Sie haben keine Datenbank oder Seite ausgewählt!", enter_title => "Bitte geben Sie einen Titel ein!", enter_introduction => "Bitte geben Sie eine Einleitung ein!", enter_project_name => "Bitte geben Sie einen Projektnamen ein!", no_rights_modfiy_entry => "Sie haben keine Rechte diesen Eintrag zu ändern", project_exists => "Ein Projekt mit diesem Namen existiert bereits", error_rename_dir => "Fehler beim Umbenennen vom Verzeichnis %s nach %s", project => "Projekt", add => "hinzufügen", text_lib_modify => "Entfernen Sie die Auswahl bei bereits enthaltenen Dateien, die Sie aus der Bibliothek löschen wollen und wählen Sie neue Dateien aus dem Verzeichnis aus, die sie zusätzlich aufnehmen wollen. Wenn Sie fertig sind, klicken Sie auf 'Abschicken'.", included_files => "Bereits enthaltene Dateien", files_in_dir => "Dateien im Verzeichnis", text_lib_new_entry_pre => "Die baseportal-Bibliothek dient zum Austausch fertiger Anwendungen zwischen den Nutzern. Bitte stellen Sie nur abgeschlossene, gut dokumentierte Anwendungen ein, die programmtechnisch für andere interessant sind! Sehen Sie sich VORHER bitte die bereits vorhandenen Beispiele an, damit Sie verstehen, welche Projekte für andere Sinn machen. Es kostet unnötig viel Zeit unpassende Einträge wieder zu entfernen. Danke für die Mithilfe!! Zum VORSTELLEN Ihrer Datenbank nutzen Sie bitte das Nutzer-Verzeichnis |
![](\"$_pics/hi.gif\"){kind=small}
![](\"$_pics/uo2.gif\"){kind=small}
$_text{administration}"; if($_get{useropts} eq "changepw") { if($_get{nPasswort} eq "") { $p12=$_text{enter_new_password}; } elsif($_get{nPasswort} ne $_get{nPasswort2}) { $p12=$_text{new_password_mismatch}; } elsif(crypt($_get{Passwort}, $_password) ne $_password) { $p12=$_text{wrong_password}; } else {$r=&change_params("password",crypt($_get{nPasswort},$_get{nPasswort}));$cleart.=$r?"