LEITARTIKEL

Panik in der Finanzwelt: Hyperinflation wie 1923!

Die Zentralbanken sind in einer Zwickmühle: Sie müßten die Zinsen weiter anheben, um die Hyperinflation auf den Rohstoff- und Energiemärkten zu bremsen; doch um die wankenden Anleihen- und Immobilienmärkte zu stützen, müßten sie die Zinsen senken.
Tun sie nichts, wäre dies wiederum für die Anleger ein klares Zeichen, wie prekär die Lage auf den Weltfinanzmärkten tatsächlich ist. #!/usr/bin/perl -w # use strict; # weiter: Weiterlesen aus ASCII-Datenbank holen use CGI ':standard'; print header; # $art: 200749101 my $art = param('art'); # my $seq = substr($art,7,2); my $flag = ""; # work-around to provide for growing $art values # if ( $art le $param ) { # if ( $art eq $param ) { #if ( substr($art,7,2) eq substr($param,7,2) ) { # $art = ++$param; # $flag = "."; #} my $year = substr($art,0,4); my $fileid = substr($art,0,7); my $no = substr($art,4,2); my $part = substr($art,6,1); my $seq = substr($art,7,2); # $| = 1; if ( $fileid ne $lastid ) { $data1 = "/srv/www/vhosts/solidaritaet.com/httpdocs/neuesol/"; $datapath = $data1 . $year . "abo/sol-$year-weiter.txt"; $trenn = " - "; $weiter0 = "
".$flag."Weiterlesen"; $weiter1 = "frei"; $weiter2 = "im Abo"; $weiter3 = "einzeln €"; open(DATA, "$datapath") or die("Datei nicht gefunden: $datapath"); @alldata = ; close(DATA); @zeile1 = split(" ",$alldata[0]); $anfang = 0; for ($n = 1; $n < $no; $n++) { $anfang += $zeile1[$n]; } $lastid = $fileid; } else { $art = ++$param; $flag = "."; } $seq = substr($art,7,2); ($year,$no,$part,$seq,$pay,$url1,$url3,$price) = split(" ",$alldata[$anfang + $seq]); if ( "$year$no$part$seq" eq $art ) { # Artikelnummer aufgerufen if ( !$url1 ) { # keinen Text zur Verfügung exit(1); } elsif ( $pay ) { # Text kostenpflichtig if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } $url2 = "../../$year" . "abo/$n/$url1"; my $size = ( -s "$data1$year" . "abo/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } if ( $url3 ) { # im Abo oder einzeln abrufen $url3 = "$url3\?art=$year$no$part$seq$price$pay$seq$part"; $preis = substr($price,0,-2) . "," . substr($price,-2); $weiter = "$weiter0 $size:
$weiter2$trenn$weiter3$preis
"; } else { # nur im Abo abrufen $weiter = "$weiter0 $size: $weiter2"; } } else { # Text frei if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } my $size = ( -s "$data1$year/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } $weiter = "$weiter0 $size: $weiter1"; } print "$weiter"; } else { # Zugriffs-ID aufgerufen # print "$year$no$part$seq - $art"; # if ( "$year$no$part$seq$price$pay$seq$part" eq $art ) { # if ( $no < 10 ) { # $n = substr($no,1,1); # } else { # $n = $no; # } # $html = "Â$data1$year" . "abo/$n/$url1"; # open(HTML, "$html"); # while ( ) { # print; # } # close(HTML); # } } $param = $art; 1; # exit(0);
Vor zehn Jahren führte der amerikanische Ökonom Lyndon LaRouche seine "typische Kollapsfunktion" in den wirtschaftspolitischen Diskurs ein, um den unheilvollen Trend in die nachindustrielle Kasinowirtschaft zu veranschaulichen: beschleunigtes inflationäres Wachstum bei Finanztiteln (z.B. Aktienkurse, Finanzderivate, Schulden) und umlaufendem Geld bei gleichzeitig schrumpfender Realwirtschaft (physische Produktion, Infrastruktur, Lebensstandard). Besonders deutlich zeigt sich die Hyperinflation bei den Rohstoffpreisen, hier Gold und Erdöl.

3 Monate zur Probe! Die Neue Solidarität online


DEUTSCHLAND

Sarrazin will Sparkassen verscherbeln

Ganz im Sinne der berüchtigten "Heuschreckenfonds" will Berlins Finanzsenator Thilo Sarrazin bis 2007 die Bankgesellschaft Berlin privatisieren. Weil sich die Bundesfinanzaufsicht BaFin dem widersetzt, sucht er Rückendeckung bei der Brüsseler EU-Kommission. Nun wird der ganze Vorgang Thema des Landtagswahlkampfs. #!/usr/bin/perl -w # use strict; # weiter: Weiterlesen aus ASCII-Datenbank holen use CGI ':standard'; print header; # $art: 200749101 my $art = param('art'); # my $seq = substr($art,7,2); my $flag = ""; # work-around to provide for growing $art values # if ( $art le $param ) { # if ( $art eq $param ) { #if ( substr($art,7,2) eq substr($param,7,2) ) { # $art = ++$param; # $flag = "."; #} my $year = substr($art,0,4); my $fileid = substr($art,0,7); my $no = substr($art,4,2); my $part = substr($art,6,1); my $seq = substr($art,7,2); # $| = 1; if ( $fileid ne $lastid ) { $data1 = "/srv/www/vhosts/solidaritaet.com/httpdocs/neuesol/"; $datapath = $data1 . $year . "abo/sol-$year-weiter.txt"; $trenn = " - "; $weiter0 = "
".$flag."Weiterlesen"; $weiter1 = "frei"; $weiter2 = "im Abo"; $weiter3 = "einzeln €"; open(DATA, "$datapath") or die("Datei nicht gefunden: $datapath"); @alldata = ; close(DATA); @zeile1 = split(" ",$alldata[0]); $anfang = 0; for ($n = 1; $n < $no; $n++) { $anfang += $zeile1[$n]; } $lastid = $fileid; } else { $art = ++$param; $flag = "."; } $seq = substr($art,7,2); ($year,$no,$part,$seq,$pay,$url1,$url3,$price) = split(" ",$alldata[$anfang + $seq]); if ( "$year$no$part$seq" eq $art ) { # Artikelnummer aufgerufen if ( !$url1 ) { # keinen Text zur Verfügung exit(1); } elsif ( $pay ) { # Text kostenpflichtig if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } $url2 = "../../$year" . "abo/$n/$url1"; my $size = ( -s "$data1$year" . "abo/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } if ( $url3 ) { # im Abo oder einzeln abrufen $url3 = "$url3\?art=$year$no$part$seq$price$pay$seq$part"; $preis = substr($price,0,-2) . "," . substr($price,-2); $weiter = "$weiter0 $size:
$weiter2$trenn$weiter3$preis
"; } else { # nur im Abo abrufen $weiter = "$weiter0 $size: $weiter2"; } } else { # Text frei if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } my $size = ( -s "$data1$year/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } $weiter = "$weiter0 $size: $weiter1"; } print "$weiter"; } else { # Zugriffs-ID aufgerufen # print "$year$no$part$seq - $art"; # if ( "$year$no$part$seq$price$pay$seq$part" eq $art ) { # if ( $no < 10 ) { # $n = substr($no,1,1); # } else { # $n = $no; # } # $html = "Â$data1$year" . "abo/$n/$url1"; # open(HTML, "$html"); # while ( ) { # print; # } # close(HTML); # } } $param = $art; 1; # exit(0);

Industriemetropole statt neofeudaler Metropolenregion

Mit ihrer öffentlichen Kampagne für eine industrielle Zukunft setzt sich die BüSo politisch für die Reindustrialisierung Berlins ein - im Gegensatz zur offiziellen Berliner Politik.
#!/usr/bin/perl -w # use strict; # weiter: Weiterlesen aus ASCII-Datenbank holen use CGI ':standard'; print header; # $art: 200749101 my $art = param('art'); # my $seq = substr($art,7,2); my $flag = ""; # work-around to provide for growing $art values # if ( $art le $param ) { # if ( $art eq $param ) { #if ( substr($art,7,2) eq substr($param,7,2) ) { # $art = ++$param; # $flag = "."; #} my $year = substr($art,0,4); my $fileid = substr($art,0,7); my $no = substr($art,4,2); my $part = substr($art,6,1); my $seq = substr($art,7,2); # $| = 1; if ( $fileid ne $lastid ) { $data1 = "/srv/www/vhosts/solidaritaet.com/httpdocs/neuesol/"; $datapath = $data1 . $year . "abo/sol-$year-weiter.txt"; $trenn = " - "; $weiter0 = "
".$flag."Weiterlesen"; $weiter1 = "frei"; $weiter2 = "im Abo"; $weiter3 = "einzeln €"; open(DATA, "$datapath") or die("Datei nicht gefunden: $datapath"); @alldata = ; close(DATA); @zeile1 = split(" ",$alldata[0]); $anfang = 0; for ($n = 1; $n < $no; $n++) { $anfang += $zeile1[$n]; } $lastid = $fileid; } else { $art = ++$param; $flag = "."; } $seq = substr($art,7,2); ($year,$no,$part,$seq,$pay,$url1,$url3,$price) = split(" ",$alldata[$anfang + $seq]); if ( "$year$no$part$seq" eq $art ) { # Artikelnummer aufgerufen if ( !$url1 ) { # keinen Text zur Verfügung exit(1); } elsif ( $pay ) { # Text kostenpflichtig if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } $url2 = "../../$year" . "abo/$n/$url1"; my $size = ( -s "$data1$year" . "abo/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } if ( $url3 ) { # im Abo oder einzeln abrufen $url3 = "$url3\?art=$year$no$part$seq$price$pay$seq$part"; $preis = substr($price,0,-2) . "," . substr($price,-2); $weiter = "$weiter0 $size:
$weiter2$trenn$weiter3$preis
"; } else { # nur im Abo abrufen $weiter = "$weiter0 $size: $weiter2"; } } else { # Text frei if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } my $size = ( -s "$data1$year/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } $weiter = "$weiter0 $size: $weiter1"; } print "$weiter"; } else { # Zugriffs-ID aufgerufen # print "$year$no$part$seq - $art"; # if ( "$year$no$part$seq$price$pay$seq$part" eq $art ) { # if ( $no < 10 ) { # $n = substr($no,1,1); # } else { # $n = $no; # } # $html = "Â$data1$year" . "abo/$n/$url1"; # open(HTML, "$html"); # while ( ) { # print; # } # close(HTML); # } } $param = $art; 1; # exit(0);
Foto: WESTA-MG

Eine funktionierende Industriegesellschaft ist ohne wissenschaftlich-technischen Fortschritt und ein fortschrittsfreundliches Kulturklima nicht zu denken. Das Bild zeigt Besucher, die sich über die Arbeit des Berliner Forschungsunternehmens Bessy informieren, das sich mit Elektronenspeicherringen und Synchrotonstrahlung befaßt.

Aus den BüSo- Landesverbänden
#!/usr/bin/perl -w # use strict; # weiter: Weiterlesen aus ASCII-Datenbank holen use CGI ':standard'; print header; # $art: 200749101 my $art = param('art'); # my $seq = substr($art,7,2); my $flag = ""; # work-around to provide for growing $art values # if ( $art le $param ) { # if ( $art eq $param ) { #if ( substr($art,7,2) eq substr($param,7,2) ) { # $art = ++$param; # $flag = "."; #} my $year = substr($art,0,4); my $fileid = substr($art,0,7); my $no = substr($art,4,2); my $part = substr($art,6,1); my $seq = substr($art,7,2); # $| = 1; if ( $fileid ne $lastid ) { $data1 = "/srv/www/vhosts/solidaritaet.com/httpdocs/neuesol/"; $datapath = $data1 . $year . "abo/sol-$year-weiter.txt"; $trenn = " - "; $weiter0 = "
".$flag."Weiterlesen"; $weiter1 = "frei"; $weiter2 = "im Abo"; $weiter3 = "einzeln €"; open(DATA, "$datapath") or die("Datei nicht gefunden: $datapath"); @alldata = ; close(DATA); @zeile1 = split(" ",$alldata[0]); $anfang = 0; for ($n = 1; $n < $no; $n++) { $anfang += $zeile1[$n]; } $lastid = $fileid; } else { $art = ++$param; $flag = "."; } $seq = substr($art,7,2); ($year,$no,$part,$seq,$pay,$url1,$url3,$price) = split(" ",$alldata[$anfang + $seq]); if ( "$year$no$part$seq" eq $art ) { # Artikelnummer aufgerufen if ( !$url1 ) { # keinen Text zur Verfügung exit(1); } elsif ( $pay ) { # Text kostenpflichtig if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } $url2 = "../../$year" . "abo/$n/$url1"; my $size = ( -s "$data1$year" . "abo/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } if ( $url3 ) { # im Abo oder einzeln abrufen $url3 = "$url3\?art=$year$no$part$seq$price$pay$seq$part"; $preis = substr($price,0,-2) . "," . substr($price,-2); $weiter = "$weiter0 $size:
$weiter2$trenn$weiter3$preis
"; } else { # nur im Abo abrufen $weiter = "$weiter0 $size: $weiter2"; } } else { # Text frei if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } my $size = ( -s "$data1$year/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } $weiter = "$weiter0 $size: $weiter1"; } print "$weiter"; } else { # Zugriffs-ID aufgerufen # print "$year$no$part$seq - $art"; # if ( "$year$no$part$seq$price$pay$seq$part" eq $art ) { # if ( $no < 10 ) { # $n = substr($no,1,1); # } else { # $n = $no; # } # $html = "Â$data1$year" . "abo/$n/$url1"; # open(HTML, "$html"); # while ( ) { # print; # } # close(HTML); # } } $param = $art; 1; # exit(0);
 

- Forum -

 Glasfabrik Aachen  insolvent

#!/usr/bin/perl -w # use strict; # weiter: Weiterlesen aus ASCII-Datenbank holen use CGI ':standard'; print header; # $art: 200749101 my $art = param('art'); # my $seq = substr($art,7,2); my $flag = ""; # work-around to provide for growing $art values # if ( $art le $param ) { # if ( $art eq $param ) { #if ( substr($art,7,2) eq substr($param,7,2) ) { # $art = ++$param; # $flag = "."; #} my $year = substr($art,0,4); my $fileid = substr($art,0,7); my $no = substr($art,4,2); my $part = substr($art,6,1); my $seq = substr($art,7,2); # $| = 1; if ( $fileid ne $lastid ) { $data1 = "/srv/www/vhosts/solidaritaet.com/httpdocs/neuesol/"; $datapath = $data1 . $year . "abo/sol-$year-weiter.txt"; $trenn = " - "; $weiter0 = "
".$flag."Weiterlesen"; $weiter1 = "frei"; $weiter2 = "im Abo"; $weiter3 = "einzeln €"; open(DATA, "$datapath") or die("Datei nicht gefunden: $datapath"); @alldata = ; close(DATA); @zeile1 = split(" ",$alldata[0]); $anfang = 0; for ($n = 1; $n < $no; $n++) { $anfang += $zeile1[$n]; } $lastid = $fileid; } else { $art = ++$param; $flag = "."; } $seq = substr($art,7,2); ($year,$no,$part,$seq,$pay,$url1,$url3,$price) = split(" ",$alldata[$anfang + $seq]); if ( "$year$no$part$seq" eq $art ) { # Artikelnummer aufgerufen if ( !$url1 ) { # keinen Text zur Verfügung exit(1); } elsif ( $pay ) { # Text kostenpflichtig if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } $url2 = "../../$year" . "abo/$n/$url1"; my $size = ( -s "$data1$year" . "abo/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } if ( $url3 ) { # im Abo oder einzeln abrufen $url3 = "$url3\?art=$year$no$part$seq$price$pay$seq$part"; $preis = substr($price,0,-2) . "," . substr($price,-2); $weiter = "$weiter0 $size:
$weiter2$trenn$weiter3$preis
"; } else { # nur im Abo abrufen $weiter = "$weiter0 $size: $weiter2"; } } else { # Text frei if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } my $size = ( -s "$data1$year/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } $weiter = "$weiter0 $size: $weiter1"; } print "$weiter"; } else { # Zugriffs-ID aufgerufen # print "$year$no$part$seq - $art"; # if ( "$year$no$part$seq$price$pay$seq$part" eq $art ) { # if ( $no < 10 ) { # $n = substr($no,1,1); # } else { # $n = $no; # } # $html = "Â$data1$year" . "abo/$n/$url1"; # open(HTML, "$html"); # while ( ) { # print; # } # close(HTML); # } } $param = $art; 1; # exit(0);
 

Zur "Menschenbildung" in Moskau

Drei Mitglieder der LaRouche-Jugendbewegung aus Berlin besuchten im April zehn Tage die russische Hauptstadt. #!/usr/bin/perl -w # use strict; # weiter: Weiterlesen aus ASCII-Datenbank holen use CGI ':standard'; print header; # $art: 200749101 my $art = param('art'); # my $seq = substr($art,7,2); my $flag = ""; # work-around to provide for growing $art values # if ( $art le $param ) { # if ( $art eq $param ) { #if ( substr($art,7,2) eq substr($param,7,2) ) { # $art = ++$param; # $flag = "."; #} my $year = substr($art,0,4); my $fileid = substr($art,0,7); my $no = substr($art,4,2); my $part = substr($art,6,1); my $seq = substr($art,7,2); # $| = 1; if ( $fileid ne $lastid ) { $data1 = "/srv/www/vhosts/solidaritaet.com/httpdocs/neuesol/"; $datapath = $data1 . $year . "abo/sol-$year-weiter.txt"; $trenn = " - "; $weiter0 = "
".$flag."Weiterlesen"; $weiter1 = "frei"; $weiter2 = "im Abo"; $weiter3 = "einzeln €"; open(DATA, "$datapath") or die("Datei nicht gefunden: $datapath"); @alldata = ; close(DATA); @zeile1 = split(" ",$alldata[0]); $anfang = 0; for ($n = 1; $n < $no; $n++) { $anfang += $zeile1[$n]; } $lastid = $fileid; } else { $art = ++$param; $flag = "."; } $seq = substr($art,7,2); ($year,$no,$part,$seq,$pay,$url1,$url3,$price) = split(" ",$alldata[$anfang + $seq]); if ( "$year$no$part$seq" eq $art ) { # Artikelnummer aufgerufen if ( !$url1 ) { # keinen Text zur Verfügung exit(1); } elsif ( $pay ) { # Text kostenpflichtig if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } $url2 = "../../$year" . "abo/$n/$url1"; my $size = ( -s "$data1$year" . "abo/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } if ( $url3 ) { # im Abo oder einzeln abrufen $url3 = "$url3\?art=$year$no$part$seq$price$pay$seq$part"; $preis = substr($price,0,-2) . "," . substr($price,-2); $weiter = "$weiter0 $size:
$weiter2$trenn$weiter3$preis
"; } else { # nur im Abo abrufen $weiter = "$weiter0 $size: $weiter2"; } } else { # Text frei if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } my $size = ( -s "$data1$year/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } $weiter = "$weiter0 $size: $weiter1"; } print "$weiter"; } else { # Zugriffs-ID aufgerufen # print "$year$no$part$seq - $art"; # if ( "$year$no$part$seq$price$pay$seq$part" eq $art ) { # if ( $no < 10 ) { # $n = substr($no,1,1); # } else { # $n = $no; # } # $html = "Â$data1$year" . "abo/$n/$url1"; # open(HTML, "$html"); # while ( ) { # print; # } # close(HTML); # } } $param = $art; 1; # exit(0);


KOMMENTAR

Kann Europa den Dritten Weltkrieg stoppen?

#!/usr/bin/perl -w # use strict; # weiter: Weiterlesen aus ASCII-Datenbank holen use CGI ':standard'; print header; # $art: 200749101 my $art = param('art'); # my $seq = substr($art,7,2); my $flag = ""; # work-around to provide for growing $art values # if ( $art le $param ) { # if ( $art eq $param ) { #if ( substr($art,7,2) eq substr($param,7,2) ) { # $art = ++$param; # $flag = "."; #} my $year = substr($art,0,4); my $fileid = substr($art,0,7); my $no = substr($art,4,2); my $part = substr($art,6,1); my $seq = substr($art,7,2); # $| = 1; if ( $fileid ne $lastid ) { $data1 = "/srv/www/vhosts/solidaritaet.com/httpdocs/neuesol/"; $datapath = $data1 . $year . "abo/sol-$year-weiter.txt"; $trenn = " - "; $weiter0 = "
".$flag."Weiterlesen"; $weiter1 = "frei"; $weiter2 = "im Abo"; $weiter3 = "einzeln €"; open(DATA, "$datapath") or die("Datei nicht gefunden: $datapath"); @alldata = ; close(DATA); @zeile1 = split(" ",$alldata[0]); $anfang = 0; for ($n = 1; $n < $no; $n++) { $anfang += $zeile1[$n]; } $lastid = $fileid; } else { $art = ++$param; $flag = "."; } $seq = substr($art,7,2); ($year,$no,$part,$seq,$pay,$url1,$url3,$price) = split(" ",$alldata[$anfang + $seq]); if ( "$year$no$part$seq" eq $art ) { # Artikelnummer aufgerufen if ( !$url1 ) { # keinen Text zur Verfügung exit(1); } elsif ( $pay ) { # Text kostenpflichtig if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } $url2 = "../../$year" . "abo/$n/$url1"; my $size = ( -s "$data1$year" . "abo/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } if ( $url3 ) { # im Abo oder einzeln abrufen $url3 = "$url3\?art=$year$no$part$seq$price$pay$seq$part"; $preis = substr($price,0,-2) . "," . substr($price,-2); $weiter = "$weiter0 $size:
$weiter2$trenn$weiter3$preis
"; } else { # nur im Abo abrufen $weiter = "$weiter0 $size: $weiter2"; } } else { # Text frei if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } my $size = ( -s "$data1$year/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } $weiter = "$weiter0 $size: $weiter1"; } print "$weiter"; } else { # Zugriffs-ID aufgerufen # print "$year$no$part$seq - $art"; # if ( "$year$no$part$seq$price$pay$seq$part" eq $art ) { # if ( $no < 10 ) { # $n = substr($no,1,1); # } else { # $n = $no; # } # $html = "Â$data1$year" . "abo/$n/$url1"; # open(HTML, "$html"); # while ( ) { # print; # } # close(HTML); # } } $param = $art; 1; # exit(0);

Des Kaisers neue Dämme

#!/usr/bin/perl -w # use strict; # weiter: Weiterlesen aus ASCII-Datenbank holen use CGI ':standard'; print header; # $art: 200749101 my $art = param('art'); # my $seq = substr($art,7,2); my $flag = ""; # work-around to provide for growing $art values # if ( $art le $param ) { # if ( $art eq $param ) { #if ( substr($art,7,2) eq substr($param,7,2) ) { # $art = ++$param; # $flag = "."; #} my $year = substr($art,0,4); my $fileid = substr($art,0,7); my $no = substr($art,4,2); my $part = substr($art,6,1); my $seq = substr($art,7,2); # $| = 1; if ( $fileid ne $lastid ) { $data1 = "/srv/www/vhosts/solidaritaet.com/httpdocs/neuesol/"; $datapath = $data1 . $year . "abo/sol-$year-weiter.txt"; $trenn = " - "; $weiter0 = "
".$flag."Weiterlesen"; $weiter1 = "frei"; $weiter2 = "im Abo"; $weiter3 = "einzeln €"; open(DATA, "$datapath") or die("Datei nicht gefunden: $datapath"); @alldata = ; close(DATA); @zeile1 = split(" ",$alldata[0]); $anfang = 0; for ($n = 1; $n < $no; $n++) { $anfang += $zeile1[$n]; } $lastid = $fileid; } else { $art = ++$param; $flag = "."; } $seq = substr($art,7,2); ($year,$no,$part,$seq,$pay,$url1,$url3,$price) = split(" ",$alldata[$anfang + $seq]); if ( "$year$no$part$seq" eq $art ) { # Artikelnummer aufgerufen if ( !$url1 ) { # keinen Text zur Verfügung exit(1); } elsif ( $pay ) { # Text kostenpflichtig if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } $url2 = "../../$year" . "abo/$n/$url1"; my $size = ( -s "$data1$year" . "abo/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } if ( $url3 ) { # im Abo oder einzeln abrufen $url3 = "$url3\?art=$year$no$part$seq$price$pay$seq$part"; $preis = substr($price,0,-2) . "," . substr($price,-2); $weiter = "$weiter0 $size:
$weiter2$trenn$weiter3$preis
"; } else { # nur im Abo abrufen $weiter = "$weiter0 $size: $weiter2"; } } else { # Text frei if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } my $size = ( -s "$data1$year/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } $weiter = "$weiter0 $size: $weiter1"; } print "$weiter"; } else { # Zugriffs-ID aufgerufen # print "$year$no$part$seq - $art"; # if ( "$year$no$part$seq$price$pay$seq$part" eq $art ) { # if ( $no < 10 ) { # $n = substr($no,1,1); # } else { # $n = $no; # } # $html = "Â$data1$year" . "abo/$n/$url1"; # open(HTML, "$html"); # while ( ) { # print; # } # close(HTML); # } } $param = $art; 1; # exit(0);
Eulenspiegel

Intellijenztest für
In- und Ausländer

#!/usr/bin/perl -w # use strict; # weiter: Weiterlesen aus ASCII-Datenbank holen use CGI ':standard'; print header; # $art: 200749101 my $art = param('art'); # my $seq = substr($art,7,2); my $flag = ""; # work-around to provide for growing $art values # if ( $art le $param ) { # if ( $art eq $param ) { #if ( substr($art,7,2) eq substr($param,7,2) ) { # $art = ++$param; # $flag = "."; #} my $year = substr($art,0,4); my $fileid = substr($art,0,7); my $no = substr($art,4,2); my $part = substr($art,6,1); my $seq = substr($art,7,2); # $| = 1; if ( $fileid ne $lastid ) { $data1 = "/srv/www/vhosts/solidaritaet.com/httpdocs/neuesol/"; $datapath = $data1 . $year . "abo/sol-$year-weiter.txt"; $trenn = " - "; $weiter0 = "
".$flag."Weiterlesen"; $weiter1 = "frei"; $weiter2 = "im Abo"; $weiter3 = "einzeln €"; open(DATA, "$datapath") or die("Datei nicht gefunden: $datapath"); @alldata = ; close(DATA); @zeile1 = split(" ",$alldata[0]); $anfang = 0; for ($n = 1; $n < $no; $n++) { $anfang += $zeile1[$n]; } $lastid = $fileid; } else { $art = ++$param; $flag = "."; } $seq = substr($art,7,2); ($year,$no,$part,$seq,$pay,$url1,$url3,$price) = split(" ",$alldata[$anfang + $seq]); if ( "$year$no$part$seq" eq $art ) { # Artikelnummer aufgerufen if ( !$url1 ) { # keinen Text zur Verfügung exit(1); } elsif ( $pay ) { # Text kostenpflichtig if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } $url2 = "../../$year" . "abo/$n/$url1"; my $size = ( -s "$data1$year" . "abo/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } if ( $url3 ) { # im Abo oder einzeln abrufen $url3 = "$url3\?art=$year$no$part$seq$price$pay$seq$part"; $preis = substr($price,0,-2) . "," . substr($price,-2); $weiter = "$weiter0 $size:
$weiter2$trenn$weiter3$preis
"; } else { # nur im Abo abrufen $weiter = "$weiter0 $size: $weiter2"; } } else { # Text frei if ( $no < 10 ) { $n = substr($no,1,1); } else { $n = $no; } my $size = ( -s "$data1$year/$n/$url1" ); if ( $size > 3000 ) { $size = $size - 2000; $size = "(" . substr($size,0,-3) . " KB)"; } $weiter = "$weiter0 $size: $weiter1"; } print "$weiter"; } else { # Zugriffs-ID aufgerufen # print "$year$no$part$seq - $art"; # if ( "$year$no$part$seq$price$pay$seq$part" eq $art ) { # if ( $no < 10 ) { # $n = substr($no,1,1); # } else { # $n = $no; # } # $html = "Â$data1$year" . "abo/$n/$url1"; # open(HTML, "$html"); # while ( ) { # print; # } # close(HTML); # } } $param = $art; 1; # exit(0);

- Sonderdruck -

Europa nicht als Großstaat,
sondern als "Republik der Republiken" organisieren

Ein Interview mit Prof. Karl Albrecht Schachtschneider über die EU-Verfassung

Prof. Karl Albrecht Schachtschneider vertritt die Verfassungsklage des Abgeordneten Dr. Peter Gauweiler gegen den EU-Verfassungsvertrag. Er lehrt Öffentliches Recht an der Universität Erlangen-Nürnberg und gehört zu den besten Kennern des Europarechts und der Europäischen Verfassung. 1992 führte er die Verfassungsbeschwerde gegen den Maastrichter Vertrag, 1998 klagte er, zusammen mit den Professoren Hankel, Nölling und Starbatty, gegen die Einführung des Euro. Gabriele Liebig und Alexander Hartmann führten im Mai ein Gespräch mit Prof. Schachtschneider, das am 1. Juni in der Neuen Solidarität veröffentlicht wurde.

Den Text des Interviews können Sie beim Verlag als A4-Sonderdruck (12 Seiten) zum Preis von 1,- Euro zzgl. Porto bestellen.

Dr. Böttiger Verlag, Postfach 1611, 65006 Wiesbaden
verlag@solidaritaet.com oder Fax: 0611-77861-18

Lesen - und verschenken - Sie den Ibykus!

- Schiller-Institut -

Wer wir sind, was wir wollen,
was wir tun...

Live-Debatte auf der letzten Konferenz des Schiller-Instituts im März 2003 in Bad Schwalbach über die Eurasische Landbrücke, die Kriegstreiber in Washington und die Internationale LaRouche-Jugendbewegung - alles in diesem Buch, das soeben frisch vom Drucker eingetroffen ist.

Wiederaufbau einer kaputten Welt

260 S. 12,80 Euro plus Versand

Zu bestellen bei Dr. Böttiger-Verlag:
Fax 0611-77861-18 oder
E-Mail: verlag@solidaritaet.com